Нарисовать увеличение круга на экране - Pascal ABC

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

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

74. Нарисовать увеличение круга на экране.

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

textual
Листинг программы
uses graphABC;
var c,r:integer;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
r:=50;
lockdrawing;
repeat
clearwindow;
r:=r+5;
setbrushcolor(clRed);
circle(c,c,r);
sleep(50);
redraw;
until r>c;
end.

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

  1. В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
  2. Переменные c и r инициализируются значениями 250 и 50 соответственно. Эти значения, вероятно, представляют собой координаты центра круга.
  3. Функция setwindowsize устанавливает размер окна приложения на 500x500 пикселей.
  4. Функция centerwindow, вероятно, центрирует окно по горизонтали и вертикали.
  5. Переменная c снова инициализируется новым значением 250.
  6. Переменная r снова инициализируется новым значением 50.
  7. Функция lockdrawing, вероятно, блокирует возможность изменения графического контекста, что позволяет безопасно рисовать на экране.
  8. Цикл repeat…until используется для повторения блока кода до тех пор, пока значение переменной r больше значения переменной c.
  9. В цикле clearwindow очищается окно приложения.
  10. Функция setbrushcolor устанавливает цвет кисти на красный.
  11. Функция circle рисует круг с центром в точке (c,c) и радиусом r.
  12. Функция sleep(50) вызывает задержку в 50 миллисекунд.
  13. Функция redraw обновляет графическое представление окна приложения.
  14. Конец цикла.
  15. Конец приложения.

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

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