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

[--1990Артём]

Найдите сумму квадратов всех ЧЕТНЫХ чисел от 2 до заданного числа.
помимио нахождения основоного результата-необходимо организовать подсчет числа реально произведенных рекурсивных выводов.
Я написал,только без рекурсивной,немного не понимаю....

Program primer;
Var
  n,i,k,s:integer;
Begin
  Writeln('Введите n');
  Readln(n);
  
  s:=0;
  for i:=1 to n do
  Begin
    if i mod 2=0 then  {если чётное}
    Begin
      k:=i*i;
      s:=s+k;
    End;
  End;
  Writeln('сумма' ,s);
  Readln;
End.

[Mad_Cat]

Function GetSum(n:integer):real;
begin
if N>0 then Getsum:=n*n+Getsum(n-2);
end;
var N:integer;
s:real;
begin
repeat
readln(n);
until n>2;
n:=n div 2 *2;
s:=Getsum(n);
writeln(s);
end.

[Sciv]

Рекурсия - грубо говоря, это когда функция вызывает внутри саму себя. Ну, или как когда-то ляпнул наш преподаватель по лиспу:

"Я обернулся посмотреть, не обернулась ли она, чтоб посмотреть, не обернулся ли я - это тоже рекурсия!" (с)

В Вашей программе даже функций/процедур не наблюдается, так что о какой рекурсии может идти речь?

Program primer;

Var n,s:integer;

Function OddSum(x,y: integer): integer;
var sum: integer;
begin
  sum:=0;
  if x<=y then sum:=x*x+OddSum(x+2,y);
  OddSum:=Sum;
end;

Begin
  Writeln('Введите n: ');
  Readln(n);
  s:=OddSum(0,n);
  Writeln('Сумма: ' ,s);
  Readln;
End.

[Serge_Bliznykov]

Mad_Cat, маленький совет на будущее, если пишите функцию, то пишите код так, чтобы она ВСЕГДА возвращала значение!
("нормальные" компиляторы следят за этим и вообще не позволят Вам скомпилировать код, подобный вашему, где значение функции может быть неопределённым!)

[Sciv]

"нормальные" компиляторы следят за этим и вообще не позволят Вам скомпилировать код

Позволит. Но выдаст Hint. Что-то вроде: функция может не вернуть конечного значения.

[Mad_Cat]

offtop
1 ) программа работает?
2) значения возвращает?
3) ТС все устроило?
1 - Да (по крайней мере в Паскаль ABC - без хинтов и ероров)
2 - Да (верные )
3 - Видимо да раз он лихо смылся (Без реверансов и экивоков)
==> Решение найдено и пора крыть тему

[Serge_Bliznykov]

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

Позволит. Но выдаст Hint.

когда я говорил про нормальные компиляторы, я и имел в виду, что Delphi не обладает нормальным компилятором, и к этому пофигистично относится.
Точно так же Delphi позволит Вам использовать значение неиницилизированной переменной.
Например, в том же C# компилятор Вам не даст такие финты крутить (и это правильно!)

offtop.
Mad_Cat, что Вы на дыбки встаёте?!
я же написал, чтобы Вы для себя выводы сделали.
Не хотите - воля Ваша, хозяин - барин!



А тему я прикрывать пока не буду.
Может, TC соблаговолит отписаться...

[Sciv]

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

Да, согласен. Все вытекающие из этого последствия - на совести разработчика.