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

Тема в разделе "Pascal and Delphi", создана пользователем oR2n, 4 дек 2010.

  1. oR2n

    oR2n Гость

    Здравствуйте. Мне необходимо написать программу в pascal, которая будет строить изображение букета цветов, которые меняют цвет. Как можно такое реализовать? Заранее спасибо за помощь.
     
  2. XTen

    XTen Active Member

    Регистрация:
    18 сен 2010
    Сообщения:
    26
    Симпатии:
    0
    Готов помочь в написании
    ICQ: 410691984
     
  3. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    подключаете модуль GRAPH, рисуете круг радиуса R на круге 6 кругов с радиусом R/2, ну и в центре какогото цвета тоже круг R/2.

    Добавлено :
    Вот код, надо только смену цвета доделать(цикл for)
    Код (Delphi):
    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.
     
Загрузка...

Поделиться этой страницей