Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается - VB
Формулировка задачи:
Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается. Помогите, пожалуйста, вывести на экран обе матрицы.
Неужели никто не может?
Решение задачи: «Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается»
textual
Листинг программы
Private Sub Command1_Click() Dim a(1 To 3, 1 To 3) As Integer Dim b(1 To 3, 1 To 3) As Integer Dim flag As Boolean flag = False Print "ÏåðâГ*Гї Г¬Г*òðèöГ*:"; For i = 1 To 3 Print For j = 1 To 3 a(i, j) = InputBox("Ââîä ýëåìåГ*ГІГ* (" & i & ";" & j & ")") If a(i, j) < 0 Then flag = True Print a(i, j); Next Next Print "ÂòîðГ*Гї Г¬Г*òðèöГ*:"; Print For i = 1 To 3 Print For j = 1 To 3 If flag Then If i = j Then b(i, j) = 2 * a(i, j) Else b(i, j) = a(i, j) End If Else b(i, j) = a(i, j) End If Print b(i, j); Next Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д