UC知道求以下程序结果.
来源：百度知道 编辑：UC知道 时间：2024/06/24 04:26:06
program:1
var:x ,x1 ,x2,i:integer;
begin
x1:=8;
x2:=3;
for i:=1 to 5 do
x:=(x1+x2)*2;
x1;=x2,x2:=x;
writeln:('x=',x);
writeln:('x1=',x1);
write:('x2=',x2)
end.
var:x ,x1 ,x2,i:integer;
begin
x1:=8;
x2:=3;
for i:=1 to 5 do
x:=(x1+x2)*2;
x1;=x2,x2:=x;
writeln:('x=',x);
writeln:('x1=',x1);
write:('x2=',x2)
end.
程序运行结果如下：
x=22
x1=3
x2=22
不过那是在我修改以后，你的程序无数多个错误，正确的程序如下：
program P1;
var x,x1,x2,i:integer;
begin
x1:=8;
x2:=3;
for i:=1 to 5 do
x:=(x1+x2)*2;
x1:=x2;x2:=x;
writeln('x=',x);
writeln('x1=',x1);
write('x2=',x2)
end.
算出结果是
X=1064 ，X1=388，X2=1064
不过没学过这语言，我用其他语言按我理解的意思改写了，是循环五次么。
在相对应的软件上运行一下即可啊！