Разработайте приложение для обработки двумерного массива в среде программирования VISUAL BASIC.
дан массив x(15). Найти произведенияя отрицательных и положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2
ну замечательно
Нужно знать, как ты назвала в своей форме элементы, в которые нужно будет вывести созданный массив и результаты.
я их никак не назвала... я вообще далека от этого....
Без этого ты никак написанный для тебя код не вставишь в свое приложение.
ну... тогда не знаю...
ну... посмотрю тогда. Может и смогу... Спасибо
хорошо
Тебе нужно будет форму создать с элементами. Код примерно так будет выглядеть: 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 ("Модуль суммы отрицательных больше суммы положительных")
Ты думаешь, X(15) это значит X(15,15)? Все может быть)) Принципиальной разницы нет, но код изменится. Для новичка это, конечно же, существенно