Вот два варианта одного и того же рекурсивного поиска.
С опережающим описанием: 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 Комментарий оценки: Огромное спасибо !!! То что нужно!
Отправить вопрос экспертам этой рассылки
Приложение (если необходимо):
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
