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

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

16.06.2011, 20:23. Просмотров 911. Ответов 2
Метки нет (Все метки)

Выполнить соответствующие операции с файлами.
8.1 Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 20:23
Ответы с готовыми решениями:

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

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

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

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

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

2
Mr.Y
99 / 92 / 90
Регистрация: 10.05.2011
Сообщений: 172
16.06.2011, 20:57 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const
 dividers = [' ', ',', ':', ';', '!', '.', '?'];
Var
 a,b:text;
 x,w:string;
Begin
 assign(a,'c:\input.txt');
 assign(b,'c:\output.txt');
 reset(a);
 rewrite(b);
 write('Задайте слово: ');
 readln(w);
 While not eof(a) do
  Begin
   readln(a,x);
   If (pos(w,x) = 1) and (x[length(w)+1] in dividers) then writeln(b,x);
  End;
 close(a);
 close(b);
 writeln('Найденные данные успешно записаны во второй файл!');
End.
1
Алекс33
2 / 2 / 0
Регистрация: 08.06.2011
Сообщений: 53
16.06.2011, 21:19  [ТС] 3
человеческое спасибо тебе!!!А вот с такой задачей справишься???
8.3 Задан файл целых чисел f1. Написать программу, заполняющую файл f2 эле-ментами файла f1, значения которых меньше «0,8». Вывести на экран файл f2.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 21:19

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

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

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


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

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

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