С Новым годом! Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 39
1

Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные

14.10.2011, 15:51. Показов 1803. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с этой задачей,пожалуйста!!!

Создать текстовый файл g. Переписать в файл f-четные строки,в файл h-нечетные.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.10.2011, 15:51
Ответы с готовыми решениями:

Переписать в файл f – четные строки, в файл h — нечетные из исходного
Здравствуйте,я первый раз на этом форуме. Хороший форум,всё понятно,быстро разобралась. Помогите...

Создать текстовый файл f и g. Переписать их в файл h чередуя строки
17. Создать текстовый файл f и g. Переписать их в файл h чередуя строки.

Переписать четные числа в файл g, а нечетные - в файл h, сохраняя при этом порядок.
Дано файл f из целых элементов. Переписать четные числа в файл g, а нечетные - в файл h, сохраняя...

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

1
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.10.2011, 16:12 2
Лучший ответ Сообщение было отмечено Лапотуня как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses crt;
var g,f,h:text;
    s:string;
    n,i:integer;
begin
clrscr;
assign(g,'G.txt');
rewrite(g);
assign(f,'F.txt');
rewrite(f);
assign(h,'H.txt');
rewrite(h);
writeln('Сколько строк записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  readln(s);
  writeln(g,s);
 end;
reset(g);
i:=0;
while not eof(g) do
 begin
  readln(g,s);
  i:=i+1;
  if i mod 2=0 then writeln(f,s)
  else writeln(h,s);
 end;
close(g);
close(f);
close(h);
end.
0
14.10.2011, 16:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2011, 16:12
Помогаю со студенческими работами здесь

Необходимо создать текстовый файл и переписать его в алфавитном порядке в новый файл
Создать на диске текстовый файл, состоящий из имен девочек вашей группы. Переписать имена в...

Имеется текстовый файл. Переписать его строки в другой файл.
Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен...

Текстовый файл. Переписать файл с длинной строки N знаков
Доброе время суток! Есть задание: Дан текстовый файл, между словами один или больше пробелов, в...

В текстовый файл записать целые числа, четные числа переписать в новый файл
В текст. файл записать целые числа четные числа переписать в новый файл.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru