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

Создать новый файл, записав в него каждую вторую строку исходного файла

18.04.2012, 10:14. Показов 1589. Ответов 3
Метки нет (Все метки)

Дан текстовый файл,создать новый записав в него каждую вторую строку исходного файла
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2012, 10:14
Ответы с готовыми решениями:

Создать новый текстовый файл, записав в него перевернутые строки исходного файла
дан текстовый файл.создать новый текстовый файл,записав в него перевернутые строки исходного файла:...

Из компонентов исходного файла целых чисел сформировать массив, записав в него только ненулевые компоненты
Общее задание: Создать 2 программы 1) открывает типизированный файл заполняет его необходимыми...

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

Создать новый текстовый файл, содержащий k последних строк исходного файла
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл,...

3
magirus
18.04.2012, 10:15
  #2
 Комментарий администратора 
называйте темы информативно
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
18.04.2012, 10:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

алгоритм
Pascal
1
2
3
4
5
6
7
k:=0;
while not eof(f) do
 begin
  k:=k+1;
  readln(f,s);
  if k mod 2=0 then writeln(g,s);
 end;
0
6255 / 3556 / 898
Регистрация: 28.10.2010
Сообщений: 5,926
18.04.2012, 10:26 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
   f1, f2: text;
   s: string;
   f: boolean;
begin
    f := false;
    assign(f1, 'input.txt');
    assign(f2, 'output.txt');
    reset(f1);
    rewrite(f2);
    while not eof(f1) do
    begin
         readln(f1, s);
         if (f) then
            writeln(f2, s);
         f := not f;
    end;
    close(f1);
    close(f2);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2012, 10:26
Помогаю со студенческими работами здесь

Файл: Если количество строк больше заданного n, то создать новый файл и записать в него строки из данного файла.
Дан файл, содержащий строки. Если количество строк больше заданного n, то создать новый файл и...

Найти сумму элементов и минимальный элемент. Получить новый файл, поместив в него только те компоненты исходного файла, которые представляют собой неч
Решите задачу пожалуйста если вам не трудно :) ►Сформировать типизированный файл натуральных...

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством...

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


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

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

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