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