Нарисовать линию

@Линочка · Регистрация: 16.09.2010

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

Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.

@Puporev · 28.09.2010, 10:09

Pascal

uses graph;
var x,y,i:integer;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2-70;
y:=getmaxY div 2;
for i:=1 to 15 do
 begin
  setcolor(i);
  circle(x+(i-1)*10,y,10);
 end;
readln
end.

@Линочка 0 / 0 / 0 Регистрация: 16.09.2010 Сообщений: 9
		1
	Нарисовать линию 28.09.2010, 09:54. Показов 8148. Ответов 1 Метки нет (Все метки) Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей. 0

	28.09.2010, 10:09

Нарисовать линию

Решение