|
Вопрос # 4 315/ вопрос открыт / |
|
Аллоха, эксперты!
Чертовы Минимумы и не менее чертовы максимумы. почему некорректно работает для ПРЯМОУГОЛЬНЫХ матриц, ну вот что за напасть? битый день не могу понять в чем дело. что только не пробовал. То есть нужно
____________________________________________________________
необходимо найти минимальные значения в каждой строке матрицы и максимальные в каждом столбце и там еще что-то, но это неважно.
---------------------------------------------------------------------------------------
Проблема в том, что мой код работает исключительно для квадратных матриц... При прямоугольных выдает неверные значения (и неверное количесвто значений, т.е. не совпадает кол-во например строк и выданных значений). в чем тут дело..?
P.S. Спасибо Мережникову Андрею за помощь, но проблема актуальна:(
Приложение: Переключить в обычный режим- procedure TForm1.Naiti1Click(Sender: TObject);
- var
- Str: array[1..100,1..100] of integer;
- mn_s,mx_s: Longint;
- InB: Longint;
- InA: Longint;
- MxB: Longint;
- MxA: Longint;
- MnMxA:Array[1..100] of integer;
- MxMnB:Array[1..100] of integer;
- begin
-
-
-
-
-
- For InA:=1 to MxA do
- For InB:=1 to MxB do
- Str[InA, InB]:=StrToInt(Matrica.Cells[InA, InB]);
- Listbox1.Clear;
- Listbox3.Clear;
-
- for InB:=1 to MxB
- do begin
- mn_s:=Str[1,InB];
- for InA:=1 to MxA
- do if Str[InA,InB] < mn_s
- then begin
- mn_s:=Str[InA,InB];
- MxMnB[InB]:=mn_s;
- end;
- ListBox1.Items.Add(inttostr(mn_s));
- end;
-
- for InA:=1 to MxA
- do begin
- mx_s:=Str[InA,1];
- for InB:=1 to MxB
- do if Str[InA,InB] > mx_s
- then begin
- mx_s:=Str[InA,InB];
- MnMxA[InA]:=mx_s;
- end;
- ListBox3.Items.Add(inttostr(mx_s));
- end;
- end;
 |
Вопрос задал: zloy_nub (статус: Посетитель)
Вопрос отправлен: 14 июня 2010, 14:48
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Решён, говоришь?
А я тебе примерчик написал... :(
Посмотри, если не лень.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 14 июня 2010, 16:15
Оценка за ответ: 5
Комментарий к оценке: шикарнейшая прога.. гораздо лучше чем то, что у меня. я вот как раз бьюсь, не знаю как корды запомнить, а у тебя сразу напротив строки и столбца пишется...
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 14 июня 2010, 15:35; участников в обсуждении: 1.
|
|
zloy_nub (статус: Посетитель), 14 июня 2010, 15:35 [#1]:
вопрос решен.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
