UC知道电脑编程问题!!
来源：百度知道 编辑：UC知道 时间：2024/05/25 08:31:13
programPC(input,output);
var
x,y:real;
oper:char;
begin
read(x,oper);
while poer<>'=' do
begin
read(y);
case oper of
'+':x:y=x+y;
end;
read(oper);
end;
write(x)
end
显示错误是
3+2=
Runtime error 106 at $00401057
$00401057
谢谢大家哪里错了
var
x,y:real;
oper:char;
begin
read(x,oper);
while poer<>'=' do
begin
read(y);
case oper of
'+':x:y=x+y;
end;
read(oper);
end;
write(x)
end
显示错误是
3+2=
Runtime error 106 at $00401057
$00401057
谢谢大家哪里错了
program和pc之间应有空格
while poer 应改为 while oper
case oper of
'+':x:y=x+y
这句我不知道你的本意是什么
语法肯定是有错误的
而且case里只有一个分支
完全可以用if
你是不是想编写一个连续加法的程序？？
program plus(input,output);
var
x,y:real
sign:char;
begin
y:=0;
read(x,sign);
while sign<> '=' do
begin
y:=y+x;
read(x,sign);
end;
y:=y+x;
write(y);
end.
如果你肯定输入的一定是加法
就不用判断了
你也可以把它弄成四则运算的程序
不过就麻烦一点