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

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

14.06.2012, 13:43. Просмотров 936. Ответов 2
Метки нет (Все метки)

Дан файл, содержащий текст. Выбрать из него слова, которые заканчиваются на букву определенную пользователем, и записать их в новый файл.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2012, 13:43
Ответы с готовыми решениями:

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

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

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл
Помогите со ошибкам пожалуйста ((( procedure TForm1.Button1Click(Sender: TObject); var...

Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл
Дан файл f, который содержит целые числа. Найти максимальное из чисел и записать результат в новый...

2
Фрилансер
3405 / 2802 / 3000
Регистрация: 08.02.2012
Сообщений: 7,841
Записей в блоге: 1
14.06.2012, 13:59 2
Лучший ответ Сообщение было отмечено Linar523 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var f,g:text;
    s,s1:string;
    c:char;
Begin
    Assign(f,'a.txt');Reset(f);
    Assign(g,'b.txt');Rewrite(g);
    write('Введите букву: ');readln(c);
    While not Eof(f) do
     Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)<>0 do
       Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if s1[Length(s1)]=c then writeln(g,s1);
       End;
     End;
    writeln('Формирование файла завершено!');
    Close(f);Close(g);
    readln;
End.
Предварительно создай файл и положи его в папку с программой
1
0 / 0 / 0
Регистрация: 13.06.2012
Сообщений: 9
14.06.2012, 14:12  [ТС] 3
Спасибо огромное
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2012, 14:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан файл, содержащий некоторый текст. Переписать его в новый файл по две фразы на строку
Дан файл, содержащий некоторый текст. Переписать его в новый файл по две фразы на строку. Если...

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

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

Дан файл с текстом. Записать в файл a0.txt слова, которые содержат цифру 0
от дано такое задание -Дан файл с текстом. Записать в файл a0.txt слова, которые содержат цифру 0,...


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

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

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