-7 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 15
1

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов

20.01.2014, 06:07. Показов 3213. Ответов 2
Метки нет (Все метки)

Не запускается программа, не понимаю почему. Задача и решение ниже.


Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
n,i:integer;
a:array[0..4] of integer;
function FindMax(c:integer):integer;
var w:integer;
begin
if c>1 then
 begin
  w:=FindMax(c-1);
  if a[c]<w then FindMax:=w
  else FindMax:=a[c]
 end
else FindMax:=a[1]
end;
begin
readln(n);
setlength(a,n+1);
for i:=1 to n do
readln(a[i]);
writeln(FindMax(n));
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2014, 06:07
Ответы с готовыми решениями:

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов.
Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов.

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов На...

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Добрый день, помогите пожалуйста, нужно написать рекурсивную функцию для вычисления максимального...

Написать рекурсивную функцию для вычисления индекса максимального элемента массива из n элементов
Завтра рубежный контроль...Аттестация помогите кто чем сможет...буду благодарен Java в среде...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.01.2014, 08:00 2
Цитата Сообщение от Сгущенка Посмотреть сообщение
не понимаю почему.
Потому что неправильно написана, ошибки грубые. Массив описан как статистический в диапазоне 0..4, однако зачем-то выделяется под него память
Pascal
1
setlength(a,n+1);
хотя в простом АВС нет динамических массивов
Несмотря на то что индексы с 0, везде эксплуатируется индекс 1.
Короче сплошной бардак

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n,i:integer;
    a:array[1..20] of integer;
function FindMax(c:integer):integer;
var w:integer;
begin
if c>1 then
 begin
  w:=FindMax(c-1);
  if a[c]<w then FindMax:=w
  else FindMax:=a[c]
 end
else FindMax:=a[1]
end;
begin
write('Размер массива n=');
read(n);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
read(a[i]);
writeln('Max=',FindMax(n));
end.
1
-7 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 15
20.01.2014, 17:34  [ТС] 3
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2014, 17:34
Помогаю со студенческими работами здесь

Написать рекурсивную функцию для вычисления индекса максимального элемента массива из n элементов
Написать рекурсивную функцию для вычисления индекса максимального элемента массива из n элементов.

Написать рекурсивную функцию для вычисления индекса максимального элемента массива из n элементов
Написать рекурсивную функцию для вычисления индекса максимального элемента массива из n элементов.

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

Написать рекурсивную функцию для получения индекса максимального массива из 5 элементов
Написать рекурсивную функцию для получения индекса максимального массива из 5 элементов помагите...

Написать рекурсивную функцию для поиска максимального элемента в одномерном массиве
Всем привет! Помогите решить две задачки пожалуйста! 9. Написать рекурсивную функцию для поиска...

Описать функцию max (X) для определения максимального элемента вектора X, введя вспомогательную рекурсивную функцию
Всем доброго времени суток. Помогите пожалуйста разобраться в условиях задачи, а то что-то у...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru