Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 17.06.2015
Сообщений: 13
1

Перенести все нечетные строки файла во второй файл

17.06.2015, 18:34. Просмотров 998. Ответов 3
Метки нет (Все метки)

Задание такое: Есть два текстовых файла. Из одного файла нужно перенести все нечетные строки во второй.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2015, 18:34
Ответы с готовыми решениями:

Все четные числа файла записать во второй файл, а нечетные — в третий файл
Имеется файл, элементами которого являются целые числа. Все четные числа этого файла записать во...

Во второй файл нужно перенести числа из первого файла в двоичной системе числения
Нужно создать 2 файла, в первый нужно записать с клавиатуры числа, а во второй файл нужно перенести...

В файл g записать все четные числа из файла f, а в h все нечетные.
Организовать файл последовательного доступа f, состоящий из N целых чисел. После этого организовать...

Записать в файл все нечетные числа из [1; 99]. Затем вывести все элементы данного файла, начиная с 15
Записать в файл все нечетные числа из . Затем вывести все элементы данного файла, начиная с 15

3
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
17.06.2015, 20:25 2
Pascal
1
2
3
4
5
6
7
8
i :=0;
while not eof(f) do
begin
 readln(f,s);
 inc(i);
 if odd(i) then
  writeln(ff,s);
end;
0
Модератор
7469 / 3830 / 2721
Регистрация: 17.08.2012
Сообщений: 12,257
18.06.2015, 05:08 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от mixa00734 Посмотреть сообщение
перенести
Это значит переместить, а не скопировать.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n_inp = 'text.txt'; n_odd = 'odd.txt'; n_tmp = 'temp.tmp';
var f_inp, f_odd, f_tmp: text;
    s: string;
    b: boolean;
begin
  assign(f_inp, n_inp); reset(f_inp);
  assign(f_odd, n_odd); rewrite(f_odd);
  assign(f_tmp, n_tmp); rewrite(f_tmp);
  b := true;
  while not eof(f_inp) do
    begin
      readln(f_inp, s);
      if b then writeln(f_odd, s) else writeln(f_tmp, s);
      b := not b
    end;
  close(f_inp); close(f_odd); close(f_tmp);
  erase(f_inp); rename(f_tmp, n_inp)
end.
0
2920 / 841 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
18.06.2015, 09:33 4
Cyborg Drone, согласен, не внимательно прочитал условие
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2015, 09:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перенести все цифры файла в другой файл и найти их среднее значение
В документе A введен текст состоящий из букв и цифр, перенести все цифры в документ B и найти их...

дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в текстовый файл все...

Имеется два текстовых файла. Переписать строки из первого во второй файл
Порядок строк должен совпадать, а из 2 файла переписать в 1, порядок строк заменить на обратный.

Скопировать из первого файла во второй все строки, длина которых больше 1 символа
Написать программу, открывающую один текстовый файл (file1.txt) на чтение, и другой текстовый файл...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.