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

One Response so far.

  1. Topaz Rindu Nabiyallah says:

    Mas, dibawah 'write ('hasilnya: ',(hasil):5:2);' nya harusnya ada 'readln'nya...

Leave a Reply

Terima kasih sudah memberi komentar,
komentar anda sangat berguna untuk menjadikan blog ane lebih baik lagi..
jangan lupa berkunjung kembali..