Реферат: Рекурсия
End;
{Процедура на Pascal}
Procedure Factorial(N:integer; Var F:Extended);
Begin
If N<=1
Then F:=1
Else Begin Factorial(N-1, F); F:=F*N End
End;
/* Функция на C */
double Factorial(int N)
{
double F;
if (N<=1) F=1.; else F=Factorial(N-1)*N;
return F;
}
Пример 2.
|
{Функция на Pascal} Function K(N:Longint):Byte; Begin If N<10 Then K:=1 Else K:=K(N div 10)+1 End; |
{Процедура на Pascal} Procedure K(N:Longint; Var Kol:Byte) Begin If N<10 Then Kol:=1 Else Begin K(N Div 10, Kol); Kol:=Kol+1 End; К-во Просмотров: 1241
Бесплатно скачать Реферат: Рекурсия
|