Записать на место отрицательных элементов матрицы нули, а на место положительных - единицы - VB
Формулировка задачи:
Записать на место отрицательных эле-ментов матрицы нули, а на место поло-жительных - единицы. Вывести на пе-чать нижнюю треугольную матрицу в общепринятом виде.размер матрицы D (10, 10). заранее огромное спасибо!!!!!
Решение задачи: «Записать на место отрицательных элементов матрицы нули, а на место положительных - единицы»
textual
Листинг программы
Option Explicit Dim A() As Integer, n As Integer, m As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer Randomize 'Иницилизация генератора случайных чисел Me.Cls 'Очищаем форму m = InputBox("Введите число строк", , 10) n = InputBox("Введите число столбцов", , 10) ReDim A(1 To m, 1 To n) ' Размеры матрицы А - m-строк, n-столбцов For i = 1 To m For j = 1 To n A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами Print A(i, j); vbTab; Next j Print Next i Print For i = 1 To m For j = 1 To n If A(i, j) < 0 Then A(i, j) = 0 Else A(i, j) = 1 Print A(i, j); vbTab; Next j Print Next i Print For i = 1 To m For j = 1 To i Print A(i, j); vbTab; Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д