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

@Toxy · Регистрация: 31.10.2011

Студворк — интернет-сервис помощи студентам

Найти сумму элементов каждого столбца матрицы (n = 5; m = 6), и определить минимальную из полученных сумм. Заменить отрицательные элементы на главной диагонали, полученной суммой.

Ну суммы столбов я нахожу примитивным способом, но работает..

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
DIM a(5,6)
FOR i=1 TO 5: FOR j=1 TO 6
PRINT "Введите элемент"; i; ","; j
 INPUT a(i, j)
NEXT j,i
S1=0: s2=0: s3=0: s4=0: s5=0: s6=0
FOR i=1 TO 1: FOR j=1 TO 6
 s1=s1+a(I;j)
NEXT j;i
FOR i=2 TO 2: FOR j=1 TO 6
 S2=s2+a(I;j)
NEXT j;i
FOR i=3  TO 3: FOR j=1 TO 6
 S3=s3+a(I;j)
NEXT j;i
FOR i=4  TO 4: FOR j=1 TO 6
 S4=s4+a(I;j)
NEXT j;i
FOR i=5 TO 5: FOR j=1 TO 6
 S5=s5+a(I;j)
NEXT j;i

А вот как их все между собой пересравнить, ну чтоб опять километра кода не было...
Я не волшебник, я только учусь=)))
ну поменять через swap сделаю... наверно надо добавить мас dim s1,s2,s3,s4,s5 ?

@AciD · 21.11.2011, 09:18

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DIM A(5,6)
FOR I=1 TO 5
 FOR J=1 TO 6
  INPUT "VVEDITE ELEMENT MATRICI-";A(I,J)
 NEXT
NEXT
DIM B(5)
FOR I=1 TO 5
FOR J=1 TO 6
B(I)=B(I)+A(I,J)
NEXT
NEXT
MIN=B(1)
FOR I=1 TO 4
IF MIN>B(I+1) THEN MIN=B(I+1)
NEXT
PRINT MIN

Что такое главная диагональ...?

@Quiet Snow · 21.11.2011, 14:03

Что такое главная диагональ...?

http://ru.wikipedia.org/wiki/Главная_диагональ

@AciD · 21.11.2011, 14:05

хм. следовательно из этой прямоугольной матрицы нужно выделить квадратную матрицу (5,5) и в ней на главной диагонали заменить все элементы, не?

@кот Бегемот · 21.11.2011, 16:58

У прямоугольной матрицы не бывает главной диагонали по определению. Исходная матрица должна быть квадратной, а тот, кто дал такое задание, в программировании смыслит ещё меньше, чем тот, кто пытается его выполнить.

@Toxy · 21.11.2011, 18:46 **[ТС]**

следовательно из этой прямоугольной матрицы нужно выделить квадратную матрицу (5,5) и в ней на главной диагонали заменить все элементы

ага получается 1,1 2,2 3,3 4,4 5,5
я делал такую сортировку через сравнение

QBasic/QuickBASIC
1
IF i=j

AciD, спасибо.

У прямоугольной матрицы не бывает главной диагонали по определению. Исходная матрица должна быть квадратной, а тот, кто дал такое задание, в программировании смыслит ещё меньше, чем тот, кто пытается его выполнить.

Преподаватель+))
Это еще ни чего все задания он давал на флопике.

P.S, кот Бегемот видимо тот кто писал задание ошибся, в прямоугольной матрице главная диагональ называется Базисной.

Добавлено через 31 минуту
вот сделал рабочий вариант если кому понадобится

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIM A(5,6)
FOR I=1 TO 5: FOR J=1 TO 6
 PRINT "Введите элемент"; i; ","; j
 INPUT a(i, j)
 NEXT j, i
DIM B(5)
FOR I=1 TO 5: FOR J=1 TO 6
B(I)=B(I)+A(I,J)
NEXT j, i
MIN=B(1)
FOR I=1 TO 4
IF MIN>B(I+1) THEN MIN=B(I+1)
NEXT i
FOR I=1 TO 5: FOR J=1 TO 6
IF I=J THEN a(I,J)=MIN
NEXT j , i
PRINT "Минимальная сумма="; MIN
END

@кот Бегемот · 22.11.2011, 01:19

Сообщение от Toxy

в прямоугольной матрице главная диагональ называется Базисной.

Кто это тебе сказал?
И сколько таких диагоналей в матрице 5*100?
И на какой из них менять элементы?

@Quiet Snow · 22.11.2011, 09:52

Вообще КБ всё правильно говорит, т.к. когда говорят о главной или побочной диагонали, то имеют в виду конечно квадратную матрицу.

в прямоугольной матрице главная диагональ называется Базисной.

Не помню такого, сейчас посмотрю в учебнике по вышке.

Добавлено через 9 минут
Посмотрел, нету ничего про "Базисную диагональ", где вы её откопали?

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@AciD 22 / 22 / 19 Регистрация: 25.10.2011 Сообщений: 122
	21.11.2011, 14:05
	хм. следовательно из этой прямоугольной матрицы нужно выделить квадратную матрицу (5,5) и в ней на главной диагонали заменить все элементы, не? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	21.11.2011, 16:58
	У прямоугольной матрицы не бывает главной диагонали по определению. Исходная матрица должна быть квадратной, а тот, кто дал такое задание, в программировании смыслит ещё меньше, чем тот, кто пытается его выполнить. 2