program bayar_spp;
uses wincrt;
var
nomor, tanggal, bulan,
tahun : integer;
nama, tempat : string;
bspp, biaya, bayar,
sisa : real;
procedure isi;
begin
clrscr;
write ('Nomor : '); readln (nomor);
write ('Nama : '); readln (nama);
write ('Tempat
lahir : '); read (tempat);
write ('Tanggal
lahir : '); read (tanggal, bulan,
tahun);
end;
begin
isi;
if tanggal > 31 then
begin
writeln ('Format
tanggal salah!');
readln;
isi;
end;
if bulan > 12 then
begin
writeln ('Format bulan
salah!');
readln;
isi;
end;
if (tahun < 1994)
and (tahun > 1998) then
begin
writeln ('Format tahun
salah!');
readln;
isi;
end;
write ('Bayar
SPP/bulan : '); readln (bspp);
writeln ('Besar
biaya : ', bspp:0:0);
write ('Bayar : '); readln (bayar);
sisa:=(bayar)-(bspp);
write ('Sisa :', sisa:0:0);
end.hasil loyout program pembayaran spp
hasil loyout program pembayaran spp JIKA SALAH MEMASUKAN TANGGAL maka program akan kembali mengulang keatas dan meminta inputan baru sampai data yang dimasukan benar .
J
