Светлана Быковская
РЗ
Руслан Зайцев
может быть эта программа тебе поможет?
program grkrug;
uses graphABC,crt;
var
x,y:integer;
n,i,r:integer;
m:array [1..6] of integer;
begin
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 6 do begin
x:=300 + trunc(sin(i)*100);
y:=150 + trunc(cos(i)*100);
r:=20;
delay(1000);
SetBrushColor(m);
circle(x,y,r);
end;
end.
Похожие вопросы