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

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

1.Создайте процедуру, рисующую дугу по заданным координатам центра, радиусу и значению второго угла (Первый угол равен нулю). Выведите ракушку: Скриншот во вложении 2. Создайте процедуру, рисующую символ инь-янь по заданным координатам, радиусу дуг и цвету. (скриншот во вложении);

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

textual
uses graphABC;
procedure duga(x,y,r,a:integer);
begin
setpencolor(clRed);
arc(x,y,r,0,a);
end;
var i,a,r,x,y:integer;
begin
setwindowsize(600,600);
centerwindow;
y:=windowheight div 2;
x:=3*windowwidth div 4;
r:=windowheight div 5;
a:=360;
for i:=1 to 11 do
 begin
  duga(x,y,r,a);
  x:=x-15;
  r:=r+15;
  a:=a-330 div 11;
 end;
end.

12   голосов, оценка 4.333 из 5


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