Исправить и дописать

@BEPEC · Регистрация: 05.05.2011

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

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
Sub primer1()
Sheets("Ëèñò1").Activate
Const n = 7, m = 7
Dim A(1 To n, 1 To m) As Single
Dim Max, pr  As Single
Dim s1, s2 As Integer
Dim B(1 To n) As Integer
Dim C(1 To m) As Single
 
 
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i
Max = 1E-20
q = 0
For i = 1 To n
For j = 1 To n
q = q + 1
B(q) = A(3, j)
Next j
Next i
For i = 1 To n
For j = 1 To n
l = l + 1
C(l) = A(i, 4)
Next j
Next i
For i = 1 To q
s1 = s1 + B(i)
Cells(9, i) = B(i)
Cells(11, 1) = s1
Next i
For i = 1 To l
s2 = s2 + C(i)
Cells(i + 8, 9) = C(i)
Cells(12, 1) = s2
Next i
 
End Sub

Задан массив A(7,7). Записать в массив В элементы третьей строки а в массив С элементы 4того столбца. Вычислить суммы элементов массивов В(s1) и C(s2) если s1>s2 то найти максимальный элемент побочной диагонали в противном случае найти произведение отрицательных элементов массива A.

@l2ded · 18.05.2011, 21:36

Исправил:

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
Sub primer1()
Sheets("Лист1").Activate
Const n = 7, m = 7
Dim A(1 To n, 1 To m) As Single
Dim Max, pr  As Single
Dim s1, s2 As Integer
ReDim B(n)
ReDim C(m)
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i, j)
Next j
Next i
 
Max = 1E-20
q = 0
For i = 1 To n
For j = 1 To n
 
q = q + 1
ReDim B(q)
B(q) = A(3, j)
Next j
Next i
 
 
For i = 1 To n
For j = 1 To n
l = l + 1
ReDim C(l)
C(l) = A(i, 4)
Next j
Next i
 
For i = 1 To q
s1 = s1 + B(i)
Cells(9, i) = B(i)
Cells(11, 1) = s1
Next i
 
For i = 1 To l
s2 = s2 + C(i)
Cells(i + 8, 9) = C(i)
Cells(12, 1) = s2
Next i
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .