program pascal kalkulator sederhana

Program Kalkulator ;
Uses wincrt ;
Var X, Y      : Integer ;
    Op, Hasil : Char    ;
    Enter     : String  ;
    H         : Real    ;
Begin
  Writeln ('Cara menggunakan kalkulator ini :') ;
  Writeln ('---------------------------------') ;
  Writeln ('1. Masukkan nilai bilangan pertama     --> ENTER') ;
  Writeln ('2. Masukkan operasi bilangan yang diinginkan ') ;
  Writeln ('   ( +, -, *, / )                      --> ENTER') ;
  Writeln ('3. Masukkan nilai bilangan selanjutnya --> ENTER') ;
  Writeln ('4. Jika sudah selesai, ketik ''=''       --> ENTER') ;
  Writeln ('5. Jika belum selesai, masukkan operasi bilangan lagi') ;
  Writeln ('   Lalu masukkan angka selanjutnya     --> ENTER') ;
  Writeln ;
  Writeln ('Jika sudah mengerti, tekan ''ENTER''') ;
  Readln (Enter) ;

  Clrscr ;
  Readln (X)     ;
  Readln (Op)    ;
  Readln (Y)     ;
  Readln (Hasil) ;
  Case Op of
       '+' : H:=X+Y ;
       '-' : H:=X-Y ;
       '*' : H:=X*Y ;
       '/' : H:=X/Y ;
  End ;
  If (Hasil='=') then Writeln (H:0:2)
  else
    Begin
      Repeat
        Begin
          Readln (Y) ;
          Case Hasil of
               '+' : H:=H+Y ;
               '-' : H:=H-Y ;
               '*' : H:=H*Y ;
               '/' : H:=H/Y ;
          End ;
          H:=H ;
          Readln (Hasil) ;
        End ;
      Until (Hasil='=') ;
      Writeln (H:0:2) ;
    End ;
End.

Tweet