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

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

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

Помогите написать программу на Delphi.
Дана квадратная целочисленная матрица размером 4х4. Найти номер строки с максимальной суммой элементов строки.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2012, 22:19
Ответы с готовыми решениями:

Определить номер строки матрицы с наибольшей суммой элементов
Ребят помогите пожалуйста, дали задание и скоро нужно сдавать, а я в делфи...

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

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

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

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

1
pHOMM
479 / 252 / 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

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

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

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


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

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

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