Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

матрица   Найти похожие ветки 

 
РоманВитов   (2002-11-29 23:06) [0]

дана матрица нужно найти сумму каждой строки и сортировать строки по возрастанию суммы строки


 
Юрий Зотов ©   (2002-11-29 23:27) [1]

ЗАДАЧУ Вы объяснили вполне четко. А в чем же КОНКРЕТНЫЙ вопрос?


 
Victor_Cr ©   (2002-11-29 23:36) [2]

Ну и... проблема в чем? Азы програмонаписательства учат это делать так:

Arr: array [0..n,0..m] of ...;// Объявляем массив в котором
//нулевые элементы резервируем для своих нужд, т.е. все данные
//начинаются с первого индекса.
begin
For i := 1 to m do
For j := 1 to n do
Arr[0,i] := Arr[0,i] + Arr[j,i]; // Находим сумму.
For i := 1 to m-1 do
For j := i+1 to m do
if Arr[0,i] > Arr[0,j] then // сортировка по убыванию
begin
for k := 0 to n do // обмен местами двух строк массива
begin
Arr[k,0] := Arr[k,i];
Arr[k,i] := Arr[k,j];
Arr[k,j] := Arr[k,0];
end;
end;
end;

Может я тут чего-то и напутал. Но вроде это не та проблема с которой нужно обращаться на форум. Я чего-то не понял в вопросе, может все значительно сложнее?



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

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
7-28313
Th
2002-10-08 21:09
2002.12.09
Как использовать средства DDK в Delphi


6-28187
grvakh
2002-10-15 11:13
2002.12.09
Ускорение обменом сообщениями


1-28061
Arkan
2002-11-27 22:23
2002.12.09
как


14-28268
Suntechnic
2002-11-18 16:31
2002.12.09
Это должно быть интересно...


6-28183
jel
2002-10-15 17:15
2002.12.09
Окошко, не желающее становиться активным