text maarque kanan

INGATKAN DIRIMU UNTUK MENGATUR SEGALA SESUATU SUDAH DI ATUR ALLOH

salju

Minggu, 25 Desember 2011

program kalkulator;
uses wincrt;
var
 x,y,hasil:real;
 jawab:char;
begin
     write('masukkan angka ke-1:');readln(x);
     write('pilih operator:(+)/(-)/(*)/(/)');readln(jawab);
     write('masukkan 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.

Tidak ada komentar:

Posting Komentar