PROGRAM Kalkulator_Sederhana

Labels: kumpulan program pascal

//fandy adam e1e109053
PROGRAM Kalkulator_Sederhana;
VAR
   n1,n2,hasil : real;
   pilih : integer;

BEGIN
      Writeln('PROGRAM KALKULATOR SEDERHANA');
      Writeln('============================');
      Writeln('');
      Write('Masukkan nilai pertama : ');readln(n1);
      Write('Masukkan nilai kedua   : ');readln(n2);
      Writeln('');
      Writeln('OPERATOR');
      Writeln('1. TAMBAH');
      Writeln('2. KALI');
      Writeln('3. KURANG');
      Writeln('4. BAGI');
      Write('Masukkan pilihan : '); Readln(pilih);
      if pilih=1 then hasil:=n1+n2;
      if pilih=2 then hasil:=n1*n2;
      if pilih=3 then hasil:=n1-n2;
      if pilih=4 then hasil:=n1/n2;

      Writeln('Hasil Operasinya adalah ', hasil:0:2);

      Readln;
END.