Задача 3.

Program AkulovE;

Var

y,i : integer;

Name, Bukva : string;

Begin

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(500);

ClrScr;

write(Name);

end;

end;

End.

Выберите с учителем задачи для самостоятельного решения:

1. Дана строка текста. В данной строке поменять местами каждые два слова из четырех первых. Если количество слов меньше заданного, то вывести об этом сообщение.

2. В заданном тексте найти и распечатать слово максимальной длины.

3. Написать (в порядке появления в тексте) все слова, длина которых попадает в интервал [X, Y]. Здесь X и Y целые числа, задающиеся пользователем.

4. В данном предложении найти количество слов, содержащих удвоенную согласную (буквы латинские). Слова в предложении разделяются пробелами, в конце предложения - точка.

5. Предложите пользователю ввести дату в предложенном формате ДД-ММ-ГГ. День и месяц могут быть указаны одиночными числами, т.е. 1-5-94, а не 01-05-94. Выделите числа представляющие день, месяц и год, и выведите каждое число с соответствующей поясняющей надписью на экран.

6. Предложите пользователю ввести число в интервале от 1 до 5 включительно. Ваша программа должна позволять пользователю вводить любую последовательность символов. Организуйте проверку ввода, и если ввод не длиннее одного символа, либо нецифровой, либо не попадает в допустимый интервал, тогда выведите сообщение об ошибке. Если ввод неправилен, тогда предложите пользователю повторить попытку.

7. Даны два текста А и Б. Проверьте, можно ли из букв, входящих в А, составить Б. (Буквы можно переставлять, но каждую букву можно использовать не более одного раза).

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

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

10. Написать (в порядке появления в тексте) все слова, длина которых попадает в интервал [X, Y]. Здесь X и Y целые числа, указывающие, соответственно, наибольшую и наименьшую длину

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