CONTOH PROGRAM PASCAL DENGAN IF DAN PROSEDUR

Program Genap

program genap;

uses wincrt;

var

x : integer;

begin

write('masukkan angka =');read (x);

if x mod 2=0 then

write('genap')

else

write('ganjil')

end.

Program Konversi Suhu

Program Konversi_Suhu_Aziz;

Uses WinCrt;

var f,c:real;

begin

Writeln('Program Konversi Fareinheit Ke Celcius');

Writeln('======================================');

Writeln;

Write('Masukan Suhu dalam Farenheit: ');readln(f);

c:=5/9*(f-32);

Writeln;

Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

end.

Program konversi waktu

Program Konversi_Waktu_Aziz;

Uses Wincrt;

Var j,m,d,h:integer;

begin

Writeln('Program Konversi Waktu Aziz');

Writeln('======================');

Writeln;

Write('Masukkan Jumlah Jam : ');readln(j);

Write('Masukkan Jumlah Menit : ');readln(m);

Writeln;

h:=(j*3600)+(m*60);

Writeln('Jadi Hasil Konversi : ',h,' Detik');

end.

Program Hak Pilih

program hakpilih;

uses wincrt;

var  KWN, KS, umur : integer;

     nama : string;

begin

     writeln('=========== Panduan ===========');

     writeln('kode warga Negara : ');

     writeln('1.WNI');

     writeln('2.WNA');

     writeln('kode status : ');

     writeln('1.menikah');

     writeln('2.tidak menikah');

     writeln('===============================');

     write('masukan nama : '); readln(nama);

     write('masukan kode KWN : ' ); readln(KWN);

     if KWN = 1 then

        begin

        write('masukan umur : '); readln(umur);

        if umur >= 17 then writeln(nama, ' sudah termasuk hak pilih')

        else

            begin

            write('masukan kode status : '); readln(KS);

            if KS = 1 then writeln(nama, ' sudah termasuk hak pilih')

            else writeln(nama, ' belum termasuk hak pilih');

            end;

       end

     else

           writeln(nama, ' belum termasuk hak pilih ');

end.

Program Konversi

program konversi_nilai;

uses wincrt;

var n:integer;

nama,pelajaran: string;

begin

writeln('Program Konversi Nilai Nur Sumiati');

writeln('==================================');

writeln('masukkan nama: ');readln(nama);

writeln('masukkan pelajaran: ');readln(pelajaran);

writeln('masukkan nilai: ');readln(n);

writeln;

writeln;

writeln;

writeln('HASIL');

writeln('Nama : ',nama);

writeln('Pelajaran : ',pelajaran);

if(n>=85)and(n<=100) then writeln('Anda mendapatkan nilai A = sangat baik');

if(n>=75)and(n<=84) then writeln('Anda mendapatkan nilai B = baik');

if(n>=65)and(n<=74) then writeln('Anda mendapatkan nilai C = cukup');

if(n>=0)and(n<=64) then writeln('Anda mendapatkan nilai D = kurang');

end.      

Program Belanja

program belanja;

uses wincrt;

var j:real;

begin

writeln('Program Hadiah Belanja Nur Sumiati');

writeln('======================');

writeln('Berapa total belanja anda?Rp. ');readln(j);

if (j>=200000) then

writeln('Selamat anda mendapatkan hadiah BONEKA');

if (j>=150000)and(j<=199999) then

writeln('Selamat anda mendapatkan hadiah HANDUK');

if (j>=100000)and(j<=149999) then

writeln('Selamat anda mendapatkan hadiah KANEBO');

if (j>50000)and(j<=99999)then

writeln('Selamat anda mendapatkan hadiah Sapu Tangan');

if (j<=49999) then

writeln ('Maaf anda tidak mendapatkan hadiah');

end.

Program Promo

program promo;

uses wincrt;

var beli:real;

begin

writeln('Program Promosi Produk TOP Kopi Nur');

writeln('==================================');

writeln;

writeln('Pembelian kopi : ');readln(beli);

writeln;                                                 

writeln;

if (beli>=15) then writeln('gratis 4');

if (beli>=10)and(beli<=14) then writeln('gratis 3');

if (beli>=5)and(beli<=9) then writeln('gratis 2');

if (beli>=2)and(beli<=4) then writeln('gratis 1');

if (beli<=2) then writeln('gratis seduh');

end.

 

 Program Liburan

program liburan;

uses wincrt;

var uang:real;

begin

writeln('Paket Hemat Liburan');

writeln('===================');

writeln;

writeln('Berapa uang yang anda miliki: ');

readln(uang);  

writeln;

writeln;

if uang>=200000 then writeln('cukup untuk liburan ke pangandaran');

if (uang>100000)and(uang<=199999) then writeln('cukup untuk liburan ke icakan');

if (uang>=50000)and(uang<=99999) then writeln('cukup untuk liburan ke karang kamulyan');

if (uang<=50000) then writeln('hanya cukup untuk liburan ke kuburan, wkwkwkwk');

end.