找到帕斯卡语言来设计一个可以加、减、乘和除的计算器

据说它会协调空格==，所以复制时最好注意。

varresult,x,y:real;

ch:char;

flag:boolean;

beginreadln(x,y);

readln(ch);

result:=0;

flag:=true;

case ch of

:result:=x+y;

:result:=x-y;

:result:=x*y;

:if y <>0 then

result:=x/y;

elseflag:=false;

end;if flag then writeln(result:0:2)

else writeln('error');

end.

标题说可以添加 +，- 不是必需的。

因此，当输入不是正数时，它不会执行任何 if（） 语句。

修改：读取 st1 和 st2 后添加。

if not (st1[1] in ['then st1:='st1;

if not (st2[1] in ['then st2:='st2;

此外，您的减号流程中存在错误：

如果计算 899-900，则结果是 -999，正确的结果是 -1if c[l+1]<0 then write（'- 这句话：表示您正在计数 [1st1]-[st2]（1st1] 表示字符串前面有 1）。

因此，您应该修改：

if c[l+1]>0 then beginwrite('-

minus(st2,st1);

exit;end;

跑步时有一个方框，看上面，蓝色的数字，十几个，再按空格，就会显示**错，自己改吧！

算术运算符。

常用的算术运算符有 6 种：

（加）减）。

（乘以）实数除以）得到实数类型的结果。例如，5 2=

4 2 = 不等于 2。

div 可分割）。

div 它要求除数和被除数都是整数，结果也是一个整数。 如10个

div2=5,10

div3=3,5div

15div4=运算只取商的整数部分，div运算涉及的两个对象不能是实数。

mod remainder），只能用于整数算术，结果为整数。例如：10mod4=2

mod4=-1,4mod

mod3=1，即。

amodb=a-(a

divb)*b。