Бейсик задание по матрицам - VB
Формулировка задачи:
Дана действительная квадратная матрица[aij]ij=1,....n
получить две квадратные матрицы [bij]ij=1,....n [cij]ij=1,....n
для которых
.....(aij-при-j>=1
bij=(
.....(aij-при-j<1,
.....(aij-при-j<1
cij=(
.....(-aij-при-j>=1
Решение задачи: «Бейсик задание по матрицам»
textual
Листинг программы
Dim A(), B(), C(), n
n = InputBox("n")
ReDim A(1 To n, 1 To n), B(1 To n, 1 To n), C(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
A(i, j) = Int(100 * Rnd - 50)
B(i, j) = IIf(j >= 1, A(i, j), -A(i, j))
C(i, j) = IIf(j < 1, A(i, j), -A(i, j))
Next j
Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д