Ввести N и получить матрицу NxN указанного вида

@Timofey93 · Регистрация: 05.04.2013

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

Нужно ввести только N и получить матрицу такого вида:

1 0 0 0 0 0
0 2 0 0 0 0
0 0 3 0 0 0
0 0 0 4 0 0
0 0 0 0 5 0
0 0 0 0 0 6

toiai · 18.05.2013, 11:30

Вот примерно так:

Visual Basic

Sub matriza()
    Dim n As Integer, a() As Integer
    n = InputBox("Ââåäèòå N")
    ReDim a(1 To n, 1 To n)
    For i = LBound(a, 1) To UBound(a, 1)
        a(i, i) = i
    Next
    [A1].Resize(UBound(a, 1), UBound(a, 1)) = a
End Sub

@Timofey93 0 / 0 / 0 Регистрация: 05.04.2013 Сообщений: 8
		1
	Ввести N и получить матрицу NxN указанного вида 18.05.2013, 11:17. Показов 902. Ответов 1 Метки нет (Все метки) Нужно ввести только N и получить матрицу такого вида: 1 0 0 0 0 0 0 2 0 0 0 0 0 0 3 0 0 0 0 0 0 4 0 0 0 0 0 0 5 0 0 0 0 0 0 6 0

	18.05.2013, 11:30