Вычислить сумму значений элементов главной диагонали массива

@Popuriska · Регистрация: 23.11.2009

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

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

А второе задание не могу сделать:
Определить сумму значений элементов главной диагонали матрицы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
Dim x(1 To 6) As Double, y(1 To 6) As Double
Dim Z1(1 To 6, 1 To 6) As Double, Z2(1 To 6, 1 To 6) As Double
 
For i = 1 To 6
  x(i) = InputBox("Введите x(" & i & ")")
Next i
For j = 1 To 6
  y(j) = InputBox("Введите y(" & j & ")")
Next j
For i = 1 To 6
  For j = 1 To 6
    If x(i) <> 0 And x(i) <> y(j) Then
    
    Z1(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
Z2(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
    MsgBox "Z1(" & i & "," & j & ")=" & Z1(i, j)
    MsgBox "Z2(" & i & "," & j & ")=" & Z2(i, j)
    
    Else
    End If
  Next j
Next i

Dragokas · 16.01.2013, 17:44

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

Log(x(i)

а при чем здесь логарифмы к вычислению суммы элементов на диагонали?

Заполняется матрица. Затем вычисляем сумму:

Visual Basic
1
2
3
for i = 1 to ubound(mass)
  sum = sum + mass(i, i)
next

@Popuriska · 16.01.2013, 17:54 **[ТС]**

Задание было такое:

Составить алгоритм и программу вычисления и вывода на печать элементов матрицы Z ij по формуле

А теперь нужно Определить сумму значений элементов главной диагонали матрицы.

@Alex77755 · 16.01.2013, 18:14

Dragokas,

Затем вычисляем сумму:

Popuriska,

А теперь нужно Определить сумму значений элементов главной диагонали матрицы.

Слов нет - одни эмоции!

@Popuriska · 16.01.2013, 18:25 **[ТС]**

Помогите! Завтра сдавать!

@Alex77755 · 16.01.2013, 18:40

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

а при чем здесь логарифмы к вычислению суммы элементов на диагонали?

Заполняется матрица. Затем вычисляем сумму:

Visual Basic
1
2
3
for i = 1 to ubound(mass)
  sum = sum + mass(i, i)
next

Ну разве что сходить за вас на экзамен!...

Добавлено через 1 минуту
Боюсь только, что даже в парике не сойду за блондинку..

@Popuriska · 16.01.2013, 18:47 **[ТС]**

Я вот так вот написала, правильно?

Visual Basic
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
31
32
33
34
35
Private Sub Command1_Click()
Dim x(1 To 6) As Double, y(1 To 6) As Double
Dim Z1(1 To 6, 1 To 6) As Double, Z2(1 To 6, 1 To 6) As Double
 
For i = 1 To 6
  x(i) = InputBox("Введите x(" & i & ")")
Next i
For j = 1 To 6
  y(j) = InputBox("Введите y(" & j & ")")
Next j
For i = 1 To 6
  For j = 1 To 6
    If x(i) <> 0 And x(i) <> y(j) Then
    
    Z1(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
Z2(i, j) = (x(i) * Sin(y(i)) ^ 3) - (Log(x(i)) * y(j) ^ (2 / 3)) / (1 + Log(Abs(x(i) - y(j))))
    MsgBox "Z1(" & i & "," & j & ")=" & Z1(i, j)
    MsgBox "Z2(" & i & "," & j & ")=" & Z2(i, j)
    
    Else
    End If
  Next j
Next i
 
Sum = 0
For i = 1 To 6
For j = 1 To 6
Sum = Sum + Z1(i, j)
 
MsgBox "Sum(" & i & "," & j & ")"
Next j
Next i
 
 
End Sub

Добавлено через 6 минут
Я вставляю этот код

for i = 1 to ubound(mass)
sum = sum + mass(i, i)
next

И у меня программа ругается на 1 строчку

@Alex77755 · 16.01.2013, 18:50

Для этой программы один выход: Правка - выделить всё - удалить!!
Ничего общего с заданием!
Уже ж писали: при чём здесь логарифмы?

@Popuriska · 16.01.2013, 18:58 **[ТС]**

вот эта формула https://www.cyberforum.ru/atta... 545-12.jpg там написан логарифм

@Alex77755 · 16.01.2013, 19:11

Это я придумал?

Вычислить сумму значений элементов главной диагонали массива

Добавлено через 2 минуты

Visual Basic
1
[QUOTE]InputBox("Введите x(" & i & ")")[/QUOTE]

Вы запрашиваете значение! Зачем формула!?
Задавайте вразумительно вопрос

Добавлено через 1 минуту
Не можете сформулировать вопрос - хотя бы перепишите правильно задание!

Добавлено через 8 минут
Не хочу даже разбираться зачем два массива!

Если матрица заполнена - ответ №1 !

Visual Basic
1
2
3
4
5
6
SUM = 0
For i = 1 To 6
     SUM = SUM + Z1(i, i)
Next i
 
MsgBox SUM, 64, ""

@Yorksik · 16.01.2013, 22:04

Пожалуйста

Visual Basic
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
Private Sub Command1_Click()
 
Dim A() As Integer, n As Integer, m As Integer
Dim i As Integer, j, Gl, Pob As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
n = InputBox("Введите число столбцов", , 10)
ReDim A(1 To m, 1 To n) ' Размеры матрицы А -  m-строк, n-столбцов
 For i = 1 To m
  For j = 1 To n
      A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print A(i, j); vbTab;
  Next j
  Print
Next i
 Print
For i = 1 To m
    For j = 1 To n
        If i = j Then Gl = Gl + A(i, j) ' считаем главную диагональ
        If i = m - j + 1 Then Pob = Pob + A(i, j) ' считаем побочную диагональ
        Next j
    Next i
Print
MsgBox "Сумма элементов главной диагонали = " & Gl, vbInformation + vbOKOnly, "Вывод ответа"
MsgBox "Сумма элементов побочной диагонали = " & Pob, vbInformation + vbOKOnly, "Вывод ответа"
 
End Sub

@Alex77755 · 17.01.2013, 06:23

Yorksik,
Зачем запрашивать строки и столбцы если диагональ бывает только у квадратной матрицы?
Зачем гнать два цикла при подсчёте суммы?
Решение было дано в самом первом ответе

@Yorksik · 17.01.2013, 16:14

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

Yorksik,
Зачем запрашивать строки и столбцы если диагональ бывает только у квадратной матрицы?
Зачем гнать два цикла при подсчёте суммы?
Решение было дано в самом первом ответе

Согласен код не оптимальный, но считаю данной особе он более полезен нежели ключивая строка

Добавлено через 4 часа 20 минут
Alex77755, учитывая твою критику

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Private Sub Command1_Click()
Dim A() As Integer, m As Integer
Dim i As Integer, j, Gl As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите размерность матрици", , 10)
ReDim A(1 To m, 1 To m)
 For i = 1 To m
  For j = 1 To m
      A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print A(i, j); vbTab;
  Next j
  Print
Next i
        For i = 1 To m
              Gl = Gl + A(i, i) ' считаем главную диагональ
        Next i
MsgBox "Сумма элементов главной диагонали = " & Gl, vbInformation + vbOKOnly, "Вывод ответа"
End Sub

Может еще можно оптимизировать как то?

Dragokas · 17.01.2013, 19:09

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

Может еще можно оптимизировать как то?

Разве что вместо строк 9-18 так:

Visual Basic
1
2
3
4
5
6
7
8
For i = 1 To m
  For j = 1 To m
      A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print A(i, j); vbTab;
      if i = j then Gl = Gl + A(i, i)
  Next j
  Print
Next i

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	16.01.2013, 17:54 [ТС]
	Задание было такое: Составить алгоритм и программу вычисления и вывода на печать элементов матрицы Z ij по формуле А теперь нужно Определить сумму значений элементов главной диагонали матрицы. 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	16.01.2013, 18:25 [ТС]
	Помогите! Завтра сдавать! 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	16.01.2013, 18:50
	Для этой программы один выход: Правка - выделить всё - удалить!! Ничего общего с заданием! Уже ж писали: при чём здесь логарифмы? 0

@Popuriska 1 / 1 / 0 Регистрация: 23.11.2009 Сообщений: 48
	16.01.2013, 18:58 [ТС]
	вот эта формула https://www.cyberforum.ru/atta... 545-12.jpg там написан логарифм 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	17.01.2013, 06:23
	Yorksik, Зачем запрашивать строки и столбцы если диагональ бывает только у квадратной матрицы? Зачем гнать два цикла при подсчёте суммы? Решение было дано в самом первом ответе 0