паскаль рекурсивные алгоритмы СРОЧНО, 3 задачи на рекурсии Опции

[Solana]

1. вычеслить сумму n первых членов арифметической прогрессии
2. написать рекурсию вычесления N(ого) числа фибоначи
3. найти сумму цифр в числе
все задачи надо черес рекурсии с процедурами или с функциями
я понимаю что могла бы и сама решить эти задачи но я не могу понять рекурсии
надеюсь с помощью вас пойму
зарание спасибо

[pascal65536]

Самый часто встречающийся пример - нахождение n!. Во всех книжках пишут.
Работает рекурсия до тех пор, пока однозначно не определится самое маленькое значение, когда и вычислять то ничего не надо. В этом примере вычисление факториала будет упрощаться до тех пор, пока не надо будет вычислить 1! = 1. Это очевидно. Затем рекурсия начнёт подъём, вычисляя 2! как 2*1!, 3!=3*2! и т.д.

Var C : Integer;

    Function F(A:Integer):Integer;
    Begin
         If A = 1 Then F := 1
                  Else F := A * F(A-1);
    End;

Begin
     C := 7;
     WriteLn(F©);
End.

А теперь внимание! Решение первой задачи перед вами! Надо только изменить лишь один символ!

[Solana]

не не поняла
не получается
напиши нормально

Сообщение отредактировано: Solana - 13.12.2007 21:23

[pascal65536]

Надо заменить только один символ!

[klem4]

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