В массиве А (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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы