PROGRAM PASCAL DENGAN 4 IF

Statement If akan diikuti oleh ekspresi (sebagai kondisi yang akan diperiksa) dan selalu berpasangan dengan kata kunci Then. Apabila statemen yang akan dilakukan hanya satu maka kita tidak perlu menuliskan blok Begin.... end. Namun apabila statemen lebih dari satu blok  Begin .... end harus dituliskan.

Untuk perintah If pemograman Pascal terdiri dari 3 jenis yaitu :

1. IF Satu Kasus (IF-THEN)

1. IF Dua Kasus (IF- THEN-ELSE)

1. IF Tiga Kasus atau lebih

untuk contoh saya mengambil penerapan 4 If dalam Program Pascal, Coba perhatikan :

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.

Maka jika ditampilkan atau di Run pada Program Pascal adalah sebagai berikut : 

Nah ada satu lagi contoh yang saya ambil untuk penerapan 4 If dalam Program Pascal, yaitu Program Konversi Nilai sebagai berikut:

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');

Dan  jika ditampilkan atau di Run pada Program Pascal adalah sebagai berikut : 

 

  

Sekian yang bisa saya share untuk contoh penerapan 4 If pada Program Pascal, Semoga Bermanfaan buat kita semua,.... :)