Из каждых трех стоящих рядом элементов определить минимальный элемент и переписать его в массив В - VB
Формулировка задачи:
№1
Дан одномерный массив А неупорядоченных целых чисел. Из каждых трех стоящих рядом элементов определить минимальный элемент и переписать его в массив В. Вывести массив В на экран.
№2
Дана матрица целых чисел А, состоящая из М строк и N столбцов. Вектор В состоит из разности по столбцам простых и составных чисел. Вывести вектор В.
Решение задачи: «Из каждых трех стоящих рядом элементов определить минимальный элемент и переписать его в массив В»
textual
Листинг программы
Function f(ByVal x As Integer) As Boolean For k = 2 To Sqr(Sqr(x ^ 2)) If Int(x / k) = x / k Then f = True: Exit For Next k End Function Private Sub Command14_Click() List1.Clear Dim a(), b() As Integer Dim c, m, n As Integer Dim e As String m = Val(Text1.Text): n = Val(Text2.Text) ReDim a(1 To m, 1 To n), b(1 To n) Randomize List1.AddItem "Исходная матрица" For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd(1) * 100 - 50) e = e & Str(a(i, j)) & " " Next j List1.AddItem e: e = "" Next i d = False For i = 1 To m For j = 1 To n d = f(a(i, j)) If d = False Then b(j) = b(j) + a(i, j) If d = True Then b(j) = b(j) - a(i, j) d = False Next j Next i List1.AddItem "Выходящий вектор" For i = 1 To n e = e & Str(b(i)) & " " Next i List1.AddItem e End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д