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

UptoLike

ВУЗ: 

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

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

Рубрика: 

12
Рекурсивную процедуру SumRec следует рассматривать как иллюстрацию
аппарата рекурсии. Итеративная (нерекурсивная) процедура для нахождения
суммы гораздо проще, эффективнее и естественнее:
procedure Sum( n: integer; var S: real);
var i: integer;
begin
S=1;
for i:=2 to n do
S:=S+1/n
end;
Пример 2 Описать рекурсивную функцию для возведения числа в целую
положительную степень:
⎩
⎨
⎧
>⋅
=
=
−
0n если ,
0n если ,1
1n
n
xx
x
Используя эту функцию, вычислить
2
3
.
program Rec_2_1;
function Pow( x:real; n:integer): real;
begin
if n=0 then
Pow:=1
else
Pow:=x*Pow(x,n-1)
end;
begin
writeln('Pow(2,3)=',Pow(2,3))
end.
Результат работы программы Rec_2_1: Pow(2,3)=8

Страницы