Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
VisualBasic
(Модератор:
Naghual
) > Тема:
четные элементы массива
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: четные элементы массива (Прочитано 6087 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Герасим
Интересующийся
Offline
четные элементы массива
«
:
22-05-2010 20:31 »
Народ,подскажите как расположить в порядке возрастания четные элементы массива.
Записан
RXL
Технический
Администратор
Offline
Пол:
Re: четные элементы массива
«
Ответ #1 :
22-05-2010 22:30 »
Чувак, секрета никакого нет: берешь и размещаешь. Надеюсь, я помог в твоей задаче. Лол, чувак!
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Герасим
Интересующийся
Offline
Re: четные элементы массива
«
Ответ #2 :
23-05-2010 07:31 »
несовсем....
вот код:
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
Пол:
Re: четные элементы массива
«
Ответ #3 :
23-05-2010 19:28 »
Расскажи нам, как работает эта программа и что тут для чего.
Записан
... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
VisualBasic
(Модератор:
Naghual
) > Тема:
четные элементы массива
Загружается...