Переписать элементы массива 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д