Из массива целых случайных чисел Х(хi), где i=(1,2....n) получить массив Y=(y(m)) - VB
Формулировка задачи:
из массива целых случайных чисел Х(хi), где i=(1,2....n),получить массив Y=(y(m)), из среднеарифмитических соседних двух элементов. Х=(3,1,8,4,7,3,7)=> Y=(2,6,5)
Решение задачи: «Из массива целых случайных чисел Х(хi), где i=(1,2....n) получить массив Y=(y(m))»
textual
Листинг программы
Option Explicit
Dim A(), A2() As Single, n As Integer, m As Integer, k As Integer
Dim i As Integer, j, p, p2 As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls 'Очищаем форму
m = InputBox("Введите число", , 10)
ReDim A(1 To m) ' Размеры матрицы А
ReDim A2(1 To m)
For i = 1 To m
A(i) = Int(Rnd * 21 - 10)
Print A(i)
Next i
Print
For i = 1 To m Step 2
A2(i) = 0.5 * (A(i) + A(i + 1))
Print A2(i)
Next i
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д