Решение задач.

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

28. В тексте содержащем, несколько (много) предложений, найти все вхождения заданного слова и распечатать все включающие его предложения. Принять, что каждое предложение заканчивается точкой.

29. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов содержат ровно 3 буквы "е".

30. Дан текст, состоящий из нескольких предложений. В каждом предложении найти самое короткое и самое длинное слова.

31. Дан текст. Посчитать количество слов в тексте.

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

33. Даны 2 текста. Найти одно из общих слов, встречающихся в текстах.

34. Напишите программу, изменяющую порядок слов в строке по Вашему алгоритму.

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

36. Составьте программу шифрования текстового сообщения. Можно использовать такой способ шифровки. Шифровальщик задает ключ шифровки - целое число, которое определяет величину смещения букв русского алфавита, например ключ =3, тогда в тексте буква “а” заменяется на “г” и т.д. Используются все буквы русского алфавита.

37. В заданном предложении удалите каждое второе слово, а оставшиеся слова переверните. (Например, из текста “А роза упала на лапу азора” должен получиться текст “азор ан ароза”).

38. Составьте программу дешифрования текстового сообщения, зашифрованного программой задачи № 9.

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

Задание. Приготовьте для проверки учителем все Ваши листинги и файлы с решенными и оцененными задачами по данной теме.

Бегущая строка. Пример программы осыпающихся букв. Строки в графическом режиме (для увлеченных программированием).

Задание.Перед Вами две программы. Рассмотрите операторы, какова их роль?

Program AlexeyDashkin; Uses   Crt; Type   Stroka = string [100]; Var   Vhod, St1, InStr : Stroka; Begin   St1 := ' Поставьте мне пятерку в зачетку!!!!';   ClrScr;   InStr := ' ';   St1:= St1+InStr;   for i := 1 to length(St1) do     begin       Delete(St1,1,1);       GoTo(1,10);       write(St1);       Delay(5);       Sound(1000);       Delay(90);       NoSound;       DelLine;     end; End.

 

Program AkulovE; Uses   Crt; Var   y,i : integer;   Name, Bukva : string; Begin   ClrScr;   write ('Введите что-нибудь ');   read (Name);   for i := Length(Name) downto 1 do     begin       Bukva := Name[i];       Delete(name,i,1);         for y := 1 to 25 do           begin             Window(19,1,80,25);             GotoXY(i,y);             write(Bukva);             Delay(50);             ClrScr;             write(Name);           end;     end; End.

Задание.

32. Наберите программы на компьютере. Проверьте их работу.

33. Усовершенствуйте одну из программ, дополните ее комментариями. Покажите результат работы учителю для оценки.

34. Решите одну из задач в графическом режиме. Покажите результат работы учителю для оценки.