Процедуры Insert и Delete

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

Процедура Insert вставляет в исходную строку, начиная с указанной позиции, какую-либо другую строку. Оператор Insert(Word1, Words, 4); указывает Турбо Паскаль 7.0., что необходимо в строку Words, начиная с 4 позиции (перед 4-ой позицией), вставить строку Word1.

Процедура Delete удаляет в исходной строке фрагмент определенной длины, начинающийся с указанной позиции. Так, оператор Delete (Words, 2,3) удаляет из строки Words фрагмент, состоящий из трех символов и начинающийся со второй позиции.

Рассмотрим возможности этих двух процедур на слове "компьютеризация".

Program DemoFunctionInsertendDelete;

Var

Words: STRING[70];

Word1: STRING[20];

Begin

Writeln;

Words:='компьютеризация';

Writeln(Words);

Delete(Words,1,7);

Writeln(Words);

Delete(Words,3,2);

Writeln(Words);

Word1: ='Г';

Insert(Word1,Words,1);

Writeln(Words);

Word1:='не';

Insert(Word1,Words,3);

Writeln(Words);

End.

В результате работы данной программы на экран будут выведены следующие строки:

компьютеризация

еризация

ерация

герация

генерация

Примечание:

Во избежание ошибок при применении процедур Insert и Delete указанные в списке параметров позиции должны обязательно присутствовать в обрабатываемых строках.

Задачи

1. Ввести строку. Подсчитать, сколько раз в ней встречается буква «А» и сколько «Б».

2. Ввести строку. Подсчитать, сколько раз встречаются строчные и сколько раз заглавные русские буквы.

3. Ввести строку. Подсчитать, сколько раз в ней встречается слово «мама».

4. Ввести строку из русских букв. Вывести на экран по порядку слова в столбик. Повторяющиеся слова не выводить.

5. Ввести строку из русских буква. Разложить слова в алфавитном порядке.

6. Ввести строку из русских букв. Вывести самое короткое предложение.

7. Ввести строку из русских букв. Вывести самое короткое и самое длинное слово.

8. Ввести строку. Заменить заданное слово на другое слово в строке.

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

10. Ввести строку из русских букв. Удалить из нее все слова, состоящие из нечетного числа букв.

11. Ввести строку из русских букв. Заменить в ней каждое слово:

а) «маша» на «медведь»,

б) «ЭВМ» на «компьютер»,

в) «паровоз» на «паром»,

г) «медаль» на «награда»,

д) «мышь» на «кот»,

е) «поезд» на «самолет».

12. Разработать программу, позволяющую вводить строку символов и осуществляющую замену каждого произвольного слова на другое слово.

13. Ввести строку из русских букв. Определить все симметричные слова.

14. Ввести строку из русских букв. Заменить все строчные буквы на прописные.

15. Ввести строку из русских букв. Определить все слова, у которых первая и последняя буква совпадают.

16. Ввести строку из русских символов. Удалить из нее все лишние пробелы и символы.

17. Ввести строку из русских букв. Удалить все повторяющиеся слова.