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

Определить номер столбца с максимальной суммой и строки с минимальным произведением элементов

17.03.2016, 21:16. Показов 3060. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте!

Прошу помочь с задачкой...Начало положено, но что-то выводит совсем не то, что хотелось бы...

Исходное условие:Дана двумерная матрица А вещественных чисел.

1. Определить номер столбца, в котором сумма элементов матрицы максимальна и номер строки, в которой произведение элементов минимальна.

2. Упорядочить элементы второго столбца по возрастанию абсолютных значений элементов.

На первом пункте уже застопорилась...Если хотя бы эту часть подправить, дальше доделаю

Спасибо!

Pascal
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
Program Use;
const n=10;
var
  a:array[1..n,1..n] of integer;
  stosum:array[1..n] of integer;//массив для хранения сумм столбцов
  i,j,nomer,sum : integer;
begin
  Randomize;
  for i:=1 to n do
    for j:=1 to n do
      a[i,j]:= Random(10); //заполняем массив
  writeln('*** alphaues is thinking... ***');
  for j:=1 to n do
    begin 
      sum:=0;  
      for i:=1 to n do
        sum:=sum+a[i,j]; // находим сумму столбца
      stosum[j]:=sum;
    end;
  nomer:=1;
  sum:=stosum[1];
  for j:=1 to n do
    begin
      if sum<stosum[j] then sum:=stosum[j];
      nomer:=j;
    end;
  writeln;
  for i:=1 to n do
    begin 
      for j:=1 to n do
        write(a[i,j]:5);//выводим массив
      writeln;
    end;
    writeln('*** столбец с максимальной суммой - ',nomer,'-й');
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2016, 21:16
Ответы с готовыми решениями:

Поменять местами строки с максимальной суммой элементов и минимальным произведением элементов
Дана целочисленная прямоугольная таблица размером m на n. Поменять местами строки с максимальной...

Поменять местами строки матрицы с максимальной суммой элементов и минимальным произведением элементов
Дана целочисленная прямоугольная таблица размером m×n. Поменять местами строки с максимальной...

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

Определить номер столбца с максимальной суммой элементов
Определить номер столбца с максимальной суммой элементов массива и вывести эту сумму.

9
88 / 84 / 43
Регистрация: 02.05.2015
Сообщений: 766
18.03.2016, 07:55 2
Лучший ответ Сообщение было отмечено куянка как решение

Решение

Цитата Сообщение от куянка Посмотреть сообщение
вещественных чисел
Цитата Сообщение от куянка Посмотреть сообщение
a:array[1..n,1..n] of integer;
это как минимум противоречит заданию, если не ошибаюсь вещественные это дробные (real) так же?

Добавлено через 36 минут
Pascal
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
62
63
64
65
66
67
const
  n=10;
var
  a:array[1..n,1..n] of real;
  i,j,maxcol,minrow:integer;
  sum,maxsum,dob,mindob,tmp:double;
begin
  Randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=Random(19)-10+Random(100)/100;//диапазон от -9.99 до 9,99
          write(a[i,j]+#9);
        end;
      writeln;
    end;
//1.1
  maxsum:=0;
  maxcol:=0;
  for i:=1 to n do
    begin
      sum:=0;
      for j:=1 to n do
        sum:=sum+a[j,i];
      if sum>maxsum then
        begin
          maxcol:=i;
          maxsum:=sum;
        end;
    end;
  writeln('Максимальная сумма:'+maxsum+' в '+maxcol+'колонке');
 
//1.2 
  mindob:=0;
  minrow:=0;
  for i:=1 to n do
    begin
      dob:=1;
      for j:=1 to n do
        dob:=dob*a[i,j];
      if dob<mindob then
        begin
          minrow:=i;
          mindob:=dob;
        end;
    end;
  writeln('Минимальное произведение елементов по строкам:'+mindob+' в '+minrow+'строке');
 
//сортируем по модулю
  for i := 2 to n do
    for j:=n downto i do
      if abs(a[j-1,2]) > abs(a[j,2]) then
        begin
          tmp:=a[j-1,2];
          a[j-1,2]:=a[j,2];
          a[j,2]:=tmp;
        end;
//вывод второй после сортировки        
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]+#9);
      writeln;
    end;
  readln;
end.
1
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
18.03.2016, 10:02 3
CheshireesCat,
вместо
Цитата Сообщение от CheshireesCat Посмотреть сообщение
Pascal
1
2
a[i,j]:=Random(19)-10+Random(100)/100;//диапазон от -9.99 до 9,99
           write(a[i,j]+#9);
попробуйте
Pascal
1
2
 a[i,j]:=10-Random()*20;//диапазон от -9.99 до 9,99
          write(a[i,j]:6:2);
1
88 / 84 / 43
Регистрация: 02.05.2015
Сообщений: 766
18.03.2016, 10:09 4
capricornus CF, просто забыл.. чистым паскалем давно не писал.. в делфи сижу..
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
18.03.2016, 10:20 5
Цитата Сообщение от CheshireesCat Посмотреть сообщение
в делфи сижу.
в делфи точно так же и будет
0
88 / 84 / 43
Регистрация: 02.05.2015
Сообщений: 766
18.03.2016, 11:01 6
Цитата Сообщение от capricornus CF Посмотреть сообщение
в делфи точно так же и будет
в делфи sttringgrid.cells[ACol,Arow] или мемо
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
18.03.2016, 11:09 7
Цитата Сообщение от CheshireesCat Посмотреть сообщение
в делфи sttringgrid.cells[ACol,Arow] или мемо
я про рандом.
0
88 / 84 / 43
Регистрация: 02.05.2015
Сообщений: 766
18.03.2016, 11:39 8
Цитата Сообщение от capricornus CF Посмотреть сообщение
я про рандом.
я всегда RandomRange использую, а в генерации случайных вещественных как то не возникало потребности
0
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
18.03.2016, 11:52 9
Я разве против, я предложил вариант полаконичнее )
0
88 / 84 / 43
Регистрация: 02.05.2015
Сообщений: 766
19.03.2016, 11:29 10
Цитата Сообщение от capricornus CF Посмотреть сообщение
Я разве против, я предложил вариант полаконичнее )
так я ничего и не говорю..)
0
19.03.2016, 11:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2016, 11:29
Помогаю со студенческими работами здесь

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

Определить номер столбца матрицы с максимальной суммой элементов
определить номер столбца матрицы имеющей максимальную сумму елементов...Заранее спасибо

Определить номер столбца матрицы с максимальной суммой элементов и размер этой суммы
Задание было такое &quot;В заданной матрицы размерности 6 на 4 определить номер столбца с максимальной...

Определить номер строки с максимальной суммой положительных элементов
Для одного двумерного массива Z(5, 4) определить номер строки с максимальной суммой положительных...


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

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

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