Рекурсия: определение максимума из двух чисел

@Ohne · Регистрация: 09.04.2015

Author24 — интернет-сервис помощи студентам

Добрый день или вечер!

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

Программа определяет максимум из двух чисел (DOWN <= InDown <= InUp <= UP).

Pascal

const
  DOWN = 0; { Array-Untergrenze }
  UP = 10; { Array-Obergrenze }
 
  type
  tIndex = DOWN..UP;
  tFeld = array[tIndex] of integer;
 
Варианты ответов (A - E):
 
A   
 
function FeldMaxA (
          var inFeld : tFeld;
              inDown,
              inUp : tIndex) : integer;
 
  var
  Middle : tIndex;
  MaxL,
  MaxR : integer;
 
begin
  if inDown = inUp then
    FeldMaxA := inFeld[inUnten]
  else
  begin
    Middle := (inDown + inUp) div 2;
    MaxL := FeldMaxA (inFeld,inDown,Middle);
    MaxR := FeldMaxA (inFeld,Middle+1,inUp);
    if MaxL > MaxR then
      FeldMaxA := MaxL
    else
      FeldMaxA := MaxR
  end
end; { FeldMaxA }
 
 
B   
 
function FeldMaxB (
          var inFeld : tFeld;
              inDown,
              inUp : tIndex) : integer;
 
  var
  Middle : tIndex;
  MaxL,
  MaxR : integer;
 
begin
  if inDown = inUp then
    FeldMaxB := inFeld[inDown]
  else
  begin
    Middle := (inDown + inUp) div 2;
    MaxL := FeldMaxB (inFeld,inDown,Middle);
    MaxR := FeldMaxB (inFeld,Middle,inUp);
    if MaxL > MaxR then
      FeldMaxB := MaxL
    else
      FeldMaxB := MaxR
  end
end; { FeldMaxB }
 
C   
 
function FeldMaxC (
          var inFeld : tFeld;
              inDown,
              inUp : tIndex) : integer;
 
  var
  Middle : tIndex;
  MaxL,
  MaxR : integer;
 
begin
  if inDown > inUp then
    FeldMaxC := inFeld[inDown]
  else
  begin
    Middle := (inDown + inUp) div 2;
    MaxL := FeldMaxC (inFeld,inDown,Middle);
    MaxR := FeldMaxC (inFeld,Middle+1,inUp);
    if MaxL > MaxR then
      FeldMaxC := MaxL
    else
      FeldMaxC := MaxR
  end
end; { FeldMaxC }
 
D 
 
function FeldMaxD (
          var inFeld : tFeld;
              inDown,
              inUp : tIndex) : integer;
 
    var
    Middle : tIndex;
    MaxL,
    MaxR : integer;
 
begin
  if inDown > inUp then
    FeldMaxD := inFeld[inDown]
  else
  begin
    Middle := (inDown + inUp) div 2;
    MaxL := FeldMaxD (inFeld,inDown,Middle);
    MaxR := FeldMaxD (inFeld,Middle,inUp);
    if MaxL > MaxR then
      FeldMaxD := MaxL
    else
      FeldMaxD := MaxR
  end
end; { FeldMaxD }
 
E 
 
function FeldMaxE (
          var inFeld : tFeld;
              inDown,
              inUp : tIndex) : integer;
 
  var
  i : tIndex;
  HilfMax : integer; { вспомогательная переменная }
 
begin
  HilfMax := 0;
  for i := inDown to inUp do
    if inFeld[i] > HilfMax then
      HilfMax := inFeld[i];
  FeldMaxE := HilfMax
end; { FeldMaxE }

@APALoff · 21.05.2015, 16:45

Сообщение от Ohne

Программа определяет максимум из двух чисел

Может есть какое-то дополнительное условие? А то ведь как то не рационально.

@Ohne · 22.05.2015, 19:41 **[ТС]**

Какие из следующих функций определяют максимум в области с переменными пределами inDown и inUp правильно?
Вы можете считать, что при (первом) вызове функций всегда
DOWN <= InDown <= InUp <= UP применяется.
(Примечание: При A - D речь не идёт о разумном применении рекурсии).

Больше ничего не было.

Добавлено через 16 часов 2 минуты
Я решила, что A, B, C, D, E являются правильными ответами.

Это верно или я где-то допустила ошибку?

Добавлено через 6 часов 53 минуты
Вот ссылка на пример:

(ссылка на форум удалена)

ФедосеевПавел · 22.05.2015, 23:24

Мне кажется:
1. Не Е. Т.к. массив знаковый, а HilfMax := 0; в случае всех отрицательных чисел в массиве даст неверный результат.
2. Не D. Потенциальное зацикливание рекурсии при inDown=inUp (а это произойдет обязательно).
3. Не С. Обращение за пределами массива при inDown>inUp и inUp=10.
4. B - похоже.
5. Не А. Неопределённая переменная или константа inUnten.

