CONTOH PROGRAM SEDERHANA PASCALL
PERUM.PAS
uses wincrt;
var
nama,byr,jangka:string;
hrg,per_bln,tipe,dp:real;
I,N:integer;
begin
writeln(' PERUM ASRI');
writeln(' Jl. Diponegoro No 4-5');
writeln(' Ungaran');
writeln('_____________________________________________________________');
writeln;
writeln('Melayani Penjualan Tunai/Kredit');
writeln('Macam Tipe Rumah');
writeln('1. Tipe 21');writeln('2. Tipe 36');writeln('3. Tipe 42');
writeln;
write('Jumlah Pembeli:');readln(N);writeln;
for I:=1 to N do
begin
write('Nama Pembeli : ');readln(nama);
write('Tipe Rumah : ');readln(tipe);
write('Pembayaran : ');readln(byr);
write('Jangka Waktu : ');readln(jangka);
writeln;
if tipe=21 then
begin
if byr='Tunai' then
begin
hrg:=100000000;
end
else
begin
hrg:=150000000;
dp:=25000000;
if jangka='5 thn'then
begin
per_bln:=2083000;
end
else
if jangka='10 thn' then
begin
per_bln:=1100000;
end
else
begin
per_bln:=725000;
end;
end;
end
else
if tipe=36 then
begin
if byr='Tunai' then
begin
hrg:=180000000;
end
else
begin
hrg:=210000000;
dp:=30000000;
if jangka='5 thn' then
begin
per_bln:=3000000;
end
else
if jangka='10 thn' then
begin
per_bln:=1550000;
end
else
begin
per_bln:=1100000;
end;
end;
end
else
begin
if byr='Tunai' then
begin
hrg:=250000000;
end
else
begin
hrg:=300000000;
dp:=50000000;
if jangka='5 thn' then
begin
per_bln:=4166000;
end
else
if jangka='10 thn' then
begin
per_bln:=2100000;
end
else
begin
per_bln:=1400000;
end;
end;
end;
writeln('_______________________________________');
writeln(' Harga Rumah : Rp.',hrg:10:2);
writeln(' Uang Muka : Rp.',dp:10:2);
writeln(' Angsuran Per/bln : Rp.',per_bln:10:2);writeln;
end;
end.
Tidak ada komentar:
Posting Komentar