Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
bLoodRate
0 / 0 / 0
Регистрация: 29.03.2011
Сообщений: 11
1

Упорядочение элементов массива - положительные, затем нулевые, затем отрицательные

29.03.2011, 23:36. Просмотров 1331. Ответов 2
Метки нет (Все метки)

помогите плиз!нужно написать макрос excel! задание: написать процедуру по упорядочению элементов заданного массива В в следующем порядке: сначала идут положительные числа, потом - нули и в конце - отрицательные

возможно использование как статических, так и динамических массивов.ввод исходных данных осуществлять с клавиатуры. вывод на лист excel.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2011, 23:36
Ответы с готовыми решениями:

Перестроить массив, записав в него сначала все положительные, затем отрицательные и нулевые элементы
Дан массив из 10 целых чисел. Перестроить массив, записав в него сначала все...

Составить алгоритм и программу, которая вначале выводит список всех отличников, затем список хорошистов, троечников, а затем двоечников в ячейки листа
Имеется список группы и оценка каждого студента на экзамене. Составить алгоритм...

Ячейки, содержащие положительные числа, выделить голубым, отрицательные – красным, нулевые – зелёным (Excel)
28. Excel : В выделенном диапазоне все ячейки, содержащие положительные числа,...

Найти максимальное и минимальное значение массива, затем поменять их местами
кто может помочь исправить ошибку, нужно найти максимальное и минимальное...

Отрицательные элементы массива умножить на -2, а положительные на +2
Здравствуйте! Очень срочно нужна помощь. Вопрос жизни и смерти! VBA вообще не...

2
all_angarsk
750 / 257 / 57
Регистрация: 13.12.2009
Сообщений: 982
30.03.2011, 17:03 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
Dim s() As Integer, max As Integer, d() As Integer, h As Integer
Randomize
n = 10
ReDim s(n)
ReDim d(n)
For i = 0 To n
s(i) = Rnd() * (-20) + 8
Cells(i + 2, 2) = s(i)
Next
max = s(0)
Do While h < n + 1
For i = 0 To n
 
If max < s(i) Then
max = s(i)
g = i
End If
Next
s(g) = -10000
d(h) = max
h = h + 1
max = -10000
Loop
For i = 0 To n
Cells(i + 2, 4) = d(i)
Next
 
End Sub
выдает исходный и упорядоченный массив по убыванию
0
bLoodRate
0 / 0 / 0
Регистрация: 29.03.2011
Сообщений: 11
31.03.2011, 18:27  [ТС] 3
Большое человеческое спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2011, 18:27

Чередуются ли отрицательные и положительные элементы массива
Даны два линейные массива А(n) и B(n). Напишите макрос, который проверяет, ...

Выяснить, чередуются ли отрицательные и положительные элементы массива
Помогите пожалуйста сделать лабу: Дан массив ненулевых целых чисел размера N....

Перенести положительные элементы в начало массива, а отрицательные - в конец
Как должен выглядеть код нового массива в VBA который переставляет...


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

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

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