Дан файл целых чисел. Создать два новых файла, в первый записать чётные числа исходного, во второй - нечётные

@Leonardo70 · Регистрация: 15.06.2012

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

Дан файл целых чисел. Создать два новых файла, первый из которых содержит чётные числа из исходного файла, а второй - нечётные (в том же порядке). Если чётные или нечётные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым.

Прошу помощи у опытнейших программистов в решении данной задачи!
Заранее спасибо!

@Dani · 18.06.2012, 13:50

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var inp, f1, f2: text;
    num: longint;
begin
assign (inp,'input.txt'); reset (inp);
assign (f1,'÷åòíûå.txt'); rewrite (f1);
assign (f2,'íå÷åòíûå.txt'); rewrite (f2);
 
while not eof(inp) do
 begin
  read (inp,num);
  if num and 1 = 0 then
   write (f1,num,' ')
  else
   write (f2,num,' ');
 end;
 
close (inp); close (f1); close (f2);
end.

@Leonardo70 · 18.06.2012, 13:57 **[ТС]**

Что то она не работает. Пишет:
Unhandled Exception: System.IO.FileNotFoundException: Файл "C:\PABCWork.NET\in
t.txt" не найден.
Имя файла: "C:\PABCWork.NET\input.txt"
в System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
в System.IO.FileStream.Init(String path, FileMode mode, FileAccess access,
t32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions
tions, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
в System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access,
ileShare share, Int32 bufferSize, FileOptions options)
в System.IO.StreamReader..ctor(String path, Encoding encoding, Boolean dete
EncodingFromByteOrderMarks, Int32 bufferSize)
в System.IO.StreamReader..ctor(String path, Encoding encoding)
в PABCSystem.PABCSystem.Reset(Text f) в D:\проги\Pascal ABC\PascalABC.NET\L
\PABCSystem.pas:строка 3293
в Program2.Program.$Main() в C:\PABCWork.NET\Program2.pas:строка 4
в Program2.Program.Main()Программа завершена, нажмите любую клавишу . . .

@Dani · 18.06.2012, 14:03

Вы файл input.txt создали?

@Leonardo70 · 18.06.2012, 14:10 **[ТС]**

Сообщение от Dani

Вы файл input.txt создали?

Создал и куда его кидать? в самой программе путь не указан?

@Dani · 18.06.2012, 14:12

Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы).

@Leonardo70 · 18.06.2012, 14:17 **[ТС]**

Сообщение от Dani

Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы).

Сделал так как Вы сказали, но теперь пишет: "программа завершена, нажмите любую клавишу . . ."

Не могли бы Вы сказать как в программе путь указывать?

@Dani · 18.06.2012, 14:17

Оно ведь еще 2 файла создало? В той же папке.

@Leonardo70 · 18.06.2012, 14:22 **[ТС]**

Сообщение от Dani

Оно ведь еще 2 файла создало? В той же папке.

Да, создало, но без чисел. То есть в файле отсутствуют чётные или нечётные числа и тем самым результирующие файлы остались пустыми. Так ведь?

@Dani · 18.06.2012, 14:24

Да, значит в input.txt нет чисел, а если ввести, то должно все получиться)

@Leonardo70 · 18.06.2012, 14:27 **[ТС]**

Сообщение от Dani

Да, значит в input.txt нет чисел, а если ввести, то должно все получиться)

Огромное спасибо! Вы прям спасли мне жизнь!!!

@drv1995 · 18.12.2012, 15:38

Сообщение от Dani

var inp, f1, f2: text;
* * num: longint;
begin
assign (inp,'input.txt'); reset (inp);
assign (f1,'четные.txt'); rewrite (f1);
assign (f2,'нечетные.txt'); rewrite (f2);
while not eof(inp) do
*begin
* read (inp,num);
* if num and 1 = 0 then
* *write (f1,num,' ')
* else
* *write (f2,num,' ');
*end;
close (inp); close (f1); close (f2);
end.

Прога работает хорошо!!!спасибо кто ее сделал!

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20

	Дан файл целых чисел. Создать два новых файла, в первый записать чётные числа исходного, во второй - нечётные 18.06.2012, 12:37. Показов 9469. Ответов 11 Метки нет (Все метки) Дан файл целых чисел. Создать два новых файла, первый из которых содержит чётные числа из исходного файла, а второй - нечётные (в том же порядке). Если чётные или нечётные числа в исходном файле отсутствуют, то соответствующий результирующий файл оставить пустым. Прошу помощи у опытнейших программистов в решении данной задачи! Заранее спасибо! 0

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 13:57 [ТС]
	Что то она не работает. Пишет: Unhandled Exception: System.IO.FileNotFoundException: Файл "C:\PABCWork.NET\in t.txt" не найден. Имя файла: "C:\PABCWork.NET\input.txt" в System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath) в System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, t32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions tions, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy) в System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, ileShare share, Int32 bufferSize, FileOptions options) в System.IO.StreamReader..ctor(String path, Encoding encoding, Boolean dete EncodingFromByteOrderMarks, Int32 bufferSize) в System.IO.StreamReader..ctor(String path, Encoding encoding) в PABCSystem.PABCSystem.Reset(Text f) в D:\проги\Pascal ABC\PascalABC.NET\L \PABCSystem.pas:строка 3293 в Program2.Program.$Main() в C:\PABCWork.NET\Program2.pas:строка 4 в Program2.Program.Main()Программа завершена, нажмите любую клавишу . . . 0

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	18.06.2012, 14:03
	Вы файл input.txt создали? 1

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	18.06.2012, 14:12
	Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы). 1

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	18.06.2012, 14:17
	Оно ведь еще 2 файла создало? В той же папке. 1

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	18.06.2012, 14:24
	Да, значит в input.txt нет чисел, а если ввести, то должно все получиться) 1

Опции темы