Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #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;
Ответить с цитированием
  #2  
Старый 01.03.2011, 05:18
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

1. Не плохо было бы написать более подробно в чем проблема. Ну или хотя бы присоединить тестовый входной файл.
2. А если кол-во цифр во входном файле не кратно 5? Тогда у тебя на конце код потеряет одну группу чисел.
3. Я что-то не совсем уверен, что из текстового файла можно читать Integer. Попробуй чиать через строку, а потом конвертировать с помощью функции StrToInt.
Ответить с цитированием
  #3  
Старый 01.03.2011, 11:44
aerosm aerosm вне форума
Прохожий
 
Регистрация: 28.02.2011
Сообщения: 7
Репутация: 10
По умолчанию

Все разобрался.Сори за неудобства. Просто во входящем файле числа подряд записаны были , а не через пробел.

Последний раз редактировалось aerosm, 01.03.2011 в 16:15.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:51.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter