Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Артём33
3 / 3 / 0
Регистрация: 27.04.2010
Сообщений: 318
#1

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

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

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

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

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

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

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

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

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

1
Law[L]esS
114 / 111 / 23
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Внесите во второй файл все строки из первого, в конце которых стоит вопросительный знак - Turbo Pascal
1.В редакторе создайте два текстовых файла, внесите в каждый файл по 10 строк произвольного текста. 2.Из двух исходных файлов при помощи...

Создать второй файл, в который поместить все символы из первого файла, без цифр - Turbo Pascal
Дан текстовый файл содержащий произвольные символы.Создать второй файл , в который поместить все символы из первого файла,без цифр.


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

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

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