1. Разделить экран на четыре равные части. 1 2
Создать в первой части окно и ввести с клавиатуры надпись:
Программу разработал "Фамилия". 3 4
Создать окно 4 и скопировать эту надпись в окно 4.
2. Аналогично п. 1 создать окно 2, ввести с клавиатуры надпись и скопировать ее в окно 3.
Примечание: копирование заключается в выводе массива символов.
3. Создать четыре окна в порядке 1, 2, 3, 4. В центре первого окна ввести с клавиатуры свою фамилию, в других - любые надписи, введенные с клавиатуры в позициях, определяемых функцией Random (без использования массивов).
4. Аналогично п. 3 создать четыре окна в порядке 4, 3, 2, 1. Выводить мерцающие символы.
Примечание: Переход в другое окно после нажатия клавиши Esc, окна и надписи должны быть разного цвета.
Процедуры DelLine;, InsLine; позволяют прокручивать надписи в окне по аналогии с прокруткой текста, не вмещающегося на экране. Процедура Delay(M); - задерживает выполнение программы на M миллисекунд (N и M - тип Word).
Приведем пример операторов, прокручивающих текст в окне:
Window(5,5,30,9); TextBackGround(1); Clrscr; TextColor(14);
repeat delay(500); GotoXY(1, 5);
write('Всем большой привет!');
gotoXY(1, 1);
for k:=1 to 5 do begin { прокрутка вверх }