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

Требуется расположить отрицательные элементы последовательности в порядке убывания

27.04.2013, 13:55. Просмотров 653. Ответов 2
Метки нет (Все метки)

Дана последовательность х1 . х2 . ... . х50 . Требуется расположить отрицательные элементы последовательности в порядке убывания.
Заранее спасибо !!!)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2013, 13:55
Ответы с готовыми решениями:

Элементы массива, превышающие заданную величину, расположить в порядке убывания их модулей
Помогите написать код для кнопки CommandButton1, которая будет решать данную задачу с одномерным...

Расположить четные элементы последовательности в порядке возрастания
Дана случайная (0<x<1) последовательность х1,х2,.,х25. Требуется расположить четные элементы...

исправьте ошибку в программе на массивы:В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы...
В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы....

Расположить слова в порядке убывания их длины в предложении
всем добрый вечер!! Уважаемые форумчане,помогите пожалуйста решить,а точнее дорешать...

Расположить строки матрицы в порядке убывания сумм значений их элементов
Превратить произвольную матрицу XN1 (m * n), расположив ее строки в порядке убывания сумм значений...

2
Junix0807
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 7
30.04.2013, 09:37  [ТС] 2
ап.
0
Аксима
5848 / 1268 / 189
Регистрация: 12.12.2012
Сообщений: 991
30.04.2013, 11:59 3
Здравствуйте, Junix0807,
Посмотрите, быть может, такое решение вам подойдет.

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
30
31
32
33
34
35
36
37
Sub SortNegElements()
   Dim x(49) As Double, neg(49) As Double, k(49) As Double
   Dim i As Byte, cNeg As Byte, p As Byte, t As Double
   'Генерируем последовательность x1, x2, .., x50, а также
   'массив отрицательных чисел + массив номеров их позиций.
   For i = 0 To 49
      x(i) = Int(Rnd * 10000) / 100 - 50
      If x(i) < 0 Then
         neg(cNeg) = x(i)
         k(cNeg) = i
         cNeg = cNeg + 1
      End If
   Next i
   'Выводим исходную последовательность на лист.
   Cells(1) = "Исходная последовательность:"
   Cells(2, 1).Resize(50, 1) = Application.Transpose(x)
   'Сортируем массив отрицательных чисел методом пузырка.
   Do
      p = 0
      For i = 1 To cNeg - 1
         If neg(i) > neg(i - 1) Then
            t = neg(i)
            neg(i) = neg(i - 1)
            neg(i - 1) = t
            p = p + 1
         End If
      Next i
   Loop While p > 0
   'Записываем отрицательные элементы в исходную
   'последовательность в отсортированном порядке.
   For i = 0 To cNeg - 1
      x(k(i)) = neg(i)
   Next i
   'Выводим полученную последовательность на лист.
   Cells(5) = "Полученная последовательность:"
   Cells(2, 5).Resize(50, 1) = Application.Transpose(x)
End Sub
С уважением,
Aksima
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2013, 11:59

В массиве найти номера локальных максимумов и расположить их в порядке убывания
В массиве a1, a2, a3, … an найти номера локальных максимумов (ai-1&lt; ai,&gt; ai+1) и расположить их в...

Расположить ненулевые элементы последовательности по убыванию
Дана последовательность а1, а2, а100. Расположить ненулевые элементы последовательности по...

Элементы главной диагонали расставить в порядке убывания, и рассчитать скалярное произведение диагоналей
элементы главной диагонали расставить в порядке убывания и расчитать, скалярное произведение...


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

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

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