Найти произведение положительных элементов массива - VB (60282)
Формулировка задачи:
Найти произведение положительных элементов массива: А = {2; -6; 0; 1,5;-7;-1,5} и произведение отрицательных элементов массива: В = {0,5; 16; -7; 4; 4 ; -2; -3}.Вывести на печать наибольшее по абсолютной величине произведение.
Сделайте пожалуйста кто сможет,буду очень благодарен!))
Решение задачи: «Найти произведение положительных элементов массива»
textual
Листинг программы
Dim A(7) As Double Dim B(7) As Double Dim Ap As Double Dim Bp As Double Dim i As Integer Private Sub Command1_Click() Ap = 1 Bp = 1 For i = 0 To 6 If A(i) > 0 Then Ap = Ap * A(i) If B(i) < 0 Then Bp = Bp * B(i) Next i If Abs(Ap) > Abs(Bp) Then MsgBox "наибольшим по модулю является произведение положительных элементов массива: А = " & Ap Else: MsgBox "наибольшим по модулю является произведение отрицательных элементов массива: В = " & Bp End If End Sub Private Sub Form_Load() A(0) = 2: A(1) = -6: A(2) = 0: A(3) = 1.5: A(4) = -7: A(5) = -1.5 A(6) = 1 'для того, чтобы объединить проверку в 1 цикл B(0) = 0.5: B(1) = 16: B(2) = -7: B(3) = 4: B(4) = 4: B(5) = -2: B(6) = -3 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д