Переписать элементы массива X в массив Y и подсчитать их количество - VB

Узнай цену своей работы

Формулировка задачи:

массив x(70). Переписать элементы массива X в массив Y и подсчитать их количество. Условия и ограчения: 1>=x(i)>=-1

Решение задачи: «Переписать элементы массива X в массив Y и подсчитать их количество»

textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Const c = 70
    Dim x$(c), y$(), f&, d%
    Randomize Timer
    For f = 1 To c
        x(f) = Round(-10 + (Rnd * 21), 1)
    Next
    '============= Переписать значения
    For f = 1 To c
        If Abs(x(f)) <= 1 Then
          d = d + 1: ReDim Preserve y(d): y(d) = x(f)
        End If
    Next
    Cls
    Print "Массив Х = {" & Join(x, ";") & "}"
    Print "Массив Y = {" & Join(y, ";") & "}"
    Print "Количество с Условием и ограчением: 1>=x(i)>=-1 ...  = " & d
End Sub

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


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

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

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