Рекурсия Шары

@Александр1991 · Регистрация: 31.10.2010

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

как сделать чтобы большие шары были не прозрачными? как на картинке

код

Pascal

uses
  GraphABC;
 
procedure RecCircle(x, y, R: real; n: integer);
var
  k: real;
begin
  k := 0.5;
  circle( trunc(x), trunc(y), trunc(R) );
  if (n = 1 ) then exit;
 
  RecCircle( x, y - R, k * R, n - 1);
 RecCircle( x + R, y, k * R, n - 1);
RecCircle( x - R, y, k * R, n - 1);
 RecCircle( x, y + R, k * R, n - 1);
 
 
end;
 
begin
  SetBrushStyle(bsClear);
  SetWindowSize(600, 500);
  RecCircle( 300, 250, 100, 5 );
end.

@Puporev · 29.03.2013, 17:40

Добавь в конце процедуры

Pascal

1	circle(round(x), round(y),round(R)

)
и убери из программы

Pascal

1	SetBrushStyle(bsClear);

Добавлено через 4 минуты
Если радиус чуть увеличивать, красивше будет

Pascal

 RecCircle( x, y - R*1.2, k * R, n - 1);
 RecCircle( x + R*1.2, y, k * R, n - 1);
 RecCircle( x - R*1.2, y, k * R, n - 1);
 RecCircle( x, y + R*1.2, k * R, n - 1);
 circle(round(x), round(y),round(R))

Добавлено через 1 минуту
Если взять 1.25 вообще как на картинке будет..

@Александр1991 · 29.03.2013, 17:49 **[ТС]**

Премного благодарен!)

@Александр1991 1 / 0 / 0 Регистрация: 31.10.2010 Сообщений: 9
	29.03.2013, 17:49 [ТС]	3
	Премного благодарен!) 0

Рекурсия Шары

Решение