Разработайте приложение для обработки двумерного массива в среде программирования VISUAL BASIC.
дан массив x(15). Найти произведенияя отрицательных и положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
Приложения:
Ответы на вопрос
Ответил Аноним
0
Тебе нужно будет форму создать с элементами.
Код примерно так будет выглядеть:
Dim X(15) As Integer
Dim P1, P2 As Integer
For i = 1 To 15
X(i) = Int(Rnd * 20) - 10
If X(i) > 0 Then P1 = P1 + 1
If X(i) < 0 Then P2 = P2 + 1
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_МАССИВА=ИМЯ_ЭЛЕМЕНТА_ДЛЯ_МАССИВА & X(i) & " "
Next i
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_P1 = P1
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_P2 = P2
If P1 > Abs(P2) Then MsgBox ("Сумма положительных больше модуля суммы отрицательных")
If P1 < Abs(P2) Then MsgBox ("Модуль суммы отрицательных больше суммы положительных")
Код примерно так будет выглядеть:
Dim X(15) As Integer
Dim P1, P2 As Integer
For i = 1 To 15
X(i) = Int(Rnd * 20) - 10
If X(i) > 0 Then P1 = P1 + 1
If X(i) < 0 Then P2 = P2 + 1
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_МАССИВА=ИМЯ_ЭЛЕМЕНТА_ДЛЯ_МАССИВА & X(i) & " "
Next i
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_P1 = P1
ИМЯ_ЭЛЕМЕНТА_ДЛЯ_P2 = P2
If P1 > Abs(P2) Then MsgBox ("Сумма положительных больше модуля суммы отрицательных")
If P1 < Abs(P2) Then MsgBox ("Модуль суммы отрицательных больше суммы положительных")
Новые вопросы