Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.06.2011, 16:11   #1
Jarsey
Новичок
Джуниор
 
Регистрация: 20.06.2011
Сообщений: 4
По умолчанию Задача на одномерный массив в Visual Basic

Задали простую задачу. А как ее сделать ума не приложу))) буду очень признателен если кто то поможет хоть чем то
Задача:
Создать массив a(n):
1. Определить колличество чисел и колличество нечетных элементов
2. Определить сумму едениц и произведение положительных элементов
3. Отсортировать первую половину массива по возростанию, вторую по убыванию

Последний раз редактировалось Jarsey; 20.06.2011 в 16:20.
Jarsey вне форума Ответить с цитированием
Старый 20.06.2011, 18:35   #2
Biggs
Пользователь
 
Регистрация: 15.07.2010
Сообщений: 74
По умолчанию

Каких чисел?
Biggs вне форума Ответить с цитированием
Старый 20.06.2011, 20:06   #3
Jarsey
Новичок
Джуниор
 
Регистрация: 20.06.2011
Сообщений: 4
По умолчанию

просто написано
В массиве a(n) определить...(((
самого массива нету наверно нужно цифры "от фонаря"
Jarsey вне форума Ответить с цитированием
Старый 20.06.2011, 20:06   #4
Jarsey
Новичок
Джуниор
 
Регистрация: 20.06.2011
Сообщений: 4
По умолчанию

просто написано
В массиве a(n) определить...(((
самого массива нету наверно нужно цифры "от фонаря"
Jarsey вне форума Ответить с цитированием
Старый 20.06.2011, 20:43   #5
Biggs
Пользователь
 
Регистрация: 15.07.2010
Сообщений: 74
По умолчанию

Код:
Private Sub Command1_Click()
Dim a(5) As Integer, k As Integer, i As integer, SUM As Integer, POS As Double
Randomize
k = 0
SUM = 0
POS = 1
For i = 0 To 5
a(i) = CInt(Rnd * 100)
SUM = SUM + a(i)
If a(i) Mod 2 <> 0 Then k = k + 1
If a(i) > 0 Then POS = POS * a(i)
Print a(i)
Next
Print "Количество чисел=", UBound(a) + 1
Print "Количество нечетных элементов=", k, "Сумма=",SUM, "Произведение положительных элементов=",POS

End Sub
Без сортировки
Проверь все ли правильно

Последний раз редактировалось Biggs; 20.06.2011 в 21:06.
Biggs вне форума Ответить с цитированием
Старый 20.06.2011, 21:09   #6
Jarsey
Новичок
Джуниор
 
Регистрация: 20.06.2011
Сообщений: 4
По умолчанию

пасибочки только я без понятия как проверить))))) попробую запхнуть в бэсик и сдать))
Jarsey вне форума Ответить с цитированием
Старый 21.06.2011, 08:25   #7
Biggs
Пользователь
 
Регистрация: 15.07.2010
Сообщений: 74
По умолчанию

Открой бэйсик , перетащи на форму кнопку и вставь код
Biggs вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный массив.вычислить квадратный корень из произведения модулей чётных элементов. Visual Basic Madmozavr Microsoft Office Excel 4 21.05.2010 17:52
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. Marishkaa Помощь студентам 2 12.01.2010 16:54
Одномерный массив [Visual C++] cshero Помощь студентам 2 30.11.2009 11:42
Visual Basic-одномерный массив! DESPUT Помощь студентам 12 02.06.2009 09:33