2 Вариант
Function
Fmin( i: Integer):Integer;
Begin
If
i=1
Then
Fmin:=a[1]
Else
Fmin:=Min (a[i], Fmin( i -1) );
End;
Вызов:
….. Writeln( Fmin (n) ); ……
3.
Форма с
выполнением действий как на рекурсивном
спуске, так и на рекурсивном подъеме:
a)
Procedure
P;
b)
Procedure
P;
Begin
Begin
S1;
If
B Then
If
B Then
P; Begin
S1; P; S2;
End;
S2;
End;
End;
Пример:
Вывести на печать символы введенной
строки в обратном порядке.
Procedure
Reverse;
Var
ch :Char;
Begin
If
Not
EoLn Then
Begin
Read(ch); Reverse; Write(ch); End;
End;
4)
Каскадная
рекурсия.
Procedure
P;
Begin
S;
If
B1 Then
P;
If
B2 Then
P;
end;