作业帮这个程序用pascal语言怎么写?
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/10/04 05:50:14
这个程序用pascal语言怎么写?
内容：输入两个数值(均不为零)及一个算术运算符,输出其运算的结果(保留两位小数）.
内容：输入两个数值(均不为零)及一个算术运算符,输出其运算的结果(保留两位小数）.
program calculator(input,output);
var
a,b,c:real;
ch:char;
Begin
readln (a);
readln(ch);
readln(b);
case ch of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
end;
writeln('Answer is:',c:0:2);
end.
var
a,b,c:real;
ch:char;
Begin
readln (a);
readln(ch);
readln(b);
case ch of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
end;
writeln('Answer is:',c:0:2);
end.