Сформулируйте тексты решенных ниже задач

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

GoTo - оператор, устанавливающий курсор в заданное параметрами знакоместо в текстовом режиме. Первый параметр - номер столбца, второй - номер строки. Общее количество строк 25, а столбцов - 80.

Delay - оператор задержки вывода на экран информации. Параметр равный 1000 соответствует 1 секунде.

Sound - оператор, включающий динамик компьютера с заданной частотой в виде параметра.

NoSound - оператор, выключающий динамик.

DelLine - оператор, выводящий строку из пробелов в строку, в которой находится курсор.

Window - оператор, организующий окно в текстовом режиме с координатами верхнего левого и правого нижнего углов, переданными как параметры.

Задача 1.

Program MiskovVadim;
Var
i, k,x: integer;
a, b, c: string;
Begin
write('введите строку>');
readln(a);
k:= length(a);
repeat
for i:= 1 to 2 do
c:=c+b;
x:=x+1;
b:=Copy(a,x,1);
until x=k+1;
writeln ('Ваше слово - ',s);
End.

Задача 2.

Program AlexeyDashkin;
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(500);
Sound(1000);
Delay(900);
NoSound;
DelLine;
end;
End.

Задача 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. Составьте программу, вычеркивающую каждую третью букву слова Х в заданном предложении.