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.
Kalau sudah di ketik maka tampilannya akan seperti dibawah ini
Dan setelah di run maka tampilannya akan seperti bibawah ini
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.
Kalau sudah di ketik maka tampilannya akan seperti dibawah ini
Dan setelah di run maka tampilannya akan seperti bibawah ini
Sama saja kan dengan yang no. 1 tapi yang if agak lebih ribet dan panjang scribnya
0 komentar:
Posting Komentar