Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
pHOMM
479 / 252 / 51
Регистрация: 30.06.2010
Сообщений: 651
27.04.2012, 07:42 0

Найти номер строки матрицы с максимальной суммой элементов

27.04.2012, 07:42. Просмотров 1050. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Sancito как решение

Решение

Без наработок могу дать только самую соль кода, там уж можно встроить, а если даже встроить никак, то это не помощь, а халява.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  MtxSize = 4;
type
  TMatrix = array[0..MtxSize - 1] of array[0..MtxSize - 1] of integer;
...
function RowOfMaxSum(Matrix: TMatrix): integer;
var
  SumOld, Sum: Integer;
begin
  Result := 0;
  SumOld := 0;
  Sum := 0;
  for i := 0 to MtxSize - 1 do
  begin
    SumOld := Sum;
    Sum := 0;
    for j := 0 to MtxSize - 1 do
      Sum := Sum + Matrix[i, j];
    if Sum > SumOld then
    Result := i;
  end;
end;
Написано без проверки, а были бы хоть наработки, вроде заполнения матрицы, выложены в архиве, я бы прогнал проверку.

Вернуться к обсуждению:
Найти номер строки матрицы с максимальной суммой элементов
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2012, 07:42

Написать программу, которая находит столбец матрицы с максимальной суммой элементов
Дана матрица А(nxn). Написать программу, которая находит столбец матрицы с...

В матрице найти столбец с максимальной суммой элементов
Здравствуйтей. 1.Дана символьная строка, заменить все символы 'какой-то...

Найти строку с максимальной суммой модулей элементов
Среди строк заданной целочисленной матрицы,содержащих только нечетные...

0
Другие темы раздела
Delphi Вернуть номер выбранной строки ListBox и записать в переменную http://www.cyberforum.ru/delphi-beginners/thread559658.html
как из ListBox вернуть номер выбранной строки и записать в переменную?n:=TForm3.ListBox1.ItemIndex;э то не работает, пишет ошибку : Unit3.pas(93): E2096 Method identifier expected
Delphi Рассчитывание количества дней, часов, минут между двумя введенными датами Здравствуйте уважаемые программисты!!! Не очень понимаю программирование. Очень нужна ваша квалифицированная помощь в решении задачи: нужно написать программу на delphi расчитывающую количество дней,... http://www.cyberforum.ru/delphi-beginners/thread559643.html
Delphi позиция начала первого появления в str1 текста содержащего литеры str2 в обратном порядке
написать функцию revpositn которая которая принмает два параметра str1,str2 типа string и возвращает позицию начала первого появления в str1 текста содержащего литеры str2 в обратном порядке. Другими...
Delphi Ребят помогите
14. Составить алгоритм, находящий сумму элементов и их количество до первой перемены знака. 14. Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов.
Delphi цикл с предусловием http://www.cyberforum.ru/delphi-beginners/thread559581.html
помогите пожалуйста правильно оформить цикл вида: while (пользователь не нажал пробел) do заранее спасибо))
Delphi Изображение не выводится на печать в windows xp Всем доброго времени суток. Столкнулся с проблемой печати графического файла в windows xp. В windows 7 печать идёт нормально, но в xp выходит табличка, что принтер готов для печати, но печать не... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru