Найти сумму элементов матрицы - QBasic (27930)

Узнай цену своей работы

Формулировка задачи:

Найти сумму элементов каждого столбца матрицы (n = 5; m = 6), и определить минимальную из полученных сумм. Заменить отрицательные элементы на главной диагонали, полученной суммой. Ну суммы столбов я нахожу примитивным способом, но работает..
Листинг программы
  1. Cls
  2. Dim a(5,6)
  3. For i=1 to 5: for j=1 to 6
  4. pRINT "Введите элемент"; i; ","; j
  5. INPUT a(i, j)
  6. Next j,i
  7. S1=0: s2=0: s3=0: s4=0: s5=0: s6=0
  8. For i=1 to 1: for j=1 to 6
  9. s1=s1+a(I;j)
  10. next j;i
  11. For i=2 to 2: for j=1 to 6
  12. S2=s2+a(I;j)
  13. next j;i
  14. For i=3 to 3: for j=1 to 6
  15. S3=s3+a(I;j)
  16. next j;i
  17. For i=4 to 4: for j=1 to 6
  18. S4=s4+a(I;j)
  19. next j;i
  20. For i=5 to 5: for j=1 to 6
  21. S5=s5+a(I;j)
  22. next j;i
А вот как их все между собой пересравнить, ну чтоб опять километра кода не было...

Я не волшебник, я только учусь=)))

ну поменять через swap сделаю... наверно надо добавить мас dim s1,s2,s3,s4,s5 ?

Решение задачи: «Найти сумму элементов матрицы»

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

Объяснение кода листинга программы

В этом коде:

  1. Создается двумерный массив A размером 5x6 и заполняется пользователем.
  2. Создается одномерный массив B размером 5 и инициализируется нулями.
  3. В цикле суммируются элементы массива A и записываются в массив B.
  4. Находится минимальное значение в массиве B.
  5. В цикле элементы массива A заменяются на минимальное значение, если они равны.
  6. Выводится сообщение с минимальной суммой.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы