Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Артём33
3 / 3 / 1
Регистрация: 27.04.2010
Сообщений: 318
#1

Запишите во второй файл все строки первого файла, начинающиеся с заданного слова

17.05.2010, 19:45. Просмотров 828. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста!
Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова.
(сначало создать 2 текстовых файла не через паскаль, в один записав разные строчки)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2010, 19:45
Ответы с готовыми решениями:

Запишите во второй файл все строки первого файла, начинающиеся с заданного слова
Выполнить соответствующие операции с файлами. 8.1 Создайте текстовый файл. Запишите во второй файл...

Операции с файлами. Запишите во второй файл все строки первого файла, начинающиеся с данного слова
1. Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с...

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

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

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

1
Law[L]esS
114 / 111 / 88
Регистрация: 31.10.2009
Сообщений: 191
17.05.2010, 20:10 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
 f,f2:text;
 s,s1,s2:string;
begin
 readln(s);
 assign(f,'kot.txt');
 reset(f);
 assign(f2,'kot2.txt');
 rewrite(f2);
 while not eof(f) do begin
   readln(f,s2);
   s1:= copy(s2,1,pos(' ',s2)-1);
   if s1 = s then writeln(f2,s2);
 end;
 close(f);
 close(f2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2010, 20:10

Скопировать из файла F1 в файл F2 все строки, начинающиеся на букву «А»
Скопировать из файла F1 в файл F2 все строки, начинающиеся на букву «А» и Заканчивающиеся на букву...

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

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


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

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

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