Программирование рекурсивных алгоритмов.

Написать рекурсивную функцию, вычисляющую факториал заданного целого положительного числа n.

1. Для вычисления n! можно воспользоваться следующими соотношениями:

1! = 1

2! = 1•2 = 2•1!

3! = 1•2•3 = 3•2!

. . .

n! = n•(n-1)!

2. Схема алгоритма решения задачи:

3. Код программы

3.1.На языке Паскаль:

Program Variant_0;

Uses WinCrt;

Var n: Word;

fact: LongInt;

Function Factorial(k:Word):LongInt;

Begin

If (k=1) Or (k=0)

Then Factorial:=1 {терминальная ветвь}

Else Factorial:=k*Factorial(k-1); {рекурсивная ветвь}

End; {Factorial}

Begin {головная программа}

WriteLn('Лабораторная работа №9_1');

WriteLn('Вариант №0');

WriteLn('ИС-11-1');

WriteLn('Пупкин Василий');