Блог для маленьких школьников и их родителей
ШколаЛа

Дана матрица F(m*m)заменить нулями главную диагональ матрицы В С++ basic visual

Автор:
Предмет: Информатика
Уровень: 10 - 11 класс

Дана матрица F(m*m)заменить нулями главную диагональ матрицы В С++ basic visual

Ответов к вопросу: 1
  • yddxuhgbjvj4678889
    02.08.2024 | 11:22

    В Visual Basic на форме нужно создать текстовое поле Label1
    со свойством WordWrap = True, то есть многострочное поле,
    размер нужно задать, чтобы поместилась вся матрица.
    Sub Matrix
    Dim F() As Integer ‘ Объявляем динамический массив
    Dim m As Integer, i As Integer, k As Integer, t As String ‘ И переменные
    m = InputBox («Vvedite razmer matrix») ‘ Задаем размер массива
    ReDim F(m, m) ‘ Определяем размер массива
    For i = 1 To m    ‘ Ввод данных
         For k = 1 To m
             t = «Vvedite element Matrix» & Str(i) & «,» & Str(k)
             F(i, k) = InputBox (t)
         Next k
    Next i
    For i = 1 To m
         F(i, i) = 0 ‘ Обнуляем элементы главной диагонали.
    Next i
    For i = 1 To m
         For k = 1 To m  ‘ Вывод строки данных через табуляцию
             Label1.Caption = Label1.Caption & F(i, k) & Chr(9)
         Next k
         Label1.Caption = Label1.Caption & vbCrLf ‘ Переход на следующую строку
    Next i
    End Sub

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.