Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: четные элементы массива  (Прочитано 6085 раз)
0 Пользователей и 2 Гостей смотрят эту тему.
Герасим
Интересующийся

ru
Offline Offline

« : 22-05-2010 20:31 » 

Народ,подскажите как расположить в порядке возрастания четные элементы массива.
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 22-05-2010 22:30 » 

Чувак, секрета никакого нет: берешь и размещаешь. Надеюсь, я помог в твоей задаче. Лол, чувак!
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Герасим
Интересующийся

ru
Offline Offline

« Ответ #2 : 23-05-2010 07:31 » new

несовсем....
вот код:
Private Sub Command1_Click()
Dim N, a(), i, j, mn, num_mn, tmp
Dim sp As String
N = InputBox("Введите размер массива")
ReDim a(N)

For i = 1 To N
a(i) = Int(Rnd * 100 - 50)
Picture1.Print "Исходный массив"
Picture1.Print ; a(i)
Next i
h = Val(InputBox("Введите число", , h))
For i = 1 To N
If a(i) > h Then
Picture2.Print ; a(i)
Picture2.Print ; "-"
End If
Next i
 
For i = 1 To N
sp = ""
 If a(i) > h Then
    mn = a(i): num_mn = i: sp = "              "
    For j = i To N Step 2
      If a(j) > h And mn > a(j) Then
         mn = a(j): num_mn = j
      End If
    Next j
    If num_mn > i Then
       tmp = a(num_mn): a(num_mn) = a(i): a(i) = tmp
    End If
  End If
 Picture3.Print ; sp; a(i)
Next i
End Sub

но тут нада куда- то step 2 чтобы выводил только четные....а куда незнаю....
Записан
RXL
Технический
Администратор

Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 23-05-2010 19:28 » 

Расскажи нам, как работает эта программа и что тут для чего.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines