Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету - Pascal ABC (14585)
Формулировка задачи:
1)Создайте процедуру, рисующую "Облако" по заданным координатам центра, радиусу дуг и цвету.
Скриншот во вложении.
2) Создайте процедуру, рисующую сердечко по заданным координатам центра, радиусу дуг и цвету.
Скриншот во вложении.
Решение задачи: «Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету»
textual
Листинг программы
uses graphABC; procedure oblako(x,y,r,cl:integer); begin setpencolor(cl); arc(x+r,y,r,270,90); arc(x,y-r,r,0,180); arc(x-r,y,r,90,270); arc(x,y+r,r,180,360); end; begin setwindowsize(500,500); centerwindow; oblako(windowwidth div 2,windowheight div 2,windowheight div 4-10,clRed); end.
Объяснение кода листинга программы
- В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
- Вторая строка определяет процедуру oblako, которая принимает четыре аргумента: x, y, r и cl.
- В третьей строке устанавливается цвет кисти на красный (clRed).
- В четвертой строке вызывается функция arc, которая рисует окружность по заданным координатам центра, радиусу дуг и углу поворота. Эта функция вызывается четыре раза, чтобы нарисовать четыре части окружности.
- В пятой строке устанавливается размер окна приложения.
- В шестой строке вызывается функция centerwindow, которая центрирует окно приложения.
- В седьмой строке вызывается функция oblako, передавая в нее координаты центра окружности (windowwidth div 2, windowheight div 2), радиус окружности (windowheight div 4-10), и цвет кисти (clRed).
- В восьмой строке заканчивается выполнение программы.