Listing Program Mahasiswa Baru
program maba;
uses wincrt;
type
mhs = record
no : string [4] ;
Nm :string [30];
asal : string [20] ;
tmp : string [20];
d,m,y: integer;
by, gd,tot: real;
end;
var data:mhs;
begin
with data do
begin
writeln('Pendaftaran Mahasiswa Baru');
writeln('--------------------------');
write('Masukkan Nomor
:'); readln(no);
write('Masukkan Nama
:'); readln(nm);
writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
write ('Tanggal Lahir [DD MM
YYYY] : '); readln(d,m,y);
case m of
1,3,5,7,8,10,12:begin
if (d>31) then
writeln('Tanggal
salah')
else
writeln('Contoh
Format Tanggal [12 12 1994] Gunakan spasi');
write ('Tanggal Lahir [DD MM
YYYY] : '); readln(d,m,y);
end;
4,6,9,11:begin
if (d>30) then
writeln('Tanggal salah')
else
writeln('Contoh Format
Tanggal [12 12 1994] Gunakan spasi');
write ('Tanggal Lahir [DD MM
YYYY] : '); readln(d,m,y);
end;
2:begin
if (y mod 4=0) then
begin
if (d>29) then
writeln('Tanggal salah')
else
writeln('Contoh Format Tanggal
[12 12 1994] Gunakan spasi');
write ('Tanggal Lahir [DD MM
YYYY] : '); readln(d,m,y);
end
else
begin
if (d>28) then
writeln('Tanggal salah')
else
writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
write ('Tanggal Lahir [DD MM
YYYY] : '); readln(d,m,y);
end;
write('Asal Sekolah
:'); readln(asal);
write('Biaya Pendaftaran
:'); readln(by);
write('Uang Gedung
:'); readln(gd);
tot:=by+gd;
writeln('Total
:',tot:0:0);
end;
end;
writeln;
writeln;
writeln(' Laporan ');
writeln('--------------------------');
writeln('Masukkan Nomor
:',data.no);
writeln('Masukkan Nama
:',data.nm);
writeln('Tanggal Lahir
:',data.d,m,y);
writeln('Asal Sekolah
:',data.asal);
writeln('Biaya Pendaftaran
:',data.by:0:0);
writeln('Uang Gedung
:',data.gd:0:0);
writeln('Total
:',data.tot:0:0);
end;
end.
tampilan
