Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Зараннее вам благодарен)

Решение задачи: «Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали»

textual
Листинг программы
uses graphabc;
var  x,y:integer;
begin
x:=40;
y:=windowheight div 2;
lockdrawing;
repeat
clearwindow;
setbrushcolor(clRed);
rectangle(x-40,y-20,x+40,y+20);
sleep(10);
x:=x+2;
redraw
until x+40>=windowwidth;
end.

Объяснение кода листинга программы

  1. В начале кода используется библиотека graphabc, которая позволяет рисовать графики на экране.
  2. Переменные x и y инициализируются значениями 40 и windowheight (высота окна) соответственно.
  3. Затем мы получаем блокировку для рисования, чтобы предотвратить возможные конфликты при рисовании на экране.
  4. В цикле повторяется следующая последовательность действий:
    • Очищаем окно с помощью clearwindow.
    • Устанавливаем цвет кисти на красный с помощью setbrushcolor(clRed).
    • Рисуем прямоугольник с помощью функции rectangle(x-40,y-20,x+40,y+20), где x и y - координаты верхнего левого и нижнего правого углов прямоугольника соответственно.
    • Задерживаем выполнение программы на 10 миллисекунд с помощью sleep(10).
    • Увеличиваем значение переменной x на 2.
    • Обновляем отображение с помощью redraw.
  5. Цикл продолжается до тех пор, пока x не станет больше или равно windowwidth (ширина окна), то есть прямоугольник не достигнет правой границы окна.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы