Из каждых трех стоящих рядом элементов определить минимальный элемент и переписать его в массив В - 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

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


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

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

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