Рекурсия - 23 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

25
Контрольные примеры
1) x = 2 ( ( x
2
)
2
)
2
= 16
2
= 256
2) x = 3 ( ( x
2
)
2
)
2
= 81
2
= 6561
Пример 11 Описать рекурсивную и нерекурсивную функции вычисления
значения по формуле:
n++++ ...321
Используя эти функции, вычислить значения для различных n > 3 и срав-
нить результаты.
program Rec_11;
var n:integer;
function f_rec(n,i:integer):real;
begin
if i=n then
f_rec:=sqrt(n)
else
f_rec:=sqrt(i+f_rec(n,i+1))
end;
function f_nrec(n:integer):real;
var i:integer;
s:real;
begin
s:=0;
for i:=n downto 1 do
s:=i+sqrt(s);
f_nrec:=sqrt(s)
end;

Страницы