Program Pascal Data Mahasiswa
Program Data Mahasiswa
Sebelum menuju ke program, saya menjelaskan sedikit tentang program ini. Program ini merupakan program yang mana user akan menginput data mahasiswa kemudian akan disimpan dan ditampilkan dalam bentuk tabel sederhana.
Untuk membuka program sebaiknya menggunakan Turbopascal, karena jika teman-teman membuka program dalam freepascal maka akan terdapat kesalahan output tabelnya. Saya juga sih kurang tau kenapa program ini gak berjalan baik dalam freepascal, maklumlah belum terlalu paham sih tentang pascal.
program Input_data;
uses crt;
type
mhs= record
nama, alamat : string [11];
fakultas, jurusan : string[9];
nim, semester, ttl : integer;
th_msk : longint;
end;
const
z = #0; c = #180; e =#192; g=#194; m=#196; k=#217;
b = #179; d = #191; f =#193; h=#195; j=#197; l=#218;
var
nama, alamat : string [11];
fakultas, jurusan, tempat : string [9];
nim, semester, ttl, a,i,n, pilih : integer;
Th_msk : longint;
dtmhs:array [1..10] of mhs;
procedure input;
begin
clrscr;
gotoxy(23,1);writeln ('====== INPUT DATA MAHASISWA ======');
gotoxy(23,2);write ('Jumlah Mahasiswa : '); readln (a); writeln;
for i:= 1 to a do
begin
with dtmhs[i] do
begin
writeln ('Data Ke-',i);
write ('Nama : '); readln (nama);
repeat
write ('Tahun Masuk : '); readln (Th_msk);
if th_msk = 2015 then
begin
repeat
write ('NIM : 602001150'); readln (nim);
case nim of
01..27 : writeln ('Nama Dosen Pembimbing : Faisal ST MT');
28..54 : writeln ('Nama Dosen Pembimbing : Andi Muhammad Syafar');
55..81 : writeln ('Nama Dosen Pembimbing : Andi Hutami Endang S,Kom. M,Kom.');
else write ('NIM ini tidak terdaftar'); writeln;
end;
until nim <= 81
end
else
if th_msk = 2016 then
begin
repeat
write ('NIM : 602001160'); readln (nim);
case nim of
01..27 : writeln ('Nama Dosen Pembimbing : Faisal ST MT');
28..54 : writeln ('Nama Dosen Pembimbing : Andi Muhammad Syafar');
55..81 : writeln ('Nama Dosen Pembimbing : Andi Hutami Endang S,Kom. M,Kom.');
else write ('NIM ini tidak terdaftar'); writeln;
end;
until nim <=81
end
else
if th_msk = 2017 then
begin
repeat
write ('NIM : 602001170'); readln (nim);
case nim of
01..27 : writeln ('Nama Dosen Pembimbing : Faisal ST MT');
28..54 : writeln ('Nama Dosen Pembimbing : Andi Muhammad Syafar');
55..81 : writeln ('Nama Dosen Pembimbing : Andi Hutami Endang S,Kom. M,Kom.');
else write ('NIM ini tidak terdaftar'); writeln;
end;
until nim <=81
end
else writeln ('Tahun Masuk Hanya tahun 2015 s/d 2017');
until Th_msk <> 2015 or 2017 or 2016;
write ('Tempat Lahir : '); readln (tempat);
write ('Tanggal Lahir : '); readln (ttl);
write ('Alamat : '); readln (alamat);
write ('Fakultas : '); readln (fakultas);
write ('Jurusan : '); readln (Jurusan);
write ('Semester : '); readln (Semester);
end;
readln;
end;
end;
procedure output;
begin
clrscr;
gotoxy (35,1); writeln ('DATA MAHASISWA');
writeln (l,m,m,m,m,m,m,m,m,m,m,m,g,m,m,m,m,m,m,m,m,m,m,m,m,g,m,m,m,m,m,m,m,m,m,m,m,g,m,m,m,m,m,
m,m,m,g,m,m,m,m,m,m,m,m,m,m,g,m,m,m,m,m,m,m,m,m,g,m,m,m,m,m,m,m,m,m,m,d);
writeln (b,z,' NAMA ',z,b,z,' NIM ',z,b,z,' TTL ',z,b,z,'ALAMAT',z,
b,z,'FAKULTAS',z,b,z,'JURUSAN',z,b,z,'SEMESTER',z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (h,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,
m,m,m,j,m,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,j,m,m,m,m,m,m,m,m,m,m,c);
writeln (b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,
z,z,z,b,z,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,b,z,z,z,z,z,z,z,z,z,z,b);
writeln (e,m,m,m,m,m,m,m,m,m,m,m,f,m,m,m,m,m,m,m,m,m,m,m,m,f,m,m,m,m,m,m,m,m,m,m,m,f,m,m,m,m,m,
m,m,m,f,m,m,m,m,m,m,m,m,m,m,f,m,m,m,m,m,m,m,m,m,f,m,m,m,m,m,m,m,m,m,m,k);
n:= 5;
for i:= 1 to a do
with dtmhs [i] do
begin
gotoxy (3,n); write (nama);
gotoxy (14,n); write (nim);
gotoxy (27,n); write (tempat);
gotoxy (39,n); write (alamat);
gotoxy (48,n); write (Fakultas);
gotoxy (59,n); write (jurusan);
gotoxy (69,n); write (semester);
n:= n+2;
end;
readln;
end;
function keluar : string;
begin
writeln('Anda akan Keluar dari Program, Silahkan tekan ENTER');
end;
Begin
clrscr;
textcolor(green);
repeat
clrscr;
writeln;
gotoxy(23,1); writeln ('======= DATA MAHASISWA JURUSAN =======');
gotoxy(23,2);Writeln ('1. Input Data Mahasiswa');
gotoxy(23,3);writeln ('2. Tampilkan Data Mahasiswa');
gotoxy(23,4);writeln ('3. Keluar');
writeln;
gotoxy(23,5);write ('Masukkan Pilihan [1/2/3] : '); readln (pilih);
case pilih of
1 : input;
2 : output;
3 : keluar;
end;
until pilih = 3;
readln;
end.
Iron-Steel - Titanium Engagement Rings for Her Carp
ReplyDeleteIron-Steel has the perfect ring where is titanium found for you. Set titanium white wheels up titanium bars and weave your signature jewelry with titanium ring the Iron-Steel Iron-Steel titanium damascus knives Iron-Steel Ring.