Program Pascal Pembayaran SPP Dengan Menggunakan Pascal
11:42 PM
By
Free Software And Movie
Kuliah
0
comments
Nih gan Program pembayaran SPP di program Pascal
Langsung aja kelisting programnya:
program pembayaranspp;
uses wincrt;
var
no:integer;
nama,tempat: string;
blan:string;
tgl:integer;
bln:integer;
thn:integer;
biaya,bayar,sisa:longint;
begin
write('Nomor : ');readln(no);
write('Nama : ');readln(nama);
write('Tempat Lahir : ');readln(tempat);
write('Tanggal lahir : ');readln(tgl);
if (tgl<=31) then
begin
write('bulan lahir : ');readln(bln);
end
else
begin
writeln('Inputan tidak terdeteksi');
readln;
donewincrt;
end;
if (bln<=12) then
begin
write('tahun lahir : ');readln(thn);
end
else
begin
writeln('Inputan tidak terdeteksi');
readln;
donewincrt;
end;
if (thn<=1995) then
begin
write('Bayar spp bulan : ');readln(blan);
write('Besar biaya : ');readln(biaya);
write('Bayar : ');readln(bayar);
sisa:=bayar-biaya;
writeln('Sisa : ',sisa);
end
else
writeln('Inputn tidak terdeteksi');
readln;
donewincrt;
end.
Layout:
Sekian Semoga Bermanfaat...
Read more
Langsung aja kelisting programnya:
program pembayaranspp;
uses wincrt;
var
no:integer;
nama,tempat: string;
blan:string;
tgl:integer;
bln:integer;
thn:integer;
biaya,bayar,sisa:longint;
begin
write('Nomor : ');readln(no);
write('Nama : ');readln(nama);
write('Tempat Lahir : ');readln(tempat);
write('Tanggal lahir : ');readln(tgl);
if (tgl<=31) then
begin
write('bulan lahir : ');readln(bln);
end
else
begin
writeln('Inputan tidak terdeteksi');
readln;
donewincrt;
end;
if (bln<=12) then
begin
write('tahun lahir : ');readln(thn);
end
else
begin
writeln('Inputan tidak terdeteksi');
readln;
donewincrt;
end;
if (thn<=1995) then
begin
write('Bayar spp bulan : ');readln(blan);
write('Besar biaya : ');readln(biaya);
write('Bayar : ');readln(bayar);
sisa:=bayar-biaya;
writeln('Sisa : ',sisa);
end
else
writeln('Inputn tidak terdeteksi');
readln;
donewincrt;
end.
Layout:
Dibawah ini contoh layout yang salah :