@Ohne · 22.05.2015, 23:46 **[ТС]**

Прошу прощения, но в варианте ответа А я допустила ошибку, пропустив и не переделав переменную inUnten в inDown.

inUnten - это inDown, т.е. inFeld[inUnten] - это inFeld[inDown]

ФедосеевПавел · 22.05.2015, 23:59

Тогда и я прошу прощения.
4. Не В. Зацикливание при inDown=9 и inUp=10
5. A - похоже.

@Ohne · 22.05.2015, 23:59 **[ТС]**

В варианте Е мне кажется, что массив не знаковый, так как интервал чисел уже был предопределён условием задачи в константах DOWN = 0; и UP = 10; Если, конечно, я не ошибаюсь.

ФедосеевПавел · 23.05.2015, 00:01

А вообще - можно "в лоб" - набрать тестовую программу и проверить.

Добавлено через 1 минуту

Сообщение от Ohne

В варианте Е мне не кажется, что массив не знаковый,

Pascal

1
2
3

type
  tIndex = DOWN..UP;
  tFeld = array[tIndex] of integer;

integer ? не знаковый?

@Ohne · 23.05.2015, 00:07 **[ТС]**

integer - это же, вроде, целочисленный

ФедосеевПавел · 23.05.2015, 00:10

а диапазон возможных значений у него какой? Ну, например, для TurboPascal, или для более "родного" тебе диалекта?

@Ohne · 23.05.2015, 00:10 **[ТС]**

Огромное спасибо за разъяснение!

Пойду еще потренируюсь над рекурсией.

ФедосеевПавел · 23.05.2015, 00:11

Удачи!

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	23.05.2015, 00:11	12
	Удачи! 1

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	21.05.2015, 16:45	2
	Сообщение от Ohne Программа определяет максимум из двух чисел Может есть какое-то дополнительное условие? А то ведь как то не рационально. 0

@Ohne 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 39
	22.05.2015, 19:41 [ТС]	3
	Какие из следующих функций определяют максимум в области с переменными пределами inDown и inUp правильно? Вы можете считать, что при (первом) вызове функций всегда DOWN <= InDown <= InUp <= UP применяется. (Примечание: При A - D речь не идёт о разумном применении рекурсии). Больше ничего не было. Добавлено через 16 часов 2 минуты Я решила, что A, B, C, D, E являются правильными ответами. Это верно или я где-то допустила ошибку? Добавлено через 6 часов 53 минуты Вот ссылка на пример: (ссылка на форум удалена) 0

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	22.05.2015, 23:24	4
	Мне кажется: 1. Не Е. Т.к. массив знаковый, а HilfMax := 0; в случае всех отрицательных чисел в массиве даст неверный результат. 2. Не D. Потенциальное зацикливание рекурсии при inDown=inUp (а это произойдет обязательно). 3. Не С. Обращение за пределами массива при inDown>inUp и inUp=10. 4. B - похоже. 5. Не А. Неопределённая переменная или константа inUnten. 1

@Ohne 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 39
	22.05.2015, 23:46 [ТС]	5
	Прошу прощения, но в варианте ответа А я допустила ошибку, пропустив и не переделав переменную inUnten в inDown. inUnten - это inDown, т.е. inFeld[inUnten] - это inFeld[inDown] 0

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	22.05.2015, 23:59	6
	Сообщение было отмечено Ohne как решение Решение Тогда и я прошу прощения. 4. Не В. Зацикливание при inDown=9 и inUp=10 5. A - похоже. 1

@Ohne 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 39
	22.05.2015, 23:59 [ТС]	7
	В варианте Е мне кажется, что массив не знаковый, так как интервал чисел уже был предопределён условием задачи в константах DOWN = 0; и UP = 10; Если, конечно, я не ошибаюсь. 0

@Ohne 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 39
	23.05.2015, 00:07 [ТС]	9
	integer - это же, вроде, целочисленный 0

ФедосеевПавел Модератор 8476 / 4335 / 1642 Регистрация: 01.02.2015 Сообщений: 13,461 Записей в блоге: 8
	23.05.2015, 00:10	10
	а диапазон возможных значений у него какой? Ну, например, для TurboPascal, или для более "родного" тебе диалекта? 1

@Ohne 1 / 1 / 0 Регистрация: 09.04.2015 Сообщений: 39
	23.05.2015, 00:10 [ТС]	11
	Огромное спасибо за разъяснение! Пойду еще потренируюсь над рекурсией. 0

Рекурсия: определение максимума из двух чисел

Решение