Разработайте приложение для обработки двумерного массива в среде программирования VISUAL...

0 голосов
64 просмотров

Разработайте приложение для обработки двумерного массива в среде программирования VISUAL BASIC.

дан массив x(15). Найти произведенияя отрицательных и положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2


image

Информатика (12 баллов) | 64 просмотров
0

ну замечательно

0

Нужно знать, как ты назвала в своей форме элементы, в которые нужно будет вывести созданный массив и результаты.

0

я их никак не назвала... я вообще далека от этого....

0

Без этого ты никак написанный для тебя код не вставишь в свое приложение.

0

ну... тогда не знаю...

0

ну... посмотрю тогда. Может и смогу... Спасибо

0

хорошо

Дан 1 ответ
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 ("Модуль суммы отрицательных больше суммы положительных")

0

Ты думаешь, X(15) это значит X(15,15)? Все может быть)) Принципиальной разницы нет, но код изменится. Для новичка это, конечно же, существенно