Работа с файлами

@ваня иванов · Регистрация: 30.11.2009

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

В файле F записаны целые числа.Написать программу которая в файле G записывает четные числа а в файл H-нечетные

@Snoopy · 13.02.2010, 15:57

Pascal

uses crt;
const n=20;
var a:array[1..n] of integer;
    f,g,h:text;
    i:integer;
begin
ClrScr;
Randomize;
Assign(f,'f.txt');
Rewrite(f);
for i:=1 to n do
 begin
  a[i]:=random(50)+20;
  Write(f,a[i],' ');
 end;
close(f);
Writeln('File F: ');
Reset(f);
repeat
 Read(f,a[i]);
 Write(a[i],' ');
until eof(f);
Assign(g,'g.txt');
Assign(h,'h.txt');
Rewrite(g);
Rewrite(h);
for i:=1 to n-1 do
begin
 if not odd(a[i]) then
  Write(g,a[i],' ')
 else
  Write(h,a[i],' ');
end;
close(g);
close(h);
Writeln;
Writeln('Faily zapisany...');
Readln;
end.

@Puporev · 13.02.2010, 22:02

Snoopy, А массив для чего? Читаем число, если четное в один файл, нечетное- в другой.

Pascal

Reset(f);
Assign(g,'g.txt');
Assign(h,'h.txt');
repeat
 Read(f,a);
 Write(a,' ');
 if odd(a )then write(h,a,' ')
 else write(g,a,' ');
until eof(f);

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

@ваня иванов 0 / 0 / 0 Регистрация: 30.11.2009 Сообщений: 10
		1
	Работа с файлами 13.02.2010, 15:43. Показов 1113. Ответов 2 Метки нет (Все метки) В файле F записаны целые числа.Написать программу которая в файле G записывает четные числа а в файл H-нечетные 0

	13.02.2010, 22:02

Опции темы

Работа с файлами

Решение