Terdapat beberapa metode konsep kondisi pada pemrograman pascal, berikut salah satu contoh kondisi menggunakan “case”

————————————————————————————————————–

uses crt;
var kelas : char;
JBrg : string ;
Pajak,harga : real ;
begin
clrscr;
write (‘Masukkan kelas barang : ‘);readln(kelas);
write (‘Masukkan Harga Barang : ‘);readln(harga);
case kelas of
‘1′ : begin
writeln (‘Jenis Barang : Makanan’);
writeln (‘Pajak :’,harga * 0.1:2:0);
end;
‘2′ : begin
writeln (‘Jenis Barang : Minuman’);
writeln (‘Pajak :’,harga * 0.2:2:0);
end;

else
begin
writeln (‘Jenis Barang : Mainan’);
writeln (‘Pajak :’,harga * 0.15:2:0);
end;
end;

readln;
end.

———————————————————————————————————————————

Penjelasan :

uses crt;            = uses adalah keyword yg bfungsi utk memanggil nama unit, crt adalah salah satu nama unit

yg dmn unit crt bfungsi agar programer dpt memakai fungsi spt clrscr;

var kelas : char; = var adalh keyword dmn bgian ini t4 programer mdeklarasix variabel, kelas adlh nm variabel

char adalah typedata yang memuat karakter

JBrg : string ;    = JBrg adalah variabel yg brtype string (kata/kalimat)

Pajak,harga : real ; = Pajak & harga adlh variabel brtype real (pecahan ex: 0.5)

begin = awal badan program

clrscr; fungsi dari unit crt yng gunanya utk membersihkan layar

write (‘Masukkan kelas barang : ‘);readln(kelas); = write adlh keyword untuk mecetak di monitor

(‘….’); adlh kata dalam kurung di apit tanda kutip satu adlh kata yg dcetak

case kelas of = awal penulisan utk penggunaan case of (seleksi/pemilihan), kelas adlh variabel yg di pilih

1′ : begin = 1 adlh salah st pilihan dari variabel kelas, begin utk memulai listing program yang satu blok

Bersambung……….