VPF::написать рекурсивную функцию - Форум программистов

Distemper

Дата 7.1.2008, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.1.2008

Репутация: нет
Всего: нет

Не могу сообразить с прогой, помогите плиззз:
ОПРЕДЕЛИТЬ РЕКУРСИВНУЮ ФУНКЦИЮ НА ПАСКАЛЕ, НАХОДЯЩУЮ МИНИМАЛЬНЫЙ ЭЛЕМЕНТ В ОДНОМЕРНОМ МАССИВЕ ЦЕЛЫХ ЧИСЕЛ.
Не могу сообразить, как сделать рекурсию, если массив неопределённый в значениях, т.е. его длина может быть разная... Я думаю как-то через Low и High, но не могу сообразить как...

volvo877

Дата 7.1.2008, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код


function get_min(const arr: array of integer;
         const size: integer): integer;
var min: integer;
begin
  if size = 1 then get_min := arr[pred(size)]
  else begin
    min := get_min(arr, pred(size));

    if arr[pred(size)] < min then get_min := arr[pred(size)]
    else get_min := min;
  end;
end;

const
  n = 10;
  a: array[1 .. n] of integer = (
    6, 5, 2, -73, 4, -12, 7, 9, 10, 2
  );

begin
  writeln(get_min(a, n));
end.

Distemper

Дата 7.1.2008, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.1.2008

Репутация: нет
Всего: нет

таким образом, он с конца проверяет массив на меньшее число, да?
почему pred(size), а не dec(size) ?

Это сообщение отредактировал(а) Distemper - 7.1.2008, 13:12

A1taiR

Дата 7.1.2008, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.5.2007

Репутация: нет
Всего: нет

Код


if size = 1 then get_min := arr[pred(size)]

Тут у тебя ф-ция выдаст 0, а не 1.

Код


else begin
    min := get_min(arr, pred(size));

По-мойму тут будет бесконечная рекурсия - до нижнего куска кода дело не дойдет.

volvo877

Дата 7.1.2008, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

A1taiR, ты б запустил, а потом критиковал, умник...

Ты в курсе вообще, что такое open array? И что он индексируется с 0? Нет? Так куда лезешь?

A1taiR

Дата 7.1.2008, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 19.5.2007

Репутация: нет
Всего: нет

volvo877
Извеняюсь.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »