Автор Зубков Евгений задал вопрос в разделе Другие языки и технологии
как в паскале ABC нарисовать круг? и получил лучший ответ
Ответ от Георгий Зотиков[гуру]
uses graphabc;
var a,b,c,i,count:integer;
begin
floodfill(1, 1, clblue); {çàêðàøèâàåì ïðÿìîóãîëüíèê}
setbrushstyle(bsClear); {ñîçäà¸ì êðóãè}
{êîðäèíàòû êðóãà}
a:=100;
b:=100;
c:=50;
count:=1;
for i:=1 to 15 do {}
begin
if(count <= 4) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=a+90;
end;
if(count = 5) then
begin
circle(a,b,c);
floodfill(a, b, clwhite);
a:=100;
b:=b+90;
count:=0;
end;
count:=count+1;
end;
end.
вот еще одна прога
program grnebo;
uses graphABC,crt;
var
x,y:integer;
n,i,r,k:integer;
m:array [1..6] of integer;
begin
randomize;
m[1]:=clred;
m[2]:=clyellow;
m[3]:=clgreen;
m[4]:=clblue;
m[5]:=clolive;
m[6]:=clsilver;
for i:=1 to 50 do begin
x:=300 + random(510)-200;
y:=250 + random(400)-200;
r:=10;
delay(100);
k:= random(6)+1;
SetBrushColor(m[k]);
circle(x,y,r);
end;
end.
uses GraphAbc;
begin
SetWindowSize (200,200);
SetPenColor (clRed);
SetBrushColor (clRed);
Circle (50,50,20); // (50)-центр по оси x, (50)-центр по оси y, (20)-радиус
end.