Занятие 6. Решение задач.

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

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

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

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

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

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

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

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

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

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

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

11. Составьте программу дешифрования текстового сообщения, зашифрованного программой задачи № 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.

Задание.

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

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

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