Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ паскаль рекурсивные алгоритмы СРОЧНО

Автор: Solana 14.12.2007 0:21

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

Автор: pascal65536 14.12.2007 0:50

Самый часто встречающийся пример - нахождение 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 14.12.2007 1:01

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

Автор: pascal65536 14.12.2007 11:01

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

Автор: klem4 14.12.2007 15:15

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