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