Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j) - VB
Формулировка задачи:
Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j) для которой B(i,j)=6*i*A(i)-3*j*A(j), где i,j=1,2,3,4
такой код, тут уже по разному пробовали, возможен бред)
Решение задачи: «Заданны целые числа A1,A2,A3,A4. Получить матрицу B(i,j)»
textual
Листинг программы
Option Explicit Dim a(1 To 4) As Double Dim b(1 To 4, 1 To 4) As Double Dim i As Integer Dim j As Double Private Sub Command1_Click() Print "Ââåä¸Г*Г*ûå Г·ГЁГ±Г«Г*:" For i = 1 To 4 a(i) = InputBox("Ââåäèòå " & i & " ÷èñëî", "Ââîäèì Г·ГЁГ±Г«Г*") Print a(i); vbTab; Next i Print vbLf Print "Ïîëó÷Г*ГҐГ¬:" For i = 1 To 4 For j = 1 To 4 b(i, j) = 6 * i * a(i) - 3 * j * a(i) If j <> 4 Then Print b(i, j); vbTab; Else Print b(i, j); vbTab; Print vbLf End If Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д