VPF::Поиск максимального элемента - Форум программистов

AzeTon

Дата 7.6.2006, 14:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста!

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

function max(var b:mas):integer; smile

Yanis

Дата 7.6.2006, 14:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

goto Центр помощи;

Добавлено @ 14:09

Цитата(AzeTon @ 7.6.2006, 15:01

)

последовательности а

Что такое последовательность? Массив, множество?

Это сообщение отредактировал(а) Yanis - 7.6.2006, 14:09

--------------------

*щёлк*

skyboy

Дата 7.6.2006, 14:12 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

что не работает? странно как-то... такой простой вопрос...

Код


function max(var a:array of integer):integer;
var i,N:integer;
begin
 if length(a)=0
  then
   begin
    max:=0;                       // there are no maximum elements because array is empty
    exit;
   end;
 N:=1;
 for i:=2 to length(a) do
  if a[N-1]<a[i-1]
   then N:= i;
max:= N;
end;

Это сообщение отредактировал(а) skyboy - 7.6.2006, 14:14

Vit

Дата 7.6.2006, 15:00 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Смотрим модуль math, там такая функция есть - поставляется со стандартной поставкой дельфи

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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