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.
Tidak ada komentar:
Posting Komentar