Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Nike1995
3 / 3 / 8
Регистрация: 14.10.2012
Сообщений: 288
1

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

24.10.2014, 02:24. Просмотров 340. Ответов 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
  P1 := Low(Integer);   // Левая граница значений Integer равная -2147483648
  P2 := High(Integer);  // Правая граница значений Integer равная 2147483647
  WriteLn('The initial matrix',' The sum of each row' : 37);
  WriteLn;
  for I := 1 to NRow do
    begin
    Sum := 0;
    for J := 1 to NColumn do
      begin
        Write(D[I, J] : 3,' ');
        if D[I, J]>0 then
          begin
          Sum := Sum+D[I, J];
          if Sum > P1 then
            begin
            IMax := I;
            P1 := Sum;
            end;
          if Sum < P2 then
          begin
            IMin := I;
            P2 := Sum;
          end;
          end;
      end;
    if Sum <> 0 then
      WriteLn('  ',Sum:25)
    else
      WriteLn('No positive elements':40);
  end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2014, 02:24
Ответы с готовыми решениями:

Дан двумерный массив. Найти строку с минимальной суммой элементов, столбец с максимальной суммой элементов
а)Строку с минимальной суммой элементов б)Столбец с максимальной суммой элементов Дополнительный...

В матрице найти строку с минимальной суммой элементов
К примеру, если минимальная сумма во второй строке, то все верно выводит, а если в первой, то нет....

В матрице найти первую по порядку строку с максимальной суммой модулей её элементов
б) В матрице А найти первую по порядку строку с максимальной суммой модулей её элементов. Вектор х...

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

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

2
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
24.10.2014, 11:01 2
Программа не совсем корректна.

Но, отвечая на ваш вопрос "как упростить", скажу, что я бы код, который считает сумму положительных элементов вынес в отдельную процедуру/функцию.
и P1, P2 не иницилизировал, вместо этого использовал иницилизацию переменных IMax, IMin (кстати, Вы их, наверное, забыли в ответе вывести)
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4141 / 2735 / 2172
Регистрация: 22.11.2013
Сообщений: 7,643
24.10.2014, 12:19 3
Nike1995,
всё там: Изменение позиций строк матрицы

в том числе и про этот фрагмент.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.10.2014, 12:19

В матрице найти строку с максимальной суммой элементов и поэлементно заменить ее первой строкой.
Можете кто нибудь пожалуйста помочь написать программу на Паскале? В программе предусмотреть...

Найти номер строки с минимальной суммой элементов
Найти номер строки с минимальной суммой элементов Нужна помощь, буду весьма благодарен.

В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов
Помогите составить программу: В матрице найти минимальный элемент того столбца, который обладает...


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

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

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