• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

oR2n

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

Dock1100

подключаете модуль 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.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!