Проблема из модулем Graph

  • Автор темы oR2n
  • Дата начала
O

oR2n

Гость
#1
Здравствуйте. Мне необходимо написать программу в pascal, которая будет строить изображение букета цветов, которые меняют цвет. Как можно такое реализовать? Заранее спасибо за помощь.
 
09.11.2009
665
1
23
Киев
#3
подключаете модуль GRAPH, рисуете круг радиуса R на круге 6 кругов с радиусом R/2, ну и в центре какогото цвета тоже круг R/2.

Добавлено :
Вот код, надо только смену цвета доделать(цикл for)
Код:
uses graph;
const R=30;
var graphmode,graphdriver,r2,x,y,color1,color2:integer;
begin
initgraph(graphdriver,graphmode,'');
color1:=green;
color2:=yellow;
setcolor(color1);
setfillstyle(1,color1);
r2:=r;
x:=320;
y:=240;
fillellipse(x,y,r2,r2);
r2:=round(r/2);
x:=320-r;
y:=240;
fillellipse(x,y,r2,r2);
x:=320;
y:=240+r;
fillellipse(x,y,r2,r2);
x:=320+r;
y:=240;
fillellipse(x,y,r2,r2);
x:=320;
y:=240-r;
fillellipse(x,y,r2,r2);
x:=320-round(r2*sqrt(2));
y:=240-round(r2*sqrt(2));
fillellipse(x,y,r2,r2);
x:=320+round(r2*sqrt(2));
y:=240-round(r2*sqrt(2));
fillellipse(x,y,r2,r2);
x:=320-round(r2*sqrt(2));
y:=240+round(r2*sqrt(2));
fillellipse(x,y,r2,r2);
x:=320+round(r2*sqrt(2));
y:=240+round(r2*sqrt(2));
fillellipse(x,y,r2,r2);
x:=320;
y:=240;
setcolor(color2);
setfillstyle(1,color2);
fillellipse(x,y,r2,r2);
readln;
closegraph;
end.