|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.03.2014, 16:14 | #1 |
Пользователь
Регистрация: 02.03.2012
Сообщений: 25
|
Поиск минимума/максимума в массиве / Turbo Pascal
Доброго времени суток. Проблема просто смешная, но я не могу понять, почему программа не работает.
Нужно найти минимум и максимум координат. Есть 2 функции для поиска максимума и минимума(сначала объединил в одну, но в надежде решить проблему разделил на две). Максимум считается верно, а функция минимума всегда выдаёт нули. Подскажите пожалуйста, что я делаю не так. Заранее благодарен. Код ниже: Код:
|
18.03.2014, 16:59 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Всему виной не соответствие типов..
array of integer - здесь элементы идут с 0-ля.. а у Вас в тушке array [1..50].. (элементы идут с 1-ки..) |
18.03.2014, 22:13 | #3 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Методы борьбы. 1-й. Изменить нумерацию в массивах X,Y от нуля. так: Код:
завести дополнительный тип для массива: Код:
в функциях Max/Min написать цикл примерно такого вида: Код:
в данном случае я бы рекомендовал взять вариант 2, с дополнительным типом массива, хотя и другие варианты имеют свои плюсы и минусы |
|
18.03.2014, 22:20 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Можно примерно так :
Берем FPC (хотя я так думаю, что и у ТС был не турбушка, а именно фри..) Читаем кол-во элементов, SetLength'им массивы, вызываем MaxIntValue и MinIntValue из uses Math.. и радуемся.. и писать ничего не надо.. кра-со-та.. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поиск интервала, содержащего точку минимума(максимума) | Alex-Kunfuman | Общие вопросы C/C++ | 1 | 01.03.2012 19:25 |
поиск максимума и минимума на sql | volfmen15 | БД в Delphi | 4 | 07.02.2012 17:48 |
[Pascal] Поиск минимума в одномерном массиве | merch | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 19.05.2011 02:35 |
Поиск минимума/максимума в массиве | gwarthy | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 6 | 28.01.2010 22:27 |
Нахождение минимума и максимума в трехмерном массиве | 1234 | Помощь студентам | 11 | 26.05.2008 16:23 |