Создать файл f1 из целых чисел

@kempers · Регистрация: 08.12.2008

Author24 — интернет-сервис помощи студентам

Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5 компонент, затем из следующих 5 и т.д. Последняя группа может содержать меньше десяти компонент.

Знаю как найти наибольшее

Примерно так:

Код

while not eof(f1) do
  begin
    max:=-maxint-1;
    for i:=1 to 5 do
      begin
        read(f1,a);
        if a>max ten max:=a;
      end;
   write(f2,max);
  end;

и последнее условие

Код

assign(f1,'первый файл');reset(f1);
assign(f2,'второй файл');rewrite(f2);
while not eof(f1) do begin
  i:=1; while (i<=5)and(not eof(f1)) do begin
   read(f1,a); if a>max then max:=a;
   inc(i);
  end;
  write(f2,max);
end;

а составить задачу не получается(((

@Puporev · 17.03.2009, 13:18

Последняя группа может содержать меньше десяти компонент.

Может меньше 5?

@kempers · 17.03.2009, 13:21 **[ТС]**

нет...я перепроверял...именно меньше 10

Новые блоги и статьи
Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .	Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .

@kempers 0 / 0 / 0 Регистрация: 08.12.2008 Сообщений: 9
		1
	Создать файл f1 из целых чисел 17.03.2009, 13:12. Показов 808. Ответов 2 Метки нет (Все метки) Создать файл f1 из целых чисел. Записать в файл f2 наибольшее из первых 5 компонент, затем из следующих 5 и т.д. Последняя группа может содержать меньше десяти компонент. Знаю как найти наибольшее Примерно так: Код while not eof(f1) do begin max:=-maxint-1; for i:=1 to 5 do begin read(f1,a); if a>max ten max:=a; end; write(f2,max); end; и последнее условие Код assign(f1,'первый файл');reset(f1); assign(f2,'второй файл');rewrite(f2); while not eof(f1) do begin i:=1; while (i<=5)and(not eof(f1)) do begin read(f1,a); if a>max then max:=a; inc(i); end; write(f2,max); end; а составить задачу не получается((( 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.03.2009, 13:18	2
	Последняя группа может содержать меньше десяти компонент. Может меньше 5? 0

@kempers 0 / 0 / 0 Регистрация: 08.12.2008 Сообщений: 9
	17.03.2009, 13:21 [ТС]	3
	нет...я перепроверял...именно меньше 10 0