В массиве А (m,n) найдите количество всех чисел, по модулю меньших заданного Т - VB
Формулировка задачи:
1.1 В массиве А (m,n) найдите количество всех чисел, по модулю меньших заданного Т.
1.2 Измените исходный массив чтобы отрицательный последний элемент каждого столбца заменился нулём.1.3 Запишите строку a в обратном порядке в строку b. Посчитайте сколько одинаковых букв находятся на одинаковых местах в этих строках. Применяйте подпрограммы.
Обязательное условие этих двух задач - использовать процедуры либо функции.
Сделайте пожалуйста в vb, все коды есть написанные на паскале.1.1
1.2
1.3
Решение задачи: «В массиве А (m,n) найдите количество всех чисел, по модулю меньших заданного Т»
textual
Листинг программы
Dim a() As Integer Sub command1_click() Dim m As Integer, n As Integer m = InputBox("Количество строк m =") n = InputBox("Количество столбцов n =") OriginalMatrix m, n PrintMatrix m, n, "Исходная матрица" ModMatrix m, n PrintMatrix m, n, "Итоговая матрица" End Sub Sub PrintMatrix(strok As Integer, stolbzov As Integer, nameMas As String) Dim i As Integer, j As Integer Print Print nameMas For i = 1 To strok For j = 1 To stolbzov Print vbTab; a(i, j); Next Print Next Print End Sub Sub OriginalMatrix(strok As Integer, stolbzov As Integer) Dim i As Integer, j As Integer ReDim a(1 To strok, 1 To stolbzov) For i = 1 To strok For j = 1 To stolbzov a(i, j) = Rnd * (15) - 5 Next Next End Sub Sub ModMatrix(strok As Integer, stolbzov As Integer) Dim i As Integer, j As Integer, io As Integer For j = 1 To stolbzov If a(strok, j) < 0 Then a(strok, j) = 0 Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д