помогите с рекурсивной функцией Опции

[xsires]

помогите с рекурсивной функцией

procedure box(x1m,y1m,x2m,y2m:real;l:boolean);
var x1,x2,y1,y2:integer;
 begin
 if l=true then
 SetFillStyle(1,11)
 else
 setfillstyle(1,black);
  x1:=integer(round(x1m));
  x2:=integer(round(x2m));
  y1:=integer(round(y1m));
  y2:=integer(round(y2m));
 bar(x1,y1,x2,y2);
 end;

рисует квадратик елси l = true если l = false закрашиваем квадратик


а вот сама в процедура которую я немогу доделать ( ( (

procedure build(x1,y1,x2,y2:real);
 begin

  box(x1,y1,x2,y2,true);

  box(x1,y1,x1+((x2-x1)/3),y1+((y2-y1)/3),false);
  box(x2-((x2-x1)/3),y1,x2,y1+((y2-y1)/3),false);
  box(x1,y2-((y2-y1)/3),x1+((x2-x1)/3),y2,false);
  box(x2-((x2-x1)/3),y2-((y2-y1)/3),x2,y2,false);

  box(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3),true);
  box(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1,true);
  box(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3),true);
  box(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2,true);


 build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));
 build(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1);
 build(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3));
 build(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2);
  end;

строки

 build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));
 build(x2-((x2-x1)/3),y1 -((y2-y1)/3),x2,y1);
 build(x1,y2,x1 +((x2-x1)/3),y2+((y2-y1)/3));
 build(x2,y2-((y2-y1)/3),x2+((x2-x1)/3),y2);

должны выполнятся все сразу

а на деле выполняется ток первая строка

 build(x1-((x2-x1)/3),y1,x1,y1+((y2-y1)/3));

кто нить подскажите решение проблемы .... мне нуна чтобы выполнялись 4 строки сразу а не ток первая

[volvo]

Я тебе уже сказал - приводи код полностью... Это первое. Второе - для Паскаля есть специальная подсветка. И третье. Где здесь ты увидел теоретический вопрос?

Перенесено...

P.S. Где условие выхода из рекурсии? У тебя скорее всего переполняется стек, и программа просто вылетает. Потому что ты нигде не говоришь программе, что при нулевых или отрицательных значениях параметров (это как пример, может, ты сделаешь другие условия) продолжать рекурсивные вызовы не надо, пора остановиться.

[Lapp]

Я тебе уже сказал - приводи код полностью... Это первое. Второе - для Паскаля есть специальная подсветка. И третье. Где здесь ты увидел теоретический вопрос?

Перенесено...

P.S. Где условие выхода из рекурсии? У тебя скорее всего переполняется стек, и программа просто вылетает. Потому что ты нигде не говоришь программе, что при нулевых или отрицательных значениях параметров (это как пример, может, ты сделаешь другие условия) продолжать рекурсивные вызовы не надо, пора остановиться.

Я только сейчас внимательнее просмотрел тему и увидел, что все, что я сказал, volvo сказал до меня. Прошу принять мои глубочайшие извинения за отсутствие, по крайней мере, упоминания об этом..