KODE SOURCE PROGRAM KALKULATOR MENGGUNAKAN TURBO 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.