Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Посчитать количество и сумму элементов. Задача 
V
    Опции темы
navi
  Дата 27.9.2007, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет
Привет всем! smile  У меня проблема:
задача так: 
"Дан фаил a.txt В котором записаны целые числа в несколько строк через пробел.найти количество элементов в каждой стороке и посчитать их сумму. Результат записать в файл b.txt.
Пример:

a.txt             b.txt
1 2 3 4       4  10
 5 6 0         3   11
 7 1 1         3   9
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
volvo877
Дата 27.9.2007, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
В чем проблема? Читаешь числа из файла f, пока seekeoln(f) ложно, как только оно стало истинным - значит надо обнулять счетчик и сумму и переходит на следующую строку.
PM MAIL   Вверх
navi
  Дата 30.9.2007, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет
Цитата(volvo877 @  27.9.2007,  16:59 Найти цитируемый пост)
В чем проблема?

 smile 
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
volvo877
Дата 30.9.2007, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Код

var
  f, g: text;
  s, count, X: integer;

begin
  assign(f, '__a.txt'); reset(f);
  assign(g, '__b.txt'); rewrite(g);

  while not seekeof(f) do begin
    s := 0; count := 0;
    while not seekeoln(f) do begin
      read(f, X); inc(count); inc(s, X);
    end;
    readln(f);

    writeln(g, count, ' ', s);
  end;

  close(g);
  close(f);
end.
?
PM MAIL   Вверх
navi
  Дата 4.10.2007, 19:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 108
Регистрация: 28.4.2007
Где: Moldova

Репутация: нет
Всего: нет
Цитата(volvo877 @  27.9.2007,  16:59 Найти цитируемый пост)
пока seekeoln(f)

спасибо всё работает! smile  smile 
--------------------
 Хакер не преступник! Взлом ради искусства! Смысл в свободе!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0454 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.