Contoh Program Pascal "Pendaftaran Mahasiswa Baru"
program
daftar_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('------------------------------------------------');
writeln(' Pendaftaran Mahasiswa Baru ');
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.
Print Screen
Jika Anda menginputkan tanggal lahir yang salah, seperti contoh di bawah (30 02 1994) maka akan ada peringatan "Tanggal salah !!!" dan akan memulai menginputkan tanggal lahir lagi...
Tanggal lahir seperti contoh di bawah sudah benar, sehingga dapat menginputkan data selanjutnya. . . ^.^
