Contoh Pascal Fungsi If Then

Next, pada kali ini kita akan membahas penggunaan fungsi If Then..

Yang dimana pernyataan If digunakan untuk menguji sebuah kondisi. Bila kondisi yang diuji terpenuhi, program akan menjalankan pernyataan-pernyataan tertentu; dan bila kondisi yang diuji salah, program akan berhenti dan tidak menjalankan apapun.

Pada contoh kali ini saya akan memberikan contoh soal,
Program untuk mengetahui Informasi harga besar angsuran jika dikredit selama 10 Tahun.
Adapun daftarnya sebagai berikut :

 Program Tunai_Kreditt;

uses wincrt;
var
tipe,jenis:char;

begin
clrscr;
write('Pilih Tipe Rumah [A,B,C,D]= ');readln(tipe);
write('Jenis Pembayaran [T/K]    = ');readln(jenis);
Writeln;
if tipe ='A' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 50.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 500.000');
end;
end;
if tipe ='B' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 65.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 650.000');
end;
end;
if tipe ='C' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 75.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 700.000');
end;
end;
if tipe ='D' then
begin
case upcase (jenis) of
'T' :writeln('Harga Rumah= Rp. 85.000.000');
'K' :writeln('Angsuran Per Bulan=Rp. 850.000');
end;
end;

readln;
end.

======================================
Berikut hasil outputnya :