Версия для печати темы

Автор: Daminik 12.12.2007 3:43

Народ помогите с Паскалем, короч задач такая нужно написать прогу с рекуррентным поиском
которая находила max элемент в одномерном массиве
я писать начал а вот это прогу но рекурсию сделать не могу

Program alg1;
Uses
    Crt;
Type
    massiv = array [1..100] of integer;
Var
   a:massiv;
   i,n,max:integer;
   f:integer;
function poisk(b:massiv):integer;
Var
   x:integer;
Begin
??????????????
?????????????? 
end;
Begin
     ClrScr;
     write('Vvedite razmernost massiva: ');
     readln(n);
     writeln('------------------------------');
      for i:=1 to n do
       Begin
        write('a[',i,'] - > ');
        readln(a[i]);
       end;
      f:=poisk(a);
      writeln('Max aliment massiva: ',f);
      readkey;
     end.

Р

Автор: Michael_Rybak 12.12.2007 6:51

М

1. Пользуемся тегом CODE. 2. Не создаем три одинаковых темы.

Автор: Lapp 12.12.2007 15:53

Рекуррентная процедура поиска максимума может выглядеть примерно так:

function Max(n:integer; var a:array of integer): integer;
var
  b: integer;
begin
  if n>1 then begin
    b:= Max(n-1,a);
    if a[n]>b then Max:= a[n] else Max:= b
  end
  else Max:= a[1]
end;