Sebelumnya saya sudah posting mengenai Latihan Dan Soal Untuk Program Penyeleksi Kondisi Pascal (Bagian 1) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :
1. Buatlah program untuk mengetahui harga dan besar angsurannya jika dikredit selama 10 tahun.
Adapun daftar sebagai berikut:1. Buatlah program untuk mengetahui harga dan besar angsurannya jika dikredit selama 10 tahun.
Tipe
|
Harga
|
Angsuran/Bulan
|
A
|
Rp
50.000.000
|
Rp
500.000
|
B
|
Rp
65.000.000
|
Rp
650.000
|
C
|
Rp
75.000.000
|
Rp
750.000
|
D
|
Rp
85.000.000
|
Rp
850.000
|
Program Kredit_Angsuran_Rumah;
uses crt;
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.
Gambar di Pascal
Hasil Program :
2. Ubahlah program di atas menggunakan perintah If...Then..
Jawab :
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.
Gambar di Pascal
Gambar di Pascal
Hasil Program:
Comments
Post a Comment