Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету - 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.

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

  1. В первой строке используется библиотека graphABC, которая, вероятно, предоставляет функции для работы с графиками.
  2. Вторая строка определяет процедуру oblako, которая принимает четыре аргумента: x, y, r и cl.
  3. В третьей строке устанавливается цвет кисти на красный (clRed).
  4. В четвертой строке вызывается функция arc, которая рисует окружность по заданным координатам центра, радиусу дуг и углу поворота. Эта функция вызывается четыре раза, чтобы нарисовать четыре части окружности.
  5. В пятой строке устанавливается размер окна приложения.
  6. В шестой строке вызывается функция centerwindow, которая центрирует окно приложения.
  7. В седьмой строке вызывается функция oblako, передавая в нее координаты центра окружности (windowwidth div 2, windowheight div 2), радиус окружности (windowheight div 4-10), и цвет кисти (clRed).
  8. В восьмой строке заканчивается выполнение программы.

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

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