PROGRAM PRG10_6;
USES CRT; VAR X, Y, I: INTEGER; BEGIN TEXTBACKGROUND(2); CLRSCR; X:=7; Y:= 1; DELAY(1000); FOR I:= 1 TO 16 DO BEGIN Y:= Y+1; X:= X+3; TEXTBACKGROUND(9); WINDOW(X, Y, X+18, Y+7); CLRSCR; SOUND(300); DELAY(500); NOSOUND; TEXTBACKGROUND(2); CLRSCR; DELAY(300); END; READLN; CLRSCR END. Для решения задачи: - формируем тело программы и описываем переменные; - устанавливаем зеленый цвет экрана и определяем начальные координаты окна; - организуем цикл, в котором прорезаем окно контрастного цвета, держим его на экране, затем закрашиваем цветом фона; - увеличиваем значение координат X и Y; - включаем и выключаем звуковой генератор; - по окончании вывода оператором READLN фиксируем надписи на экране до тех пор, пока не будет нажата любая клавиша. Переменные: X, Y - координаты левого верхнего угла окна;
|
I - переменная цикла.
