Function & IF

program Function_Pascal;
uses crt;

function harga(kode:string):real;
begin
if (kode='MLT30') then
harga:=115000000
else if(kode='MLT45') then
harga:=170000000
else if(kode='MLT54') then
harga:=225000000
else
harga:=0;
end;

function diskon(kode,jenis:string; harga:real):real;
begin
if (kode='MLT30') and (jenis='Tunai') then
diskon:= 0.2*harga
else if (kode='MLT45') and (jenis='Tunai') then
diskon:=0.15*harga
else if (kode='MLT54') and (jenis='Tunai') then
diskon:=0.1*harga
else
diskon:=0;
end;

function ppn(harga,diskon:real):real;
begin
ppn:=0.1*(harga-diskon);
end;

function total(harga,diskon,ppn:real):real;
begin
total:= harga-diskon+ppn;
end;


{Program Utama}
label lagi;
var
nama, kd_rmh, jns_beli:string;
hrg_rmh, disc, pajak, tot_bay:real;
jawab:char;
begin lagi:
clrscr;
write('Masukkan nama pembeli : ');readln(nama);
write('Masukkan kode rumah [MLT30/MLT45/MLT54] : ');readln(kd_rmh);
write('Masukkan jenis pembelian [Tunai/Kredit] : ');readln(jns_beli);
hrg_rmh:=harga(kd_rmh);
disc:=diskon(kd_rmh,jns_beli,hrg_rmh);
pajak:=ppn(hrg_rmh,disc);
tot_bay:=total(hrg_rmh,disc,pajak);
clrscr;
writeln(' Perumahan RSS ');
writeln('------------------------');
writeln('Nama pembeli : ', nama);
writeln('Harga rumah : ', hrg_rmh:0:0);
writeln('Diskon : ', disc:0:0);
writeln('PPn : ', pajak:0:0);
writeln('Total bayar : ', tot_bay:0:0);
readln;
write('Ingin input lagi [Y/T] : ');readln(jawab);
if jawab='Y' then goto lagi;
end.