您所在位置：主题：有谁看出了他的错误?
rpjk
[专家分：0] 发布于 2005-04-07 13:11:00
有谁看出了这道程序的错误?
program wowo;
var w,e,r,t:real;
y,h:integer;
const x=0;c=2;
begin
writeln('w= e= r=');
readln(w,e,r);
writeln('w=',w:0:0,'e=',e:0:0,'r=',r:0:0);
begin
writeln('are you sure');
readln(y);
if y=(1) then t:=w+e;writeln(t:0:0);
while t>=c do
begin
x:=x+c;
c:=c+2;
writeln('x=',x);
end;
if y=(0) then readln(h);
writeln(h:0:0);
end;
end.
program wowo;
var w,e,r,t:real;
y,h:integer;
const x=0;c=2;
begin
writeln('w= e= r=');
readln(w,e,r);
writeln('w=',w:0:0,'e=',e:0:0,'r=',r:0:0);
begin
writeln('are you sure');
readln(y);
if y=(1) then t:=w+e;writeln(t:0:0);
while t>=c do
begin
x:=x+c;
c:=c+2;
writeln('x=',x);
end;
if y=(0) then readln(h);
writeln(h:0:0);
end;
end.
