Рекурсия

[dusya9992]

Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику задачи.
Дано натуральное число n. Найти сумму всех нечетных чисел от 1 до n.

[Serge_Bliznykov]

Дуся, а что, самостоятельно совсем не получается решить эту простую задачу?!

ладно, попробуйте разобрать готовый код:

function SumOdd(n : integer) : integer;
begin
  if n<=0 then SumOdd := 0
  else
  begin
    if n=1 then SumOdd := 1
    else
      begin
        if Odd(n) then SumOdd := n + SumOdd(n-2)
        else  SumOdd :=  SumOdd(n-1)
      end;
  end;
end;

var N : integer;
begin
  WriteLn('vvedite N :');
  Readln(N);
  WriteLn('Summa nechetnyh ravna ',SumOdd(N):1);
  Readln;
end.

[Gambler]

Вас учат индусскому коду??? По моему проще один цикл.

[zumm]

Не здарсте, не досвидания, не сделайте пожалуста...Что за народ...

[LeBron]

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

Вас учат индусскому коду??? По моему проще один цикл.

Учат ерунде, как всегда... Одно утешает, что эта девушка не будет в будущем программистом (и не спрашивайте, как я догадался). Тупое обучение рекурсии, которое часто в будущем приводит к дико не оптимальному использованию ресурсов в программах.

Serge_Bliznykov, так как число натуральное, согласно условию, то можно даже немного упросить функу в ущерб "понятности" и "книжности", которые требуют при таком бреде... Допустим, выбросить определение для n=1.

З.Ы. Подумал, это определение можно выбросить в любом случае.