Tuesday, December 17, 2013

PROGRAM PEMBAYARAN SPP (PASCAL)

assalamualaikum wr wb.
kali ini saya akan sharing tentang program pascal " program pembayaran spp"   

Listing Program :

program pembayaran_spp;
uses wincrt;

var
no,bln,tgl,thn:integer;
nm,tl,spp:string;
bb,byr,sisa:real;

begin
write('Nomor : ');readln(no);
write('Nama : ');readln(nm);
write('Tempat Lahir : ');readln(tl);
write('Bulan Lahir (1-12): ');readln(bln);
if bln<=12 then
begin
write('Tanggal Lahir : ');readln(tgl);
if tgl<=31 then
begin
write('Tahun Lahir : ');readln(thn);
if thn>=1995 then
begin
write('Bayar SPP Bulan : ');readln(spp);
write('Besar Biaya : ');readln(bb);
write('Bayar : ');readln(byr);
if byr>=bb then
begin
sisa:=byr-bb;
write('Kembalian : ',sisa:0:0);
end
else
begin
sisa:=bb-byr;
write('Sisa : ',sisa:0:0);
end
end
end
end
else
end.


Tampilan hasil :

Catatan :
Jika bulan lahir februari hanya sampai tanggal 29 saja, dan untuk tahun lahir dalam program ini di batasi dari tahun 1995 ke bawah.. dalam artian 1995,1996,1997 dst.. jadi kalo kita menginputkan tahun 1994 programnya akan berhenti dan tidak bisa .

Jadi intinya Format Tanggal disesuaikan seperti tanggal dalam kalender atau tidak bisa sembarangan.

sekian dulu ya postingan untuk kali ini semoga bermanfaat buat kalian semua.. dan jangan lupa koment nya ya gan bila ada kesalahan dalam kodingnya atau program tidak bisa di jalankan. agar saya dapat memperbaikinya..

No comments:

Post a Comment