Pada Postingan Kali ini adalah Cara Membuat Program Record dengan Menggunakan Pascal.
Okehh.. Langsung Simak aja yaa sobat listing dan Outputnya ^_^
Source : Cody Coding
Nama program : Program record
Fungsi : Menggunakan record pada pemrograman pascal
Listing Programnya :
uses crt;
type mahasiswa = RECORD
NPM : String;
Nama : String;
Thnmasuk: Integer;
ket : String;
end;
var
mhs : Array[1..50] of mahasiswa;
x,y,z:Integer;
begin
clrscr;
writeln(������������������);
writeln(� PROGRAM RECORD �);
writeln(������������������);
write (� banyak data mahasiswa yang akan dimasukkan: �);
readln (x);
writeln();
for y:=1 to x do
begin
with mhs[y] do
begin
write(� NPM mahasiswa : �);
readln(NPM);
write(� Nama mahasiswa : �);
readln(Nama);
write(� Tahun masuk : �);
readln(Thnmasuk);
writeln();
end;
end;
clrscr;
writeln();
writeln(� DAFTAR NAMA MAHASISWA �);
writeln(������������������������-�);
writeln(�| NO | NPM | NAMA | TAHUN MASUK | KET |�);
writeln(������������������������-�);
for y:=1 to x do
begin
gotoxy(1,y+5);write(�|�);
gotoxy(3,y+5);write(y);
with mhs[y] do
begin
gotoxy(6,y+5);write(�|�);
gotoxy(8,y+5);
write(NPM);
gotoxy(18,y+5);write(�|�);
gotoxy(20,y+5);
write(Nama);
gotoxy(45,y+5);write(�|�);
gotoxy(51,y+5);
write(Thnmasuk);
gotoxy(60,y+5);write(�|�);
z := 2010 � Thnmasuk;
if z>3 then ket := �senior� else
ket:=�junior�;
gotoxy(63,y+5);
write(ket);
gotoxy(70,y+5);write(�|�);
end;
end;
writeln();
writeln(������������������������-�);
readln;
end.
* * *
Maka Output dari Program nantinya akan Seperti ini :
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :