Практическое задание N 1. 38
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
{ прокрутка
вверх }
delay(300); delLine
end
until keyPressed ;
