Поменять элементы побочной и главной диагонали и вывести переделанную матрицу на экран

@pewbot · Регистрация: 22.12.2013

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

Задается матрица (4,4) нужно поменять элементы побочной и главной диагонали и вывести переделанную матрицу на экран

@all_angarsk · 29.12.2013, 15:40

Visual Basic

Dim s(4, 4) As Integer, f(4) As Integer, g(4) As Integer
For i = 1 To 4
For j = 1 To 4
s(i, j) = Rnd() * 100 - 50
Cells(i + 1, j + 1) = s(i, j)
If i = j Then f(i) = s(i, j): Cells(i + 1, 8) = f(i)
If 5 - i = j Then g(j) = s(i, j): Cells(i + 1, 9) = g(j)
Next
Next
 
For i = 1 To 4
For j = 1 To 4
If i = j Then s(i, j) = g(j): Cells(i + 1, 11) = s(i, j)
If 5 - i = j Then s(i, j) = f(i): Cells(i + 1, 12) = s(i, j)
Cells(i + 7, j + 1) = s(i, j)
Next
Next

toiai · 29.12.2013, 19:02

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

Dim s(4, 4) As Integer, f(4) As Integer, g(4) As Integer

вернее будет объявить так:

Visual Basic

1	Dim s(1 to 4, 1 to 4) As Integer, f(1 to 4) As Integer, g(1 to 4) As Integer

@all_angarsk · 29.12.2013, 19:34

Когда так строго нужно объявлять массивы.? Подскажите пожалуйста. Разница только в одной строке!

toiai · 29.12.2013, 20:15

all_angarsk, как Вы объявили переменные однозначны:

Visual Basic

1	Dim s(0 to 4, 0 to 4) As Integer, f(0 to 4) As Integer, g(0 to 4) As Integer

@pewbot 0 / 0 / 0 Регистрация: 22.12.2013 Сообщений: 16
		1
	Поменять элементы побочной и главной диагонали и вывести переделанную матрицу на экран 28.12.2013, 19:44. Показов 857. Ответов 4 Метки нет (Все метки) Задается матрица (4,4) нужно поменять элементы побочной и главной диагонали и вывести переделанную матрицу на экран 0

@all_angarsk 761 / 268 / 57 Регистрация: 13.12.2009 Сообщений: 1,101
	29.12.2013, 19:34	4
	Когда так строго нужно объявлять массивы.? Подскажите пожалуйста. Разница только в одной строке! 0

	29.12.2013, 20:15