Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива - VB

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

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

Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива * A (N), N ≤ 50.

Решение задачи: «Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива»

textual
Листинг программы
Function AvgNegPos(A() as double, _
                            Optional i as integer=0, 
                            Optional np as integer=0, 
                            Optional sp as double=0,
                            Optional nn as integer=0, 
                            Optional sn as double=0) As Double ()
Dim Res() as Double
    if (i > Ubound(A,1)) Then
       Redim Res(1 to 4) As Double
       Res(1)=sp/np
       Res(2)=sn/nn
       Res(3)=np
       Res(4)=nn
       AvgNegPos=Res
   else
       If (A(i) > 0) then AvgNegPos=AvgNegPos(A,i+1,np+1,sp+A(i),nn,sn)
       If (A(i) < 0) then AvgNegPos=AvgNegPos(A,i+1,np,sp,nn+1,sn+A(i)) 
   End if       
End Function

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


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

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

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