Дана последовательность действительных чисел . Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей

@sageman · Регистрация: 28.05.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Ребят, помогите ещё разок кипятильнику. Задачка такая:
Дана последовательность действительных чисел. Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей.
Как всё это реализовать на VBA?
Заранее благодарен.

@Catstail · 03.06.2013, 16:43

Visual Basic

Function InsV(X() As Double, v As Double) As Double()
Dim Res() As Double
   n% = UBound(X, 1)
   ReDim Res(1 To n% + 1) As Double
   j% = 0
   q% = 0
   For i% = 1 To n%
       If (X(i%) >= v) And (q% = 0) Then
          j% = j% + 1
          Res(j%) = v
          q% = 1
       End If
       j% = j% + 1
       Res(j%) = X(i%)
   Next i%
   If q% = 0 Then Res(n% + 1) = v
   InsV = Res
End Function

@sageman 2 / 2 / 0 Регистрация: 28.05.2013 Сообщений: 5
		1
	Дана последовательность действительных чисел . Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей 03.06.2013, 07:25. Показов 2052. Ответов 1 Метки нет (Все метки) Здравствуйте! Ребят, помогите ещё разок кипятильнику. Задачка такая: Дана последовательность действительных чисел. Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей. Как всё это реализовать на VBA? Заранее благодарен. 0

	03.06.2013, 16:43