Задача на массивы - VB

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

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

Очень срочно нужно, не разбираюсь вообще. Пожалуйста помогите Z=А/(B+1) и ко всему выражению +С, где А - произведение ненулевых среди N первых элементов В - номер максимального по модулю элемента С - среднее геометрическое положительных элементов.

Решение задачи: «Задача на массивы»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim M(15) As Single
Dim A As Double
Dim B As Single
Dim C As Single
Dim Z As Single
Dim N As Integer
Dim K As Integer
Dim I As Single
 
Command1.Caption = "vvod"
Label1.Caption = "N="
Label2.Caption = "Z="
Label3.Caption = "A="
Label4.Caption = "B="
Label5.Caption = "C="
 
N = Val(Text1.Text)
A = 1
C = 1
K = 0
 
 
For I = 1 To N
  M(I) = Val(InputBox("Ââåñòè ýëåìåГ*ГІГ»"))
   List1.AddItem M(I)
Next I
 
For I = 1 To N
 If Abs(M(I)) <> 0 Then
  A = A * M(I)
  End If
  Next I
 
B = M(1)
For I = 1 To N
If Abs(M(I)) > B Then
B = M(I)
End If
Next I
 
For I = 1 To N
 If M(I) > 0 Then
  C = C * M(I)
  K = K + 1
  End If
Next I
 
If B + 1 <> 0 Then
 Z = A / (B + 1) + C
Else
MsgBox "error"
End If
 
 
Text3.Text = Str(A)
Text4.Text = Str(B)
Text5.Text = Str(C)
Text2.Text = Str(Z)
Text1.Text = CStr(N)
End Sub

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


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

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

11   голосов , оценка 3.909 из 5