PROGRAM PASCAL KEPEMILIKAN MOBIL MENGGUNAKAN IF

PROGRAM PASCAL  KEPEMILIKAN MOBIL MENGGUNAKAN IF

Berikut ini program pascal 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.Program pascal

3.Hasilnya














Komentar

Posting Komentar

Postingan populer dari blog ini

MENGHITUNG VOLUME TABUNG DENGAN PASCAL

Gambar
MENGHITUNG VOLUME TABUNG DENGAN PASCAL Berikut adalah cara menghitung volume tabung menggunakan pascal. 1.Programnya program volume_tabung; uses crt; const phi=3.14; var    r,t,v:real; begin      clrscr;      writeln('Program Hitung Volume Tabung');      write('Masukkan jari jari alas tabung=');readln(r);      write('Masukkan tinggi tabung=');readln(t);      V :=phi*r*r*t;      writeln('Volume tabung    =',V:2:2);      readln; end. 2.Gambarnya 3.Hasilnya
Baca selengkapnya

TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL

  TABEL DISTRIBUSI FREKUENSI DATA JAMAK, NILAI MEAN, ,MEDIAN, MODUS, QUARTIL DAN DESIL Cari Tabel Distribusi Frekuensi Data Jamak, Nilai Mean, Median, Modus, Quartil dan Desil dari Soal dibawah ini! Soal NPM Ganjil 37    35   39   25   18   16   33   38    52   59   67 79    82   78   82   43   26   29    77   19   18   23 53   67   24   76   45   44   46     77    70   85   82 34   49   79   38   33   39   32      39    29   45   51 21   20    44   48 37   36   59      75    54   43   33 Penyelesaiannya :  Lihat di PDF yak kawan-kawan:'))
Baca selengkapnya

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE

MENCARI LUAS LAYANG LAYANG DENGAN MENGGUNAKAN KALIMAT DESKRIPTIF DAN PSEUDO-CODE Berikut Kalimat Deskriptif dan Pseudo-code mencari Luas Layang- layang Kalimat Deskriptif               Mulai               Masukkan nilai d1               Masukkan nilai Luas =1/2*d1*d2               Tampilan nilai Luas               Selesai Pseudo-code              Start              Variabel                          d1        : Integer                          d2        : Integer                          Luas...
Baca selengkapnya