Показать сообщение отдельно
  #1  
Старый 01.03.2011, 00:17
aerosm aerosm вне форума
Прохожий
 
Регистрация: 28.02.2011
Сообщения: 7
Репутация: 10
По умолчанию Помогите с кодом в Делфи. Что здесь неправильно?

Дан файл целых чисел. Создать файл действительных чисел , компонентами которого будут среднее арифметическое каждых 5 подряд записаных чисел.
В чем ошибка?

Код:
var f,g:textfile;
    i,k,s:integer;
begin
assignFile(f,'C:\input.txt');
reset(f);
assignFile(g,'C:\output.txt');
rewrite(g);
k:=0;
s:=0;
while (not eof(f))do
begin
readln(f,i);
if k<5 then
begin
s:=s+i;
k:=k+1;
end
else
begin
writeln(g,s/5:3);
s:=0;
k:=0;
end;
end;
closefile(f);
closefile(g);
end;
Ответить с цитированием