[Asira]

Код:

function summa3(n:integer):integer;
var s,i,a:integer;
begin a:=1; s:=0; for i:=1 to n do
begin summa3:= summa3(n-1) +a*a;
a:=a+i;
end;end

;

[AleD]

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

Помогите написать рекурсивную функцию без оператора for
Найти сумму: 1( в квадрате)+2(в квадрате)+4(в квадрате)+7(в квадрате)+11(в квадрате)… (n слагаемых)

Код:

function summa3(n:integer):integer;
var s,i,a:integer;
begin a:=1; s:=0; for i:=1 to n do
begin summa3:= summa3(n-1) +a*a;
a:=a+i;
end;end

;

Если вы имеете в виду написать вообще без циклов, то как мне кажется (могу ошибаться) это невозможно. Если это принцип против цикла for, можно использовать while, repeat, да даже лэйблы с переходами

[Asinkrit]

Как это невозможно, а как же рекурсивный спуск)

Код:

function Summ(i:Integer):Integer;
begin
  Result:=0;
  if i > 0 then
    Result:=Result+(i*i)+Summ(i-1);
end;

[Asira]

РЕЗУЛЬТАТ ПОЛУЧАЕТСЯ НЕПРАВИЛЬНЫЙ

[Asinkrit]

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

РЕЗУЛЬТАТ ПОЛУЧАЕТСЯ НЕПРАВИЛЬНЫЙ

Что значит не правильный, по условию задания твоего, проверил, у меня получается правильный)

[Asira]

я ВВЕЛА n=3 он вывел 14 а должен был 21 вывести...

[Asinkrit]

Ок, моя функция считает последовательно 1*1 + 2*2 + 3*3 + 4*4
В твоем задании 1*1 + 2*2 + 4*4 + 7*7 ...

Немогу понять как у тебя определяется последовательность слагаемых чисел, нужна формула, у меня по порядку, а у тебя ?)

Дай формулу по которой определяется следующее слагаемое число и я перепишу функцию под твою задачу, лучше саму задачу дай, как она звучит изначально. что за числа 1, 2, 4, 7...?

[Asira]

Код:

function summa2(n:integer):integer;
var s,i,a:integer;
begin
s:=0;
a:=1;
for i:=1 to n do
begin
s:=s+a*a;
a:=a+i;
end;
summa2:=s;
end;

[Asinkrit]

Что-то типа этого)

Код:

function summa(const StartSum, FirstNum, CountN:integer):integer;
begin
  Result:=0;
  if FirstNum-1 < CountN then
    Result:=Result+(StartSum*StartSum)+summa(StartSum+FirstNum, FirstNum+1, CountN);
end;

и сам вызов

Код:

  Summa(1,1,N)

[Asira]

Спасибо !!!!!!!!!