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

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

18.06.2012, 12:37. Показов 8772. Ответов 11
Метки нет (Все метки)

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

Прошу помощи у опытнейших программистов в решении данной задачи!
Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2012, 12:37
Ответы с готовыми решениями:

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит четные числа из...

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные (в том же порядке)
1. Дан файл целых чисел. Создать два новых файла, первый из которых содержит четные числа из...

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа.
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать...

Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать четные, а во второй нечетные числа
Дан файл, содержащий целые числа. Записать их в другие два файла, при этом в первый записать...

11
1404 / 646 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
18.06.2012, 13:50 2
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.
1
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
1404 / 646 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
18.06.2012, 14:03 4
Вы файл input.txt создали?
1
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 20
18.06.2012, 14:10  [ТС] 5
Цитата Сообщение от Dani Посмотреть сообщение
Вы файл input.txt создали?
Создал и куда его кидать? в самой программе путь не указан?
0
1404 / 646 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
18.06.2012, 14:12 6
Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы).
1
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 20
18.06.2012, 14:17  [ТС] 7
Цитата Сообщение от Dani Посмотреть сообщение
Если путь не указан, то файл нужно кидать туда, где находится сохраненная программа (если у вас есть Free Pascal, то в рабочую папку программы).
Сделал так как Вы сказали, но теперь пишет: "программа завершена, нажмите любую клавишу . . ."

Не могли бы Вы сказать как в программе путь указывать?
0
1404 / 646 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
18.06.2012, 14:17 8
Оно ведь еще 2 файла создало? В той же папке.
1
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 20
18.06.2012, 14:22  [ТС] 9
Цитата Сообщение от Dani Посмотреть сообщение
Оно ведь еще 2 файла создало? В той же папке.
Да, создало, но без чисел. То есть в файле отсутствуют чётные или нечётные числа и тем самым результирующие файлы остались пустыми. Так ведь?
0
1404 / 646 / 135
Регистрация: 11.08.2011
Сообщений: 2,299
Записей в блоге: 2
18.06.2012, 14:24 10
Да, значит в input.txt нет чисел, а если ввести, то должно все получиться)
1
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 20
18.06.2012, 14:27  [ТС] 11
Цитата Сообщение от Dani Посмотреть сообщение
Да, значит в input.txt нет чисел, а если ввести, то должно все получиться)
Огромное спасибо! Вы прям спасли мне жизнь!!!
0
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 15:38
Помогаю со студенческими работами здесь

Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного...

Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными но
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru