Fungsi If Then

Contoh fungsi If Then

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);
if pil-1 then
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
else if pil=2 then
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
else if pil=3 then
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
else if pil=4 then
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.


Sumber Kaconk Madureh