Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
popcorn93
0 / 0 / 1
Регистрация: 07.01.2013
Сообщений: 57
1

матричные операции

07.03.2013, 21:36. Просмотров 581. Ответов 1
Метки нет (Все метки)

Помогите,пожалуйста, дана матрица ,нужно вычислить сумму X1*X3+X3*X5+X5*X7.. где X1- сумма элементов первой строки ,X3-сумма элементов третей строки и тд
На Команд 4 ошибку выдает
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Option Explicit
Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer, n As Integer, z As Integer, y As Integer, k As Integer, S As Integer
Dim Max As Double, X(1 To 100) As Double
 
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
 A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
 Picture1.Print Format(A(i, j), "##0.##"),
 Next j
Picture1.Print '
Next i
Picture1.Print
End Sub
 
Private Sub Command2_Click()
            Command1_Click
For j = 1 To n
Max = Sqr(A(1, j))
For i = 2 To n
If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j))
Next i
X(i) = Max
Picture1.Print Format(X(i), "##0.##")
Next j
End Sub
 
Private Sub Command3_Click()
            Command1_Click
For j = 1 To n - 1
For k = 1 To n - 1
If A(k + 1, k + 1) > A(k, k) Then
z = A(k + 1, k + 1)
A(k + 1, k + 1) = A(k, k)
A(k, k) = z
End If
Next k
Next j
For j = 1 To n
For k = 1 To n
Picture1.Print Format(A(j, k), "##0.##"),
 Next k
Picture1.Print '
 Next j
End Sub
 
Private Sub Command4_Click()
            Command1_Click
For j = 1 To n
y = 0
For i = 1 To n
y = y + A(i, j)
Next i
X(i) = y
 S = 0
 For i = 1 To n - 2 Step 2
S = S + X(i) * X(i + 2)
Next i
Picture1.Print Format(S, "#0.##")
End Sub
 
Private Sub Form_Load()
    HScroll1.Max = Val(Picture1.Height)
    VScroll1.Max = Val(Picture1.Width)
    Picture1.AutoRedraw = True
End Sub
 
Private Sub HScroll1_Scroll()
    Picture1.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
    Picture1.Top = -VScroll1.Value
End Sub
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.03.2013, 21:36
Ответы с готовыми решениями:

Матричные операции
Помогите пожалуйста написать программу к третьему заданию. Утром сдавать отчёт,...

Прокрутка PictureBox для задания "матричные операции"
Здравствуйте, помогите пожалуйста дописать программу тема &quot;матричные операции&quot;...

Решение системы двух уравнений с двумя неизвестными по теме матричные игры
В общем, после пары лекций и лабораторных работ вида- смотри в методичку и...

Операции со строками
1.Дана строка текста, в которой есть хотя бы один пробел. Подсчитать...

Операции со временем
Помогите с созданием программы Разработать программу для решения следующей...

1
gaw
6634 / 1501 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
07.03.2013, 21:42 2
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
Private Sub Command1_Click()
n = 5: m = 1
ReDim a(n, m)
Randomize (Timer)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Int(Rnd * 10)
    Print a(i, j); vbTab;
  Next j
  Print
Next i
Print s(a)
End Sub
 
Function s(m())
r = UBound(m, 1): c = UBound(m, 2)
s = 0
For i = 1 To r Step 2
  s3 = 0
  For j = 1 To c
     s3 = s3 + m(i, j)
  Next j
  If i > 1 Then s = s + s1 * s3
  s1 = s3
Next i
End Function
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.03.2013, 21:42

Файловые операции
Вот мой готовый модуль для удовлетворения почти всех потребностей в работе с...

Математические операции
Извините))Можно у вас спросить...а почему у меня не получается если я...

Операции с массивами
Задача. Просуммировать элементы матрицы A(n, n) по каждой из линий,...


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

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

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