Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.05.2010
Сообщений: 6

Матрица: рассчитать сумму положительных элементов 3-ей строки и произведение элементов побочной диагонали

18.05.2010, 11:57. Показов 1287. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите с решением пожалуйста: Дана квадратная матрица n*n. Составить программу и рассчитать сумму положительных элементов третьей строки и произведение элементов побочной диагонали.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.05.2010, 11:57
Ответы с готовыми решениями:

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

Определить произведение положительных элементов на главной диагонали и сумму отрицательных на побочной
Дана квадратная матрица размерностью N. Определить произведение положительных элементов на главной диагонали и сумму отрицательных...

Задана квадратная матрица порядка N. Вычислить сумму положительных элементов, лежащих ниже побочной диагонали
Задана квадратная матрица порядка N. Вычислить сумму положительных элементов, лежащих ниже побочной диагонали. Предусмотреть два...

6
 Аватар для Toxa33rus
3921 / 922 / 125
Регистрация: 16.04.2009
Сообщений: 1,962
18.05.2010, 19:07
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
summ=0
for i=1 to n
  if a(3,i) > 0 then summ=summ + a(3,i)
next i
 
proizv=1
for i=1 to n
  if a(i,n-i+1) > 0 then proizv=proizv * a(i,n-i+1)
next i
 
msgbox "summa=" & summ & vbcrlf & "proizvedenie=" & proizv
1
0 / 0 / 0
Регистрация: 16.05.2010
Сообщений: 6
19.05.2010, 15:38  [ТС]
Большое спасибо за помощь! Но почему-то там где сумма ответ всегда 0, а там где произведение 1.
Вот весь код. Что не так?
VB.NET
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
Public Class Form1
    Dim n As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim a(n, n) As Double, p As Double, s As Double
        s = 1
        For i = 1 To n
            If a(3, i) > 0 Then s = s + a(3, i)
        Next i
        TextBox2.Text = s
        p = 1
        For i = 1 To n
            If a(i, n - i + 1) > 0 Then p = p * a(i, n - i + 1)
        Next i
        TextBox3.Text = p
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        n = Math.Max(1, Val(TextBox1.Text))
        DataGridView1.RowCount = n
        DataGridView1.ColumnCount = n
 
    End Sub
End Class
0
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
19.05.2010, 15:50
А матрица то пустая!
0
0 / 0 / 0
Регистрация: 17.05.2010
Сообщений: 4
19.05.2010, 15:56
Так матрица же заполняется в DataGridView при запуске.
0
Частенько бываю
 Аватар для Vlanib
750 / 331 / 42
Регистрация: 20.06.2007
Сообщений: 854
19.05.2010, 16:01
Где код присваивания а(n,n) = DataGrid...
0
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
20.05.2010, 15:39
Цитата Сообщение от Ariel Посмотреть сообщение
s = 1
должно быть
Visual Basic
1
s=0
иначе сумма будет на 1 больше

Добавлено через 27 секунд
в 8 строке
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.05.2010, 15:39
Помогаю со студенческими работами здесь

Найдите сумму Суммы отрицательных элементов главной диагонали и произведение нечетных элементов побочной диагонали матри
Найдите сумму Суммы отрицательных элементов главной диагонали и произведение нечетных элементов побочной диагонали матрицы Z (5,5). ...

Найти сумму максимального не кратного 3 элементов главной диагонали и произведение парных элементов побочной диагонали
Задание: Найти сумму максимального не кратного 3 элементов главной диагонали и произведение парных элементов побочной диагонали матрицы...

Найти сумму элементов главной диагонали и произведение элементов побочной диагонали матрицы
Дана квадратная матрица (10x10) целых чисел. Найти сумму элементов в главной диагонали и произведение элементов в побочной диагонали.

Найти сумму элементов главной диагонали матрицы и произведение элементов побочной диагонали
дан массив a. Найти сумму элементов его главной диагонали и произведение элементов побочной диагонали.

Найти произведение положительных элементов среди элементов расоложенных выше побочной диагонали матрицы B
Помогите составить прогу в паскале для матрицы (4;4) а)найти минимальный элемент во втором столбце б)найти произведение положительных...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru