Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2010, 18:23   #1
caen21rus
Пользователь
 
Регистрация: 27.05.2009
Сообщений: 27
По умолчанию Кольца

Код:
uses CRT, Graph;
var
	gd, gm : Integer;
const
	Min = 1;
	n = 3;
	m = 6;

procedure Draw(x, y : Integer; Size : Word);

var
  s1, s2 : Integer;
  i : Integer;

begin
	if Size > Min then
	begin
		s1 := Size div n;
		s2 := Round(Size * (n-1)/n);
		for i := 1 to m do
		begin
			Draw(x - Round(s2*sin(2*pi/m*i)),
				y + Round(s2*cos(2*pi/m*i)), s1);
		end;
		Draw(x,y,s1); {center}
	end;
	Circle(x, y, Size);
end;

begin
	gd := Detect;
	InitGraph(gd,gm,'c:\bp\bgi');
	Draw(320,240,200);
	ReadKey;
	CloseGraph;
end.
Не получается сделать такой рисунок

как убрать кругжки по середине?
Изображения
Тип файла: png ifs_c_6.png (14.4 Кб, 102 просмотров)

Последний раз редактировалось caen21rus; 08.11.2010 в 19:09.
caen21rus вне форума Ответить с цитированием
Старый 08.11.2010, 20:21   #2
caen21rus
Пользователь
 
Регистрация: 27.05.2009
Сообщений: 27
По умолчанию

тему можно удалить
caen21rus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фрактал в виде папоротника Arigato Мультимедиа в Delphi 5 29.03.2011 06:33
фрактал по центру image Сергей089 Помощь студентам 0 04.05.2009 21:59
Фрактал на PHP Alter PHP 5 29.10.2008 15:24