Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Nike1995
3 / 3 / 0
Регистрация: 14.10.2012
Сообщений: 288
#1

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

24.10.2014, 02:24. Просмотров 331. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В матрице найти строки с максимальной и минимальной суммой положительных элементов. Как упростить? (Turbo Pascal):

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

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

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

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

Найти строку матрицы с минимальной суммой элементов, и строку с максимальной - Turbo Pascal
Дан квадратный массив. Найти строку с минимальной суммой элементов, и сторку с максимальной. Поэлементно перемножить эти строки, создав...

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

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

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

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

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

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

Дана матрица. Поменять строки с максимальной и минимальной суммой квадратов местами - Turbo Pascal
Здравствуйте. Помогите написать программу, пожалуйста. &quot;Дан Массив B(M,N); M,N&lt;=100. Переставить строки с минимальным и максимальным...

В матрице поменять местами строки с максимальной и минимальной суммой элементов - Pascal
Помогите плиз. Заданы 2 матрицы действительных чисел размером 5х6 и 8х7. В матрице поменять местами строки с максимальной и минимальной...


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

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

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