membuat simple calculator dengan pascal

Contoh program penghitungan dengan pascal :

 

uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
  write ('masukan angka pertama:');readln (x);
  write ('pilih operator: (+)or(-)or(*)or(/)');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;
  writeln ('hasilnya: ',(hasil):5:2);
  writeln ('press any key to exit');
  readln;
end.

 

hasilnya :

download disini (.EXE)

<click here>

download disini (.PAS)

<click here>

Leave a Reply