ЭЭЭ, здравствуйте, не скажете, каким способом на паскале можно заставить процедуру вызвать саму себя?
типо такого:
Procedure blablabla(a,b,c,d:4isla);
begin
a:=123;
...........
BLABLABLA(a,b,c,d);
End;

ЗЫ. походу называецо рекусрсией...

Вот простейший пример, примерно так как ты написал так и вызывается, даже можно сказать в точности.

Не, это конечно круто, но факториал-то я и сам писал... но нужно, чтоб именно процедура была, а не функция. когда я пишу чёто типа
Procedure Prutik(x,y,l,f:double);
Var x1,y1:double;
Begin
x1:=x+sin(f)*l;
y1:=y+cos(f)*l;
Line(Round(x),Round(y),Round(x1),Round(y1));
x:=x1;
y:=y1;
Begin
Prutik(x,y,l/2,f+pi/8);
Prutik(x,y,l/2,f-pi/8);
End;
End;

имею рантайм эррор 202... вот.

Ну, RunTime ты будешь иметь только потому, что рекурсия у тебя получается бесконечной. Ты ж не определил условия выхода из рекурсии... Как только стек переполнится - Error 202 обеспечена...

А вообще - приведи полностью программу, посмотрим, что у тебя там происходит...

P.S. Переезжаем в "Задачи"

Точно! Спасибо. А хочу я такое себе деревце нарисовать...
Зы. уже начинает коечто выходить.) Ищё раз спасибо.