Pada program tersebut juga diberikan perintah baru yaitu WITH. Kegunaan WITH ini untuk melakukan penghematan penulisan record nya, lihat pada bagian menampilkan informasi, cukup dituliskan saja nama fieldnya yaitu nim, nama, jenjang, prodi dan nilai. Berbeda saat input, lihat selalu ditulis recMhs nya.
Berikut program menampilkan lebih 1 record pada pascal.
uses crt ;
type
mahasiswa = record
nim : string[8] ;
nama : string[30] ;
jenjang: string[2] ;
prodi : string[30] ;
Nilai : byte ;
end;
var
recMhs : array[1..30] of mahasiswa ;
ket : string[10];
i : byte ;
Begin
for i:= 1 to 3 do
begin
Write('NIM : '); readln(recMhs[i].nim) ;
Write('Nama : '); readln(recMhs[i].nama) ;
Write('Jenjang : '); readln(recMhs[i].jenjang) ;
Write('Prodi : '); readln(recMhs[i].prodi) ;
Write('Nilai : '); readln(recMhs[i].nilai) ;
End;
clrscr ;
writeln ('----------------------------------------------------------------------------') ;
writeln ('No NIM Nama Jenjang Prodi Nilai Keterangan') ;
writeln ('----------------------------------------------------------------------------') ;
for i := 1 to 3 do
begin
with recMhs[i] do
begin
if nilai>=50 then
ket := 'Lulus'
else
ket := 'Gagal' ;
writeln (i:2,' ',nim:8,' ', nama:20,' ',jenjang,' ',prodi:20,' ',nilai:3,' ',ket) ;
end;
end;
writeln ('----------------------------------------------------------------------------') ;
readln;
end.
Asik banget ! Kelemahannya dari output program diatas tampilannya tidak sejajar, hal ini disebabkan karna tidak menggunakan pemakaian gotoxy.
Demikianlah artikel Menampilkan Lebih 1 Record Pada Pascal ini dan semoga anda semakin tertarik untuk belajar bahasa pemrograman.
Terima Kasih.
Sumber : Mesran.Net
