Nah, setelah tau definisi Record Pascal, sekarang saya akan memberi contoh penggunaannya dalam bentuk record mahasiswa.
Yang dimana, mahasiswa angkatan 2010 keatas adalah SENIOR, sedangkan mahasiswa 2010 dan seterusnya adalah JUNIOR. Contoh : 2011, 2012, 2013, 2014 (JUNIOR).
=============================================
Program RecordMahasiswa;
uses wincrt;
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(19,y+5);write('|');
gotoxy(21,y+5);
write(Nama);
gotoxy(45,y+5);write('|');
gotoxy(51,y+5);
write(Thnmasuk);
gotoxy(60,y+5);write('|');
z := 2014 - 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.
=====================================================
Berikut hasil outputnya :
ini juga copas : http://adyt88.blogspot.com/2014/12/contoh-pascal-record.html
0 komentar:
Posting Komentar