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 :
Credit by : Adyt
&
My Sensei : Muhajirin Ridwan
