close

Вход

Забыли?

вход по аккаунту

?

6 (2)

код для вставкиСкачать
Лабораторная работа 6
Тема:Применение рекурсивных функций
Цель:Развить навыки организации процедур и функций. Уметь использовать стандартные и пользовательские процедуры и функции. Уметь использовать различные виды параметров процедур.
Ход работы
Задание 1
.A(m,n)={█(A(0,n)=n+1; @A(m,0)=A(m-1.1),m>0; @A(m,n)=A(m-1,A(m,n-1)), m,n>0)┤
Program odin;
Var m, n: integer;
Function A(m,n:integer):integer;
Begin
Writeln ('m'); readln (m);
Writeln ('n'); readln (n);
Writeln ('A'); readln (A);
If n>0 then A(0,n):=n+1;
Else
If m>0 then A(m,0):=m-1.1;
Else A(m,n):=A(m-1/A(m,n-1);
Writeln('A(m,n)',A(m,n):4:2);
End.
Задание 2.Описать рекурсивную функцию FibRec(N) целого типа, вычисляющую N-е число Фибоначчи F(N) по формуле
F (1)= F(2)=1, F(k)=F(k-2)+F(k-1),
где k=3,4... .
С помощью этой функции найти пять чисел Фибоначчи с указанными номерами и вывести эти числа вместе с количеством рекурсивных вызовов функции FibRec, потребовавшихся для их наложения
.
Вывод: Научились развивать навыки организации процедур и функций.
Документ
Категория
Рефераты
Просмотров
14
Размер файла
34 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа