1 августа, 20:11

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

+1
Ответы (1)
  1. 1 августа, 21:06
    0
    В 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
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дана матрица F (m*m) заменить нулями главную диагональ матрицы В С + + basic visual ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Ответы (1)
Переведите число 202 из восьмеричной системы счисления в десятичную
Ответы (1)
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Ответы (1)
Вводятся 3 числа, вывести на экран нечетные числа pascal
Ответы (1)
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
Ответы (2)
Мощность первого в алфавита составляет 2048 символов информационный вес символа на второго алфавита она 2 бита меньше чем информационный вес символа из первого алфавита определите мощность второго алфавита
Ответы (1)
Известно правило кодирования - после каждой гласной буквы ставится буква "и", после каждой согласной - "ц". Зашифруй слова: практикум, принтер, секрет, честь.
Ответы (1)
Представить целое десятичное число 171 во внутримашинном представлении размером два байта.
Ответы (1)
Для записи текста использовался 64-символьный алфавит. Какое колисество информации в байтах содержит 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке?
Ответы (1)
Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом
Ответы (1)