Pada program akan di proses keterangan Lulus atau Gagal berdasarkan nilai pada record mahasiswa.
Jika nilai >= 50 maka keterangan Lulus jika tidak keterangan Gagal.
Berikut program untuk pemrosesan pada record di pascal.
uses crt ;
type
mahasiswa = record
nim : string[8] ;
nama : string[30] ;
jenjang: string[2] ;
prodi : string[30] ;
Nilai : byte ;
end;
var
recMhs : mahasiswa ;
ket : string[10];
Begin
Write('NIM : '); readln(recMhs.nim) ;
Write('Nama : '); readln(recMhs.nama) ;
Write('Jenjang : '); readln(recMhs.jenjang) ;
Write('Prodi : '); readln(recMhs.prodi) ;
Write('Nilai : '); readln(recMhs.nilai) ;
if recMhs.nilai>=50 then
ket := 'Lulus'
else
ket := 'Gagal' ;
clrscr ;
Writeln('Data yang anda inputkan');
Writeln('NIM : ', recMhs.nim);
Writeln('Nama : ', recMhs.nama);
Writeln('Jenjang : ', recMhs.jenjang);
Writeln('Prodi : ', recMhs.prodi);
Writeln('Nilai : ', recMhs.nilai);
Writeln('Keterangan: ', ket );
readln;
end.
Cukup mudah bukan? sebagai tambahan buat anda bahwa variabel proses tidak perlu didefinisikan pada pendefinisian record.
Sumber : Mesran.Net
