Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

Berikut adalah contoh Program Pascal Untuk Mendapatkan Kepemilikan Mobil menggunakan If

1 Program

program KreditKepemilikanMobil;

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;

     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