Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 19, средняя оценка - 4.89
VRotKompot
0 / 0 / 0
Регистрация: 24.03.2012
Сообщений: 3
#1

Вывести на экран сначала положительные, затем отрицательные числа массива - VB

24.03.2012, 10:06. Просмотров 2649. Ответов 7
Метки нет (Все метки)

Короче вот задание: "Массив состоит из 12 целых положительных и отрицательных чисел, каждое из которых находится в интервале от 2 до 12. Вывести на экран сначала положительные затем отрицательные числа."
Я пытался ее написать, получилось только разделить положительные и отрицательные оператором mod. Например:
Visual Basic
1
2
3
а= 9 mod 2
if a <> 0 then
end if.
Заранее спасибо за помощь.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2012, 10:06
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывести на экран сначала положительные, затем отрицательные числа массива (VB):

Вывести сначала четные элементы массива, затем — все остальные - Visual Basic
Дан массив размера N. Вывести вначале его элементы с четными1|нечетными2 индексами, а затем — с нечетными1|четными2.

Дано предложение, содержащее целые положительные числа, которое заканчивается запятой. Вывести числа на экран - Visual Basic
Дано предложение содержащее целые положительные числа,которое заканчивается запятой. Вывести на экран эти числа

Вывести на экран положительные элементы одномерного массива - Visual Basic
Здравствуйте, помогите пожалуйста решить задачу: В одномерном массиве из N чисел вывести на экран положительные элементы и сообщение об...

Вывести на экран все отрицательные четные числа кратные 5 - Visual Basic
Вывести на экран все отрицательные четные числа кратные 5 из диапозона от A до B (A=&lt;B).

Получить массив Y(i), записав сначала четные а затем нечетные числа - Visual Basic
Из массива целых случайных чисел X={Xi}, где i={1,2...n}, получить массив Y={y(m)}, записав сначала четные а затем нечетные числа....

В одномерном массиве из положительных и отрицательных чисел найти отрицательные числа и их сумму и вывести на экран. - Visual Basic
Постараюсь понять как решать на основе ваших решений. Спасибо. 2. В одномерном массиве из положительных и отрицательных чисел найти...

7
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
24.03.2012, 11:32 #2
Цитата Сообщение от VRotKompot Посмотреть сообщение
"Массив состоит из 12 целых положительных и отрицательных чисел, каждое из которых находится в интервале от 2 до 12.
Отрицательные числа не могут находится в этом интервале.
Если только от -2 до -12.
Т.е. отрицателное число любое, а положительное от 2 до 12?
Или как?
0
VRotKompot
0 / 0 / 0
Регистрация: 24.03.2012
Сообщений: 3
24.03.2012, 12:02  [ТС] #3
Так... Задание я перепепечатал слово-в слово. Я так понимаю, что от -2 до 12 должно быть. Спасибо тебе, что помогаешь. Совсем не вдупляю массивы
0
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
24.03.2012, 13:49 #4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim a(12) As Integer
List1.Clear
Randomize
List1.AddItem "Г*Г*Г·Г*ëüГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 0 To 11
 a(i) = Int(Rnd(1) * 15) - 2
 List1.AddItem a(i)
Next i
List1.AddItem "+"
For i = 0 To 11
 If a(i) > 0 Then List1.AddItem a(i)
Next i
List1.AddItem "-"
For i = 0 To 11
 If a(i) < 0 Then List1.AddItem a(i)
Next i
0
basssot2
0 / 0 / 0
Регистрация: 14.03.2012
Сообщений: 15
24.03.2012, 14:54 #5
sco43

щито это такое?
0
Миниатюры
Вывести на экран сначала положительные, затем отрицательные числа массива  
basssot2
0 / 0 / 0
Регистрация: 14.03.2012
Сообщений: 15
24.03.2012, 15:46 #6
sco43, прости, не признал.
Правда с рандомами не очень просто для новичка, который эту программу будет объяснять)
(я про топикстартера)

Только там надо было от -12 до -2 и от 2 до 12
0
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
24.03.2012, 16:06 #7
Цитата Сообщение от basssot2 Посмотреть сообщение
щито это такое?
Исходный массив,
+ положительные элементы,
- отрицательные элементы.

Добавлено через 11 минут
Цитата Сообщение от basssot2 Посмотреть сообщение
Только там надо было от -12 до -2 и от 2 до 12
Тогда так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim a(12) As Integer, i&
List1.Clear
Randomize
List1.AddItem "начальный массив"
For i = 0 To 11
 If i / 2 = Int(i / 2) Then a(i) = Int(Rnd(1) * 11) + 2
 If i / 2 <> Int(i / 2) Then a(i) = -2 + Int(Rnd(1) * (-10))
 List1.AddItem a(i)
Next i
List1.AddItem "+ положительные"
For i = 0 To 11
 If a(i) > 0 Then List1.AddItem a(i)
Next i
List1.AddItem "-отрицательные"
For i = 0 To 11
 If a(i) < 0 Then List1.AddItem a(i)
Next i
0
VRotKompot
0 / 0 / 0
Регистрация: 24.03.2012
Сообщений: 3
25.03.2012, 13:17  [ТС] #8
Спасибо большое!
0
25.03.2012, 13:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2012, 13:17
Привет! Вот еще темы с ответами:

Вывести номера столбцов двумерного массива содержащих только отрицательные числа - Visual Basic
Уважаемые форумчане, подскажите пожалуйста как это сделать, массив задан, а вот как вывести только номера столбцов в которых присутствуют...

В массиве заменить отрицательные числа на положительные - Visual Basic
60. В массиве 20 случайных чисел от -20 до +20 заменить отрицательные числа на положительные

Рассортировать положительные числа по убыванию, а отрицательные по возрастанию - Visual Basic
Дан массив из 15 чисел. Рассортировать положительные числа по убыванию, а отрицательные по возрастанию. я ваще не знаю как((

Расположить элементы массива в следующем порядке – положительные, нулевые и отрицательные - Visual Basic
Расположить элементы массива в следующем порядке – положительные, нулевые и отрицательные. я НИчего не понимаю в вижуал бейсик и мне...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.