Помощь - Поиск - Пользователи - Календарь
Полная версия: Ррекурсия в Паскале
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Daminik
Народ помогите с Паскалем, короч задач такая нужно написать прогу с рекуррентным поиском
которая находила 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
М
1. Пользуемся тегом CODE.
2. Не создаем три одинаковых темы.

Lapp
Рекуррентная процедура поиска максимума может выглядеть примерно так:
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;

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.