Дистанционная подготовка: Почему всё время неправильно?
Почему всё время неправильно?
от Novikov Kola - Вторник 10 Март 2015, 19:44
328. Средний балл по предметам
  Здраствуйте. Объясните, пожалуйста, почему у данная программа не проходит по тестам.
uses crt;
Type point=record
x,y,z: integer;
a,b: string;
end;
l=array [1..100] of point;
Var t: l;
g,h,m: real;
i,n: integer;
s: string;
procedure stroka(var t: point; s: string);
Var i: integer;
Begin
s:=s+' ';
i:=1;
t.a:='';
while s[i]' ' do
Begin
t.a:=t.a+s[i];
i:=i+1;
End;
i:=i+1;
t.b:='';
while s[i]' ' do
Begin
t.b:=t.b+s[i];
i:=i+1;
End;
i:=i+1;
t.x:=0;
while s[i]' ' do
Begin
t.x:=ord(s[i])-ord('0');
i:=i+1;
End;
i:=i+1;
t.y:=0;
while s[i]' ' do
Begin
t.y:=ord(s[i])-ord('0');
i:=i+1;
End;
i:=i+1;
t.z:=0;
while s[i]' ' do
Begin
t.z:=ord(s[i])-ord('0');
i:=i+1;
End;
End;
Begin
Read(n);
For i:=1 to n do
Begin
Readln(s);
stroka(t[i],s);
End;
g:=0;
h:=0;
m:=0;
For i:=1 to n do
Begin
g:=g+t[i].x;
h:=h+t[i].y;
m:=m+t[i].z;
End;
g:=g/n;
h:=h/n;
m:=m/n;
writeln(g,' ',h,' ',m);
End.
Заранее спасибо за ответы!
P.S. Когда цыкл while, знаю, что надо поставить не равно. Просто при отсылке сообщения, система не считывает, наверное.
Re: Почему всё время неправильно?
от Дмитрий Гершвин - Пятница 13 Март 2015, 10:30
  http://pastie.org