кто знает подскажите, ато чёт не догоняю

@MATADOP · Регистрация: 24.11.2010

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

дан массив. Необходимо элементы массива кратные числу 2 сменить противоположными

Visual Basic
1
2
3
4
5
6
Private Sub Command1_Click()
Dim G(3, 3) As Single, i As Integer, j As Integer
txt = " "
G(1, 1) = 1: G(1, 2) = 4: G(1, 3) = 6
G(2, 1) = -2: G(2, 2) = 3: G(2, 3) = 9
G(3, 1) = 10: G(3, 2) = 5: G(3, 3) = -8

@YuraAAA · 09.12.2010, 00:44

Visual Basic
1
2
3
4
5
For i = 1 To 3
For j = 1 To 3
If G(i, j) Mod 2 = 0 Then G(i, j) = G(i, j) * (-1)
Next j
Next i

@MATADOP · 09.12.2010, 01:49 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim R(3, 3) As Single, i As Integer, j As Integer
Dim txt As String
txt = " "
R(1, 1) = -14: R(1, 2) = 4: R(1, 3) = 6
R(2, 1) = -2:  R(2, 2) = 0: R(2, 3) = -5
R(3, 1) = 3:   R(3, 2) = 5: R(3, 3) = 7
For i = 2 To 2
R(i, i) = 99
Next i
For i = 1 To 3
For j = 1 To 3
If R(i, j) Mod 2 = 0 Then R(i, j) = R(i, j) * (-1)
txt = txt & R(i, j) & " "
Next j
txt = txt & Chr(13)
Next i
txt = txt & Chr(13)
Print txt
 
End Sub

@gaw · 09.12.2010, 01:56

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

For i = 2 To 2
R(i, i) = 99
Next i

хитро О_о

@MATADOP · 09.12.2010, 02:01 **[ТС]**

я иду простым путём

задача стояла ноль поменять на 99 вот и усё

зачем

@gaw · 09.12.2010, 02:08

ну в такой постановке задачи конечно это

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

For i = 2 To 2
R(i, i) = 99
Next i

гораздо проще этого R(2, 2) = 99

@MATADOP · 09.12.2010, 02:20 **[ТС]**

СПАСИБО gaw жму + адын

@TEROD · 09.12.2010, 18:31

Иногда новички хороши!GAW"у +1

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@MATADOP 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 11
	09.12.2010, 02:01 [ТС]
	я иду простым путём задача стояла ноль поменять на 99 вот и усё зачем 0

@MATADOP 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 11
	09.12.2010, 02:20 [ТС]
	СПАСИБО gaw жму + адын 0

@TEROD Заблокирован
	09.12.2010, 18:31
	Иногда новички хороши!GAW"у +1 1