Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Sancito
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 7
#1

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

26.04.2012, 22:19. Просмотров 1032. Ответов 1
Метки нет (Все метки)


http://www.cyberforum.ru/delphi-beginners/thread2003269.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2012, 22:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти номер строки матрицы с максимальной суммой элементов (Delphi):

Определить номер столбца с максимальной суммой положительных элементов
Дан двумерный массив размером m*n, заполненный промежутками от -30 до 30...

StringGrid: найти номер строки с наибольшей суммой положительных четных элементов
с помощью компонента StringGrid нужно выполнить следущее задание: ...

Для матрицы определить строку с максимальной суммой элементов
Помогите, пожалуйста, решить задачу! Для матрицы определить строку с...

Вывести элемент, стоящий на пересечении строки с максимальной суммой элементов
РЕБЯТА, ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!! С помощью кнопки и едит-блока,...

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

1
pHOMM
478 / 251 / 51
Регистрация: 30.06.2010
Сообщений: 651
27.04.2012, 07:42 #2
Лучший ответ Сообщение было отмечено 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
Привет! Вот еще темы с решениями:

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

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

Найти строку с максимальной суммой модулей элементов
Помогите пожалуйста решить!!!!!! Среди строк заданной целочисленной...

Найти сумму каждой строки в двумерном массиве и найти номер строки с наибольший суммой
Требуется найти сумму каждой строки в двумерном массиве и найти номер строки с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru