Задания для самостоятельного выполнения.

1. Проверить, имеются ли в заданном тексте баланс открывающих и закрывающих скобок.

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

3. Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами.

4. В заданном предложении указать слово, в котором доля гласных (A, E, У, O) максимальна.

5. Для каждого символа заданного текста указать подсчитать, сколько раз он встречается в тексте.

6. Для каждого слова заданного предложения указать долю согласных латинского алфавита. Определить слово, в котором доля согласных максимальна.

7. Найти самое длинное симметричное слово заданного предложения. (Например, ‘ABBA’)..

8. Отредактировать заданное предложение, заменяя многоточия точкой.

9. В заданном предложении найти самое короткое и самое длинное слово.

10. Из заданного предложения выбрать те символы, которые встречаются в нем только один раз (в том порядке в котором они встречаются в предложении).

11. В заданном предложении заменить последовательность символов X(I) на Y(I) и подсчитать число произведенных замен.

12. В заданном предложении удалить фигурные и квадратные скобки, если они встречаются попарно ( ‘[]’, ‘{}’ ) и подсчитать число удаленных символов.

13. Из предложения выбрать числа и записать их в массив N. Количество чисел не более 10.

14. Удалить из предложения символы псевдографики, и подсчитать разность между длиной исходного и сформированного предложения.

15. Задана строка символов, состоящая из нескольких предложений. Выделить предложение между первой и второй точками.

16. Задана строка символов (предложение). Подсчитать, сколько букв и слов содержит данное предложение.

17. Дана строка символов (предложение). Определить, сколько слов начинается и кончается одной и той же буквой.

18. Задана строка символов до точки. Определить, является ли она записью десятичного числа, кратного 5.

19. Задаана строка символов (предложение). Зашифровать в ней все латинские символы с помощью циклической подстановки: A=>B=>C…Y=>Z=>A.

20. Задана строка символов. Сформировать новую строку, удалив из нее все рядом стоящие одинаковые символы, оставив по одному. (‘aaadff’ -> ‘adf’)

21. Задана строка символов. Подсчитать, сколько раз в ней встречается заданное слово.

22. Задана строка символов, состоящая из десятичных цифр и пробелов. Рассматривая слова как десятичные числа, определить их сумму.

23. Задана строка символов, состоящая из десятичных цифр и пробелов. Рассматривая слова как десятичные числа, определить количество чисел, кратных пяти.

24. Разработать программу, которая проверяла бы правильность написания 10 ключевых слов языка ПАСКАЛЬ в некоторой введенной с клавиатуры строке, являющейся оператором программы.

Тема 12. Множества.

Написать программу обработки множеств в соответствии c условием задания. Обработка множеств должна быть реализована в подпрограммах. Исходные множества задать в главной программе. Ввод элементов множеств осуществлять до нажатия клавиши ‘z’. Результат обработки и мощность полученных множеств вывести в главной программе.

Пример 1.Задать с клавиатуры два множества символов S1, S2. Объединить их в новое множество S3. На экран монитора вывести подмножество S4 символов десятичных цифр объединенного множества и мощность Pow подмножества S4. Ввод/вывод сделать в главной программе. Формирование объединенного множества S3 и подмножества S4 символов десятичных цифр осуществить в двух процедурах Proc1, Proc2.

program pr12;

uses crt;

type T1 = set of char;

T2 = set of '0'..'9';

Procedure Proc1(a, b: T1; var c: T1);

begin

c:= a + b

end;

Procedure Proc2(a: T1; var b: T2; var P: integer);

const dig: T2 = ['0'..'9'];

var i: char;

begin

b:= []; P:= 0;

for i:= #0 to #255 do

if (i in a) and (i in dig) then

begin b:= b + [i];

inc(P)

end

end;

var S1, S2, S3: T1;

S4: T2;

i: byte;

c: char;

Pow: integer;

begin clrscr;

S1:= []; S2:= [];

write('Введите 1-е множество ->');

while true do begin

c:= readkey; if c = 'z' then break else

begin S1:= S1 + [c];

write(c:3)

end

end;

writeln;

write(' Введите 2-е множество ->');

while true do begin

c:= readkey; if c = 'z' then break else

begin S2:= S2 + [c];

write(c:3)

end

end;

writeln;

Proc1(S1, S2, S3);

Proc2(S3, S4, Pow);

write('Результат:');

for c:= '0' to '9' do

if c in S4 then write(c:4);

writeln;

write('Мощность = ', Pow:4);

writeln;

readkey

end.