text maarque kanan

INGATKAN DIRIMU UNTUK MENGATUR SEGALA SESUATU SUDAH DI ATUR ALLOH

salju

Minggu, 25 Desember 2011

kalkulator pengulangan

program kalkulator_pengulangan;
uses wincrt;
var
 x,y,hasil:real;
 jawab,lagi:char;
begin
     lagi := 'Y';
     while (lagi='Y') or (lagi='y') do
  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);
         writeln;
         writeln;
    writeln('ingin mengulang(Y/T)?');
    readln(lagi);
    clrscr;
  end;
end.

Tidak ada komentar:

Posting Komentar