Получить матрицу размера n: элементы выше побочной диагонали = 1, на диагонали = 0, ниже диагонали = -1

@Defonist · Регистрация: 22.04.2010

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

Написать программу, которая получает матрицу размерности n (получая поле input box ) ,где элементы выше поб диагонали =1, на поб диагонали =0, ниже поб диагонали =-1
Помагите

пожалуйста

@YuraAAA · 06.05.2010, 15:59

Visual Basic

Option Explicit
Private Sub matrix()
Dim arr() As Single, n As Byte
Dim i As Byte, j As Byte
n = InputBox("n")
ReDim arr(1 To n, 1 To n)
For i = 1 To n
arr(i, n - i + 1) = 0 'Pobo4naya diagonal'
Next i
For i = 1 To n - 1
For j = 1 To n - i
arr(i, j) = 1      'Up
Next j
Next i
For i = 2 To n
For j = n - i + 2 To n
arr(i, j) = -1   'Down
Next j
Next i
For i = 1 To n
For j = 1 To n
Cells(i, j) = arr(i, j)  'Vivod na list
Next j
Next i
End Sub

@Toxa33rus · 06.05.2010, 18:55

Visual Basic

n = Val(InputBox("Введите размер матрицы"))
Dim a()
ReDim a(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
  a(i, j) = Sgn(n - j + 1 - i)
Next j
Next i

@Defonist 0 / 0 / 0 Регистрация: 22.04.2010 Сообщений: 20
		1
	Получить матрицу размера n: элементы выше побочной диагонали = 1, на диагонали = 0, ниже диагонали = -1 05.05.2010, 21:30. Показов 1724. Ответов 2 Метки нет (Все метки) Написать программу, которая получает матрицу размерности n (получая поле input box ) ,где элементы выше поб диагонали =1, на поб диагонали =0, ниже поб диагонали =-1 Помагите пожалуйста 0

Опции темы