Вот два варианта одного и того же рекурсивного поиска.
С опережающим описанием: const n=10;
type arr=array[1..n] of integer;
const a : arr = (-1,4,6,-100,5,3,-3,6,-11,0);
Function poisk(n, b : Integer) : Integer;
Function minim(a, b : Integer) : Integer;
Begin
if a > b then minim:= b else minim:=a;
End;
Begin
if n = 2
then poisk:=minim(n,a[1])
else poisk:=minim(a[n], poisk(n-1,a[n]));
End;
begin
writeln('Min=', poisk(n,a[n]));
end.
Без опережающего описания: const n=10;
type arr=array[1..n] of integer;
const a : arr = (-1,4,6,-100,5,3,-3,6,-11,0);
Function minim(a, b : Integer) : Integer;
Begin
if a > b then minim:= b else minim:=a;
End;
Function poisk(n, b : Integer) : Integer;
Begin
if n = 2
then poisk:=minim(n,a[1])
else poisk:=minim(a[n], poisk(n-1,a[n]));
End;
begin
writeln('Min=', poisk(n,a[n]));
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 16.06.2007, 14:43 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо !!! То что нужно!
