0 / 0 / 0
Регистрация: 12.03.2014
Сообщений: 3
1

Вычислить суммы элементов каждой строки матрицы

12.03.2014, 00:52. Показов 1404. Ответов 1
Метки нет (Все метки)

Дана матрица X(N,N). Вычислить суммы элементов каждой строки матрицы и наибольшую из вычисленных сумм.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2014, 00:52
Ответы с готовыми решениями:

Вычислить суммы и количества элементов каждой строки матрицы
вычислить и запомнить суммы и числа элементов каждой строки матрицы.Результаты отпечатать в виде...

Вычислить сумму элементов каждой строки матрицы.
Вычислить сумму квадратов положительных чисел. Вычислить сумму элементов каждой строки.

Вычислить сумму элементов каждой строки матрицы
Вычислить сумму элементов элементов каждой строки матрицы. Результат получить в виде вектора D, то...

Вычислить количество положительных и отрицательных элементов каждой строки матрицы
Вычислить количество положительных и отрицательных элементов каждой строки матрицы b(n*m) записать...

1
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
12.03.2014, 08:40 2
Лучший ответ Сообщение было отмечено N000Yn как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
val(Edit1.Text,n,i);
if(i<>0)or(n<2) then
 begin
  ShowMessage('Размер матрицы введен неверно, повторите');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
setlength(a,n,n);
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=1;
  rowcount:=n+1;
  colcount:=n+2;
  cells[n+1,0]:='Сумма';
  for i:=1 to n do
   begin
    cells[i,0]:=inttostr(i);
    cells[0,i]:=inttostr(i);
   end;
  for i:=0 to n-1 do
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(50);
    cells[j+1,i+1]:=inttostr(a[i,j])
   end;  
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,s,mx,imx:integer;
begin
mx:=-maxint-1;
for i:=0 to n-1 do
 begin
  s:=0;
  for j:=0 to n-1 do
  s:=s+a[i,j];
  if s>mx then
   begin
    mx:=s;
    imx:=i+1
   end;
  StringGrid1.Cells[n+1,i+1]:= inttostr(s)
 end;
Edit2.Text:='Максимальная сумма='+inttostr(mx)+' в строке '+ inttostr(imx);
end;
Вложения
Тип файла: rar 55.rar (193.1 Кб, 17 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 08:40
Помогаю со студенческими работами здесь

Найти наибольшее из двух чисел: суммы элементов k-й строки и суммы элементов s-го столбца матрицы
Братки, спасите меня! Не могу решить эту задачу. У меня уже мозга кипит , я ничего не могу с этим...

Определение суммы каждой строки матрицы
есть задача : Дана матрица целых чисел размером 4х3. Определить сумму каждый строки этой матрицы....

Вычислить суммы элементов в каждом столбце матрицы. Полученные суммы вывести в ListBox
Здравствуйте, у меня такая задачка: Вычислить суммы элементов в каждом столбце матрицы. Полученные...

В каждой строке матрицы найти элементы, для которых сумма предшествующих элементов больше суммы последующих элементов
Проверьте пожалуйста код программы относительно условия задачи В каждой строке матрицы D(n, n),...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru