Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету - Pascal ABC (14585)

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

1)Создайте процедуру, рисующую "Облако" по заданным координатам центра, радиусу дуг и цвету. Скриншот во вложении. 2) Создайте процедуру, рисующую сердечко по заданным координатам центра, радиусу дуг и цвету. Скриншот во вложении.

Код к задаче: «Нарисовать фигуры по заданным координатам центра, радиусу дуг и цвету - Pascal ABC (14585)»

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.

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