Задание 2. Подсчет количества букв

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

Program slovo_2;

var X: String[15];

d, s, i : Integer;

begin

Writeln ('Введите слово');

Read (X);

d:=Length(x); {Находим длину слова Х}

s:=0; {Обнуляем счетчик букв "а"}

For i:=1 To d Do

If Copy(X,i,1)='a'

Then s:=s+1; {При совпадении i-ой буквы слова с "а" увеличиваем счетчик на 1}

If s<>0 Then Writeln ('Количество букв "а" в слове ', X, 'равно ',s)

Else Writeln ('Слово не содержит буквы а');

end.

Задание 3. Слова - перевёртыши

Составить программу, проверяющую, является ли введенное с клавиатуры слово Х перевертышем.

Program slovo_3;

var X,Y: String[15];

d, i : Integer;

begin

Writeln ('Введите слово Х');

Read (X);

{Ввод пустого слова Y}

Y:='';

{Нахождение длины слова Х}

d:=Length(X);

For i:=d Downto 1 Do Y:=Y+Copy(X,i,1); {Составляем слово Y, обратное для Х}

If X=Y Then Writeln ('Слово является перевертышем')

Else Writeln ('Слово не является перевертышем');

end.

Задание 4. Замена букв в слове

Заменить в слове Х все буквы "а" на буквы "я".

Program slovo_4;

var X,Y: String[15];

d, i : Integer;

begin

Writeln ('Введите слово Х');

Read (X);

Y:='';

d:=Length(X); {Находим длину слова Х}

For i:=1 To d Do

If Copy (X,i,1)='a'

Then Y:=Y+'я'

Else Y:=Y+Copy(X,i,1);

Writeln(Y:15);

end.

Задание 5. Удаление символов в слове

Удалить из строки все "лишние" (парные) пробелы.

Program slovo_5;

var s: String[50];

l : Integer;

begin

Writeln ('Введите строку');

Read (s);

I:=pos (' ', s);

if l=0 then Writeln ('Парных пробелов нет')

else

begin

while l >0 do {пока в строке есть парные пробелы}

begin

delete (s, pos (' ',s), 1);

I:=pos (' ',s)

end;

Writeln ('Получена строка:');

Writeln (s);

end;

end.

Задание 6. Решение задач по теме Номера задач задает преподаватель!

1. Составьте программу подсчета количества букв "к" в заданном слове Х.

2. Составьте программу, проверяющую, входит ли в данное слово сочетание букв "нн".

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

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

5. Составить программу, удваивающую каждую букву слова (Например, вместо слова "стол" должно получиться "ссттоолл").

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

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

8. В заданном слове удалить символ "m" и подсчитать число удаленных символов.

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

10. В заданном слове заменить каждый символ "а", стоящий на четном месте, на символ "о".

11. Определить, заканчивается ли введенное слово гласной буквой.

12. Определить, превышает ли длина введенного слова заданное число.

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

14. Проверить, есть ли в заданном слове две подряд идущие одинаковые буквы.

15. Определить, является ли длина введенного слова числом, кратным трем.

Контрольное задание Вариант вашего задания задает преподаватель!

Отчет по заданию оформите в письменном виде!

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

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

2. Ввести текст, состоящий не более чем из 10 слов. Определить количество вхождений символов «to» в каждом слове.

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

4. Ввести текст, состоящий не более чем из 15 слов. Из текста выделить все слова, которые начинаются с любого произвольно введенного символа.

5. Ввести текст, состоящий не менее чем из 12 слов. Определить наличие вхождений символов «no» в каждом слове текста.

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

7. Ввести текст, состоящий не менее чем из 12 слов. Из данного текста выделить все слова, в которых присутствует символ «Е».

8. Ввести текст, состоящий не менее чем из 10 слов. Вставить в текст после каждого символа «к» символ «о».

9. Ввести текст, состоящий не менее чем из 13 слов. Выделить из текста все слова, которые имеют больше 5 символов, но менее 8.

10. Ввести текст, состоящий из слов и цифр. Подсчитать сколько цифр в тексте.

11. Ввести текст, состоящий из слов и цифр. Подсчитать сколько слов в тексте.

12. Ввести текст, состоящий не менее чем из 15 слов. Подсчитать количество слов, в которых присутствует символ «b» и заменить его на «f».

13. Ввести одно слово, состоящее не менее чем из 8 символов. Распечатать все части слова, начинающиеся с заданного символа.

14. Ввести текст, содержащий не менее 15 слов. Выделить из текста все слова, которые имеют пять символов, и начинаются с символа «R».

15. Ввести текст, состоящий из слов и цифр. Заменить в заданном тексте все цифры на символы «as».

16. Ввести текст, состоящий не менее чем из 13 слов. Определить количество вхождений символов «tol» в заданный текст и заменить их на символы «lot».

17. Ввести текст, состоящий не менее чем из 12 слов. Из текста выделить все слова, которые начинаются с того же символа, с которого начинается первое слово данного текста.

18. Ввести текст, состоящий не менее чем из 14 слов. Определить количество слов, которые начинаются и заканчиваются на один и тот же символ.

19. Ввести текст, состоящий не менее чем из 12 слов. Из текста выделить все слова, которые начинаются с того же символа, с которого начинается последнее слово заданного текста.

20. Ввести текст, состоящий не менее чем из 15 слов. Выделить из текста все слова, которые имеют длину 6 символов и начинаются на «С».

21. Ввести текст, состоящий не менее чем из 12 слов. Выделить из текста все слова, имеющие четное количество символов и начинающиеся с символа «D».

22. Ввести текст, состоящий не менее чем из 15 слов. Определить в каждом слове позицию вхождения символа «s».

23. Ввести текст, состоящий не менее чем из12 слов. Из данного текста выделить все слова, в которых присутствует символ «Е».

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

25. Ввести текст, состоящий не менее чем из 14 слов. Вставить в текст после каждого символа «g» символ «о».

26. Ввести текст, состоящий из слов и цифр. Подсчитать сколько цифр в тексте, заменить все слова на число 100.

27. Ввести текст, состоящий из слов и цифр. Подсчитать сколько слов в тексте, заменить все числа на символы «ok!».

28. Ввести текст, состоящий не менее чем из 14 слов. Подсчитать количество слов длиной более 5 символов и начинающихся с символа «d».

29. Ввести текст, состоящий не менее чем из 15 слов. Определить количество вхождений символа «а» в каждом слове.

30. Ввести текст, состоящий не менее чем из 15 слов. Заменить все слова, которые начинаются с символа «c» на 1000.