Program Kalkulator dengan Case dan IF pada Turbo Pascal

Tweet

Program Kalkulator dengan Case dan IF pada Turbo Pascal - Kali ini kita akan berbicara bagaimana membuat kalkulator sederhana dengan Case dan IF. Program ini dibuat untuk perhitungan penjumlahan, pengurangan, perkalian dan pembagian. Langsung simak saja!

Program Kalkulator dengan Case pada Turbo Pascal:

program kalkulator;
uses crt;
var
   satu,dua : integer;
   hasil : real;
   kar : char;
begin
clrscr;
       writeln('Bilangan Pertama : ');readln(satu);
       writeln('Bilangan Kedua   : ');readln(dua);
       write('Pilihan              : ');readln(kar);
case kar of
     '+' : begin
                hasil := satu + dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '-' : begin
                hasil := satu - dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '*' : begin
                hasil := satu * dua;
                write('Hasil : ' , hasil:0:2);
           end;
     '/' : begin
                hasil := satu / dua;
                write('Hasil : ' , hasil:0:2);
           end;
end;
readkey;
end.

Program Kalkulator dengan IF pada Turbo Pascal:

program perkalian_dengan_if;
uses crt;
var
a,b:integer;
opt:char;
begin
clrscr;
       write('Bil 1 : ');readln(a);
       write('Bil 2 : ');readln(b);
       write('Opt : ');readln(opt);
       if opt = '+' then
       write('hasil : ', a + b)
       else
       if opt = '-' then
       write('hasil : ', a - b)
       else
       if opt = '*' then
       write('hasil : ', a * b)
       else
       if opt = '/' then
       write('hasil : ', a div b);
readkey;
end.

Maka hasil output Program Kalkulator dengan Case dan IF pada Turbo Pascal:

Maka, demikianlah artikel Program Kalkulator dengan Case dan IF pada Turbo Pascal, semoga dapat membantu Anda untuk lebih paham. Terima kasih telah membaca artikel diatas.