Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2011, 22:02   #1
makc101
Пользователь
 
Регистрация: 29.11.2009
Сообщений: 15
По умолчанию Рекурсия СИ

Здравствуйте. Помогите пожалуйста составить рекурсию поиска минимального элемента в массиве и вывести его номер. Заранее спасибо!
makc101 вне форума Ответить с цитированием
Старый 05.04.2011, 22:35   #2
3BEPOBOY
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 82
По умолчанию

Вот уж даете. Набрал в гугле поиск минимального элемента в массиве рекурсией
по первой же ссылке готовое решение
http://fmi.asf.ru/Library/Book/LabInf2/Lab5.html

Код:
Program Example _1;
Const n=10;
Type MyArray=Array[1..n] of Integer;
Const a : MyArray = (4,2, -1,5,2,9,4,8,5,3);
Function Min (a, b : Integer) : Integer;
Begin
  if a>b then Min := b else Min:=a;
End;
Function Pmin(n, b : Integer) : Integer;
Begin
  if n = 2 then Pmin := Min(n,a[1]) else Pmin := Min(a[n], Pmin(n-1,a[n]));
End;
BEGIN
  Writeln(‘Минимальный элемент массива  - ‘, Pmin(n,a[n]));
END.
3BEPOBOY вне форума Ответить с цитированием
Старый 05.04.2011, 23:13   #3
xMURNx
Новичок
Джуниор
 
Регистрация: 05.04.2011
Сообщений: 2
По умолчанию

!
и закроем глаза на то, что парень на СИ просил
xMURNx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рекурсия McJordan Паскаль, Turbo Pascal, PascalABC.NET 5 18.12.2010 19:46
Рекурсия ldinka135 Паскаль, Turbo Pascal, PascalABC.NET 5 31.08.2010 12:57
Рекурсия dusya9992 Паскаль, Turbo Pascal, PascalABC.NET 4 29.08.2010 14:14
Рекурсия на С++ Nitriyc Помощь студентам 0 28.04.2010 17:22
Рекурсия seeton Помощь студентам 0 08.12.2009 17:41