Kalkulator Sederhana Di Pascal

Dibawah ini adalah scrip untuk membuat kalkulator sederhana di pascal:

uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
  write ('masukan angka ke-1 : ');readln (x);
  write ('pilih operator: (+)/(-)/(*)/(/)' );readln (jawab);
  write ('masukan angka ke-2 : ');readln (y);
  if ( jawab= '+') then
  begin
    hasil:= x+y
  end;
  if ( jawab = '-') then
  begin
    hasil:= x-y
  end;
  if ( jawab = '*') then
  begin
    hasil:= x*y
  end;
  if (jawab='/') then
  begin
    hasil:= x/y
  end;
  write ('hasilnya: ',(hasil):5:2);
end.

dibawah ini outputnya:

selamat mencoba..


sumber : www.nusinau.com