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

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

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

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

@Dani · 18.06.2012, 13:50

Pascal

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.

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

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 14:27 [ТС]	11
	Сообщение от Dani Да, значит в input.txt нет чисел, а если ввести, то должно все получиться) Огромное спасибо! Вы прям спасли мне жизнь!!! 0

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 13:57 [ТС]	3
	Что то она не работает. Пишет: 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 1404 / 646 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	18.06.2012, 14:03	4
	Вы файл input.txt создали? 1

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 14:10 [ТС]	5
	Сообщение от Dani Вы файл input.txt создали? Создал и куда его кидать? в самой программе путь не указан? 0

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

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 14:17 [ТС]	7
	Сообщение от Dani Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы). Сделал так как Вы сказали, но теперь пишет: "программа завершена, нажмите любую клавишу . . ." Не могли бы Вы сказать как в программе путь указывать? 0

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

@Leonardo70 0 / 0 / 0 Регистрация: 15.06.2012 Сообщений: 20
	18.06.2012, 14:22 [ТС]	9
	Сообщение от Dani Оно ведь еще 2 файла создало? В той же папке. Да, создало, но без чисел. То есть в файле отсутствуют чётные или нечётные числа и тем самым результирующие файлы остались пустыми. Так ведь? 0

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

@drv1995 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 31
	18.12.2012, 15:38	12
	Сообщение от 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. Прога работает хорошо!!!спасибо кто ее сделал! 0

Опции темы