Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Вниз

Как найти минимальный элемент в двумерном массиве?   Найти похожие ветки 

 
Andrewmx   (2005-11-11 15:30) [0]

Как найти минимальный элемент в двумерном массиве? Подскажите пожалуйста.


 
Digitman ©   (2005-11-11 15:31) [1]

ты хоть бы сподобился что ли указать, какого типа элементы массива ...


 
Andrewmx   (2005-11-11 15:35) [2]

Извините integer


 
Andrewmx   (2005-11-11 15:35) [3]

все >0


 
wal ©   (2005-11-11 15:53) [4]

А как в одномерном найти в курсе?


 
Digitman ©   (2005-11-11 15:53) [5]

и тип массива ты тоже не сподобился указать ...


 
Andrewmx   (2005-11-11 15:55) [6]

Minintvalue в одномерном, мне в двумерном нужно.

вот мой массив
res:array[0..99,00..99] of integer;


 
Digitman ©   (2005-11-11 16:00) [7]

и какие трудности ?

или "дай код" ?)


 
Andrewmx   (2005-11-11 17:22) [8]

Ну да я незнаю как сделать :(


 
Tonich ©   (2005-11-11 17:37) [9]

в самом простом случаи методом перебора...

Сделай двойной цикл и пробегай все элементы массива сравнивая их.
на первом шаге просто присвой какой-то переменной первое значения твоего массива, а затем если оно окажется больше текущего значения массива, просто переприсвоишь его и все


 
Fl@sh ©   (2005-11-11 19:51) [10]


> Tonich ©   (11.11.05 17:37) [9]


Всегда так делал в подобных случаях
Жаль, не знал раньше про
> Minintvalue в одномерном


 
serko ©   (2005-11-11 20:19) [11]

Делай так:


<\code>
Min:=res[1,1];
st:=1; sb:=1;
For i:=1 to n do
    for j:=1 to m do
         if min>res[i,j] then
                            begin
                                   min:=res:=[i,j];
                                   st:=i;
                                   sb:=j;
                             end;

min - это минимальный элемент массива Res
St - строка в которой находится min
sb- столбец ----||----


 
Andrewmx   (2005-11-12 04:42) [12]

Спасибо большое!


 
Andrewmx   (2005-11-12 09:12) [13]

А если кто хорошо работает с матрицами то постучитесь мне в icq 288608091 есть разговор!


 
SergP ©   (2005-11-12 09:52) [14]


> Andrewmx   (11.11.05 15:55) [6]
> Minintvalue в одномерном, мне в двумерном нужно.
>
> вот мой массив
> res:array[0..99,00..99] of integer;


если не знаешь как самому написать поиск числа, а хочешь воспользоваться стандартными функциями, то заставь Minintvalue думать что твой массив одномерный ...

типа так:


...
type
  MySuperPuperType=array[0..9999] of integer; // кол-во элементов в этом
  //описании массива должно соврпадать с кол-вом элементов в твоем массиве
...
...
var
 a:integer;
 z:^MySuperPuperType;
begin
 z:=@res; // res - это твой двухмерный массив [0..99,0..99]
 a:=minintvalue(z^);
...


если я нигде не ошибся то по идее должно работать...


 
SergP.   (2005-11-12 09:57) [15]


> SergP ©   (12.11.05 09:52) [14]


Либо проще:


...
type
 MySuperPuperType=array[0..9999] of integer; // кол-во элементов в этом
 //описании массива должно соврпадать с кол-вом элементов в твоем массиве
...
...
var
a:integer;
begin
a:=minintvalue(MySyperPuperType(res));
...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.57 c
1-1130928645
Maverick
2005-11-02 13:50
2005.11.27
Фрейм - не отображаются контролы


5-1103495421
k@rt
2004-12-20 01:30
2005.11.27
Перерисовка TPageControl


2-1131575395
solenko
2005-11-10 01:29
2005.11.27
Ошибка при вызове dll из VBA


5-1113173273
Бывший студент
2005-04-11 02:47
2005.11.27
Колонки TStringGrid


2-1131605932
barakuda
2005-11-10 09:58
2005.11.27
Jpeg + БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский