Задана последовательность - VB
Формулировка задачи:
Задана последовательность чисел A = {A1, A2, ..., A6}. Выбрать из них
числа, принадлежащие отрезку [x, y]. Из выбранных чисел образовать массив.
Проверку на принадлежность отрезку оформить в виде подпрограммы. Исход-
ные данные: A = {-4.1,-1,1.2,3,5,0.75}, x = -2,5; y = 1,2.
модуль:
код:
Помогите исправить, выдает не правильно ответ.
Решение задачи: «Задана последовательность»
textual
Листинг программы
Option Explicit Dim x, y Function BetweenXY(z) As Boolean BetweenXY = z >= x And z <= y End Function Private Sub Command2_Click() Dim S Dim A(), B() Dim k&, m& S = "" x = -2.5 y = 1.2 A = Array(-4.1, -1, 1.2, 3, 5, 0.75) ReDim B(0 To UBound(A)) For k = 0 To UBound(A) If BetweenXY(A(k)) Then B(m) = A(k) m = m + 1 End If Next ReDim Preserve B(0 To m - 1) MsgBox Join(B) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д