Contoh Program IF-THEN-ELSE Pada Pascal

if ... then.. else

digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah.

bentuk sintaksnya:

IF (kondisi) THEN nilai_jika_benar;

  ELSE nilai_jika_salah;

Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding

OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or

Contoh 1 :

jika nilai > 70 maka LULUS, jika tidak maka GAGAL

program kelulusan;

uses crt; 

var nilai:integer;

begin

     write('masukkan nilai anda :'); readln(nilai);

     if nilai>70 then writeln('LULUS')

     else writeln('GAGAL');

     readln; 

end.

IF Majemuk

untuk > 1 statement

Contoh 2 : 

untuk mengetahui nilai siswa

jika nilai >= 85 maka nilai A 

>=75 maka nilai B

>=65 maka nilai C

< 65 maka nilai D

program penilaian;

uses crt;

var nilai:integer;

begin

     write('masukkan nilai anda :'); readln(nilai);

     if nilai >=85 then writeln('nilai A')

     else if nilai>=75 then writeln('nilai B')

     else if nilai>=65 then writeln('nilai C')

     else writeln('nilai D');

readln;

end. 

  

SELAMAT MENCOBA :)