Fungsi Case Of pada Pascal

Contoh pemrograman pascal fungsi case of dalam menu pilihan.

uses crt;
var
pil : integer;
a,b,c : integer;
d : real;
begin
clrscr;
writeln('Menu Calculator');
writeln('=================');
writeln('1. Penambahan');
writeln('2. Pengurangan');
writeln('3. Perkalian');
writeln('4. Pembagian');
writeln('=================');
write('Pilihan anda : '); readln(pil);
case pil of
1: begin
writeln('Penambahan');
write('Masukkan angka 1 : '); readln(a);
write('Masukkan angka 2 : '); readln(b);
c:=a+b;
write('Jadi hasil jumlah angka 1 dengan angka 2 adalah : ',c);
readln;
end;
2: begin
writeln('Pengurangan');
write('Masukkan angka 1 : '); readln(a);
write('Masukkan angka 2 : '); readln(b);
c:=a-b;
write('Jadi hasil jumlah angka 1 dengan angka 2 adalah : ',c);
readln;
end;
3: begin
writeln('Perkalian');
write('Masukkan angka 1 : '); readln(a);
write('Masukkan angka 2 : '); readln(b);
c:=a*b;
write('Jadi hasil jumlah angka 1 dengan angka 2 adalah : ',c);
readln;
end;
4: begin
writeln('Pembagian');
write('Masukkan angka 1 : '); readln(a);
write('Masukkan angka 2 : '); readln(b);
d:=a/b;
write('Jadi hasil jumlah angka 1 dengan angka 2 adalah : ',d:2:2);
readln;
end;
end;
end.

Semoga bermanfaat

di post oleh sulhan ijmal