Главная страница
    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.013 c
8-1120493863
ronyn
2005-07-04 20:17
2005.11.27
Перетаскивание звукового файла на ListBox


8-1120431088
flatron84
2005-07-04 02:51
2005.11.27
DSPack


14-1131542528
RDA
2005-11-09 16:22
2005.11.27
Компьютерная барахолка в Киеве


3-1129513865
antoxa2005
2005-10-17 05:51
2005.11.27
Подскажите, а можно ли сохранить в поле БД Access любой объект ?


2-1131743215
Lemur
2005-11-12 00:06
2005.11.27
приведение типов (абстрактный вопрос)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский