Цитата:
Сообщение от Altana
поможете, м? пожалуйста) с момента 'while....'
|
Абсолютно не вижу принципиальной разницы с предыдущим вариантом, ну да ладно:
While not keypressed do
{Цикл до нажатия любой клавиши}
begin
{Начало цикла}
n:=random(100);
{Задание полустороны квадрата случайным образом в диапазоне 0..99 пикселов}
x1:=320-n;
{Определение X-координаты левого верхнего угла квадрата}
y1:=240-n;
{Определение Y-координаты левого верхнего угла квадрата}
x2:=320+n;
{Определение X-координаты правого нижнего угла квадрата}
y2:=240+n;
{Определение Y-координаты правого нижнего угла квадрата}
i:=random(16);
{Выбор цвета квадрата путем случайного задания индекса от 0 до 15}
Setcolor(i);
{Установка выбранного цвета}
Rectangle(x1,y1,x2,y2);
{Рисование квадрата}
Delay(200);
{Задержка на 0.2 секунды}
Setcolor(0);
{Установка фонового цвета}
Rectangle(x1,y1,x2,y2);
{Рисование того же квадрата фоновым цветом. Квадрат исчезает}
end;
{Конец цикла}
Readkey;
{В таком варианте - абсолютно лишняя команда. Можете убрать}
Closegraph;
{Выход из графического режима}
End.
{Глобальное ВСЁ!}