Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

Nahhh ini adalah salah satu program pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan if

1. Programnya

Program KreditPemilikanMobil;
uses crt;
var
   Ptetap, Ptambahan, Pkeluarga, JumlahP: real;
begin
     clrscr;
     Writeln('Program Kredit Pemilikan Mobil');
     Write('Input Gaji Pokok           :');readln(Ptetap);
     Write('Input Gaji Tambahan        :');readln(Ptambahan);
     Write('Input Gaji Keluarga        :');readln(Pkeluarga);

     Ptambahan := Ptambahan/2;
     PKeluarga := Pkeluarga/3;

     JumlahP :=Ptetap+PTambahan+PKeluarga;
     Writeln('Jumlah Pendapatan        Rp:',JumlahP:0:0);

     if JumlahP >=1000000 then
        Writeln('Mendapat Kredit Sedan')
     else if (JumlahP>500000) and (JumlahP<1000000) then
        Writeln('Mendapat Kredit Minibus')
     else
         Writeln('Tidak Berhak Mendapat Kredit');

     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program