1. Program untuk mengetahui harga dan besar angsurannya jika dikredit selama 10 tahun.
Adapun daftarnya sebagai berikut.
Program Kredit_Angsuran_Rumah;
uses crt;
var
tipe, jenis: char;
begin
clrscr;
writeln(' PROGRAM KREDIT ANGSURAN RUMAH ');
writeln('-----------------------------------');
write('Tipe Rumah [A,B,C,D]= ');readln (tipe);
write('Jenis Pembayaran [T/K]= ');readln(jenis);
writeln('-----------------------------------');
case upcase(tipe) of
'A' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 50.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 500.000');
End;
End;
'B' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 65.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 650.000');
End;
End;
'C' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 75.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 750.000');
End;
End;
'D' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 85.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 850.000');
End;
End;
End;
readln;
end.
jika sudah di ketik maka Hasilnya seperti di bawah ini :
Adapun daftarnya sebagai berikut.
Nah langsung saja ketikan scrib dibawah ini di pascal
uses crt;
var
tipe, jenis: char;
begin
clrscr;
writeln(' PROGRAM KREDIT ANGSURAN RUMAH ');
writeln('-----------------------------------');
write('Tipe Rumah [A,B,C,D]= ');readln (tipe);
write('Jenis Pembayaran [T/K]= ');readln(jenis);
writeln('-----------------------------------');
case upcase(tipe) of
'A' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 50.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 500.000');
End;
End;
'B' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 65.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 650.000');
End;
End;
'C' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 75.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 750.000');
End;
End;
'D' : begin
case upcase(jenis) of
'T' : writeln('Harga Rumah = Rp. 85.000.000');
'K' : writeln('Angsuran Per Bulan = Rp. 850.000');
End;
End;
End;
readln;
end.
jika sudah di ketik maka Hasilnya seperti di bawah ini :
Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya
2. Trus
selanjutnya, bagaimana jika kita ingin mengubah program di atas
menggunakan perintah IF, langsung saja ketikkan scrib di
bawah ini
Program Tugas_3;
uses crt;
var
jenis:char;
tipe: char;
begin
clrscr;
writeln(' PROGRAM KREDIT ANGSURAN RUMAH ');
writeln('-----------------------------------');
writeln;
write('Tipe Rumah [A,B,C,D] = ');readln(tipe);
write('Jenis Pembayaran [T/K] = ');readln(jenis);
writeln('-----------------------------------');
writeln;
if tipe= 'A' then
begin
if jenis= 'T' then
begin
writeln('Harga Rumah = Rp. 500.000.000 ');
end
else if jenis= 'K' then
begin
writeln('Angsuran Per Bulan = Rp. 500.000 ');
end;
end
else if tipe= 'B' then
begin
if jenis= 'T' then
begin
writeln('Harga Rumah = Rp. 650.000.000 ');
end
else if jenis= 'K' then
begin
writeln('Angsuran Per Bulan = Rp. 650.000 ');
end;
end
else if tipe= 'C' then
begin
if jenis= 'T' then
begin
writeln('Harga Rumah = Rp. 750.000.000');
end
else if jenis= 'K' then
begin
writeln('Angsuran Per Bulan = Rp. 750.000');
end;
end
else if tipe= 'D' then
begin;
if jenis= 'T' then
begin
writeln('Harga Rumah = Rp. 850.000.000');
end
else if jenis= 'K' then
begin
writeln('Angsuran Per Bulan = Rp. 850.000');
end;
end;
writeln;
writeln('-----------------------------------');
readln;
end.
jika sudah di ketik maka Hasilnya seperti di bawah ini :
Nah Setelah di RUN --> Ctrl+F9 ,, Hasilnya
Trimakasih udah nyimak penjelasannya yaaaa bro / sis :) Join ...
