balik lagi agan2 kali ini saya bakalan share program pascal nih kali ini tentang spp langsung aja yah nih
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.out putnya :
