Нарисовать Круги

@Bamban · Регистрация: 04.03.2011

Author24 — интернет-сервис помощи студентам

Люди выручите пожалуйста! Мне нужно нарисовать Круги чтоб они были на одинаковом расстояние и размер при помощи цыкал примерно как на изображение! Только круги должны быть одной краски!

@Puporev · 04.03.2011, 22:00

Pascal

uses graph;
var x,y,r,w,i:integer;
begin
x:=0;
initgraph(x,y,'');
setbkcolor(15);
setlinestyle(0,0,3);
setcolor(8);
y:=getmaxY div 2;
r:=getmaxX div 20;
for i:=1 to 6 do
circle(3*r*i,y,r);
readln
end.

	04.03.2011, 22:00

Нарисовать Круги

Решение