![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
![]()
Хочу написать функцию-подпрограмму поиска максимального элемента массива. Есть массивы из 4 и 6 элементов. Для каждого нужна своя функция поиска или нет? В документации по массивам переменной длины ниче найти не смог( Если кто писал что то похожее или знает как это делать - отпишитесь
|
![]() |
![]() |
![]() |
#2 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
![]()
Одна функция для любого массива. Правда в нее нужно будет, скорее всего передавать указатель на массив, и его размер, а затем используя указатели обрабатывать в цикле. На Си это просто делается.
Второй вариант более простой: Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
![]() |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
![]()
А что тут тогда не так?
program lab7; uses wincrt; var num: integer; type masA=array[1..num] of real; const A: masA = (-5.2, 8.1, 1.3, 8.25); var rez: real; function GetMax(X:masA;num:integer):real; var max: real; begin max:=X[1]; for i:=1 to num do begin if X[i]>max then max:=X[i]; end; GetMax:=max end; begin rez:=GetMax(A,4); writeln; writeln(' максимум массива A = ', rez); end. |
![]() |
![]() |
![]() |
#4 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
![]()
program lab7;
uses crt; type MasA = array[1..4] of real; const A:MasA=(-5.2, 8.1, 1.3, 8.25); var rez: real; >>function GetMax(A:masA):real; >> var max: real; >> i:integer; >> begin >> max:=A[1]; >> for i:=1 to 4 do >> begin >> if A[i]>max then >> max:=A[i]; >> end; >> GetMax:=max >> end; >>begin >> rez:=GetMax(A); >> writeln; >> writeln(' Максимум массива* A = ', rez); >> readln; >>end.
Посторонним В.
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 04.11.2007
Сообщений: 117
|
![]()
curly182
массив сразу задать нужно. Задавай от 1 до 300, которые не будут использоваться будут просто висеть в памяти.
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой. |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
![]()
А как объявить тогда теперь инициализированный массив из 4 элементов, когда есть тип - массив из 6 ?? пишет, что не хватает запятых в массиве
![]() |
![]() |
![]() |
![]() |
#7 |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
![]()
значит, забить ерундой, чтоб было 6
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
![]() |
![]() |
![]() |
![]() |
#9 | |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
![]() Цитата:
Код:
|
|
![]() |
![]() |
![]() |
#10 | |
Форумчанин
Регистрация: 07.04.2009
Сообщений: 245
|
![]() Цитата:
Код:
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Последний раз редактировалось Anatole; 20.05.2009 в 13:37. |
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Имя переменной как переменная. Как получить доступ к такой переменной? | Denni | Microsoft Office Access | 8 | 02.04.2009 10:06 |
Поиск цикла длины 4. | <Бананан> | Помощь студентам | 33 | 25.05.2008 20:10 |
Массив неопределённой длины | Влажимир | Общие вопросы Delphi | 2 | 01.04.2008 10:14 |
определение длины динамич. массива | Романнн | Общие вопросы Delphi | 3 | 11.03.2008 18:48 |
Работа с файлами (создание, удаление, открытие, связываение с переменной, очищение памяти переменной) | Arkuz | Общие вопросы Delphi | 12 | 25.09.2007 20:47 |