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.
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