您所在位置：主题：[讨论]我编的一个计算器，大家指教
sd5774188
[专家分：260] 发布于 2005-04-09 17:50:00
program yb(input,output);
var s:char;
num1,num2,jieguo:real;
begin
writeln('Please input s,num1,num2!!!');
read(s,num1,num2);
if s='+' then
jieguo:=num1+num2;
if s='-' then
jieguo:=num1-num2;
if s='*' then
jieguo:=num1*num2;
if s='/' then
jieguo:=num1/num2;
writeln('jieguo=',jieguo:10:10);
end.
var s:char;
num1,num2,jieguo:real;
begin
writeln('Please input s,num1,num2!!!');
read(s,num1,num2);
if s='+' then
jieguo:=num1+num2;
if s='-' then
jieguo:=num1-num2;
if s='*' then
jieguo:=num1*num2;
if s='/' then
jieguo:=num1/num2;
writeln('jieguo=',jieguo:10:10);
end.
