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

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

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.