Дана матрица F(m*m)заменить нулями основную диагональ матрицы В С++ basic visual
Дана матрица F(m*m)поменять нулями основную диагональ матрицы В С++ basic visual
Евгений Кашутский
Нужно построить метод? Написать код программки? На каком языке?
Ева Карганова
в basic visual
Роман Ручкинов
С++
Лилия Гойзенбант
Так visual basic либо c++?))
Ангелина Хотникова
с++
Торбова
Александра
В visual basic могу, в С++ нет.
Варвара Рябова
сделай тогда пожайлуста в бэйсике
1 ответ
Славян
В 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" amp; Str(i) amp; "," amp; 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 amp; F(i, k) amp; Chr(9)
Next k
Label1.Caption = Label1.Caption amp; vbCrLf ' Переход на последующую строчку
Next i
End Sub
со свойством 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" amp; Str(i) amp; "," amp; 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 amp; F(i, k) amp; Chr(9)
Next k
Label1.Caption = Label1.Caption amp; vbCrLf ' Переход на последующую строчку
Next i
End Sub
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов