Рекурсивная процедура

[Alex_FF]

а мой код правильно работает

вот так пишешь:

var
   S: Integer;

procedure Sum(N: Integer);
begin
    S := S + (1 + N * (N - 1) div 2) * (1 + N * (N - 1) div 2);
    if N = 1 then Exit; { это чтобы не уходить лишний раз в рекурсию... }
    Sum(N - 1);
end;

var
   N: Integer;
begin
    ReadLn(N);
    S := 0;
    Sum(N);
    WriteLn(S);
    ReadLn;
end.

и всё работает!!!

[Asira]

Твой правильно, а мой то почему нет ведь тож самое ..........
у меян просто программа объединяет в себе рекурсивную процедуру , функцию и обычную... вообщем это только кусок проги........

[Alex_FF]

Сообщение от Asira

и в таком варианте она работает не правильно постоянно выводит 1

procedure summa1(n:integer);
  var s:real;  { вот это нафиг не нужно! }
begin
if n=0 then  Exit;
 s:=s+ (1 + n * (n - 1) div 2)*(1 + n * (n - 1) div  2);  summa1(n-1);
end;

var S: Integer нужно писать перед процедурой! это глобальная переменная!