您所在位置：主题：NOIP2006普及组pascal的某题！不解！
Joyman
[专家分：70] 发布于 2006-10-22 08:43:00
大家好，昨天刚考完试，没有了信心。
第三大题的第一小题，我写了“10,10”回家验证，它却提示"Error 113:Error in statement"，这是什么原因？
注：我用的是TP。
原程序如下：
program ex301;
var
u:array[0..3] of integer;
i,a,b,x,y:integer;
begin
y:=10;
for i:=0 to 3 do
read(u[i]);
a:=(u[0]+u[1]+u[2]+u[3]) div 7;
b:=u[0] div ((u[1]-u[2]) div u[3]);
x:=(u[0]+a+2)-u[(u[3]+3) mod 4];
if (x>10) then
y:=y+(b*100-u[3]) div (u[u[0] mod 3]*5)
else
y:=y+20+(b*100-u[3]) div (u[u[0] mod 3]*5);
writeln (x,',',y);
end.{*注：本例中，给定的输入数据可以避免分母为0或下标越界。}
输入：9 3 9 4
输出：[u] [/u]
第三大题的第一小题，我写了“10,10”回家验证，它却提示"Error 113:Error in statement"，这是什么原因？
注：我用的是TP。
原程序如下：
program ex301;
var
u:array[0..3] of integer;
i,a,b,x,y:integer;
begin
y:=10;
for i:=0 to 3 do
read(u[i]);
a:=(u[0]+u[1]+u[2]+u[3]) div 7;
b:=u[0] div ((u[1]-u[2]) div u[3]);
x:=(u[0]+a+2)-u[(u[3]+3) mod 4];
if (x>10) then
y:=y+(b*100-u[3]) div (u[u[0] mod 3]*5)
else
y:=y+20+(b*100-u[3]) div (u[u[0] mod 3]*5);
writeln (x,',',y);
end.{*注：本例中，给定的输入数据可以避免分母为0或下标越界。}
输入：9 3 9 4
输出：[u] [/u]
