Вопрос по информатике:
Разработайте приложение для обработки двумерного массива в среде программирования VISUAL BASIC.
дан массив x(15). Найти произведенияя отрицательных и положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
- 06.01.2018 14:30
- Информатика
- remove_red_eye 3058
- thumb_up 42
Ответы и объяснения 1
Тебе нужно будет форму создать с элементами.
Код примерно так будет выглядеть:
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 ("Модуль суммы отрицательных больше суммы положительных")
- 07.01.2018 03:56
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.