|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
16.05.2009, 19:34 | #1 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
массивы переменной длины
Хочу написать функцию-подпрограмму поиска максимального элемента массива. Есть массивы из 4 и 6 элементов. Для каждого нужна своя функция поиска или нет? В документации по массивам переменной длины ниче найти не смог( Если кто писал что то похожее или знает как это делать - отпишитесь
|
16.05.2009, 22:17 | #2 |
Участник клуба Подтвердите свой е-майл
Регистрация: 14.12.2007
Сообщений: 1,434
|
Одна функция для любого массива. Правда в нее нужно будет, скорее всего передавать указатель на массив, и его размер, а затем используя указатели обрабатывать в цикле. На Си это просто делается.
Второй вариант более простой: Код:
Проповедую design patterns, верую в MVC, доверяю eXtrime programming.
|
18.05.2009, 20:17 | #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. |
18.05.2009, 20:55 | #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.
Посторонним В.
|
18.05.2009, 21:08 | #5 |
Форумчанин
Регистрация: 04.11.2007
Сообщений: 117
|
curly182
массив сразу задать нужно. Задавай от 1 до 300, которые не будут использоваться будут просто висеть в памяти.
Перед тем, как выложить код, я его всегда проверяю.
Если помог - тыкни на на весы слева, под аватарой. |
19.05.2009, 02:24 | #6 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
А как объявить тогда теперь инициализированный массив из 4 элементов, когда есть тип - массив из 6 ?? пишет, что не хватает запятых в массиве
|
19.05.2009, 03:12 | #7 |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
значит, забить ерундой, чтоб было 6
|
19.05.2009, 16:28 | #8 |
Пользователь
Регистрация: 07.04.2009
Сообщений: 14
|
|
19.05.2009, 19:48 | #9 | |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
Цитата:
Код:
|
|
20.05.2009, 13:23 | #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 |