Массив содержащий 10 случайных чисел выводится на экран все числа с четными индексами и отдельно с нечетными индексами.

@сергей55555 · Регистрация: 17.04.2011

Студворк — интернет-сервис помощи студентам

массив содержащимся 10 случайных чисел выводится на экран все числа с четными индексами и отдельно с нечетными индексами.

@YuraAAA · 06.05.2011, 15:27

Что же ты в универе делаешь?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Arr(1 To 10) As Single
Dim a As String, b As String, c As String
For i = 1 To 10
Arr(i) = Int(100 * Rnd - 50)
a = a & Arr(i) & " "
Select Case i
Case 1, 3, 5, 7, 9
    b = b & Arr(i) & " "
Case Else
    c = c & Arr(i) & " "
End Select
Next i
MsgBox a & Chr(13) & b & Chr(13) & c

@сергей55555 · 06.05.2011, 16:31 **[ТС]**

А МОЖНО КАК НИБУДЬ ЭТО ЖЕ НО С ОПЕРАТОРАМИ RANDOMIZE REDIM

@YuraAAA · 06.05.2011, 16:46

RANDOMIZE вставь перед For i = 1 To 10
REDIM - нахрена?
З.Ы. капс почини

@сергей55555 · 06.05.2011, 17:03 **[ТС]**

что то я вообще не въехал в задании написано же что чет.индексы и нечет. индексы надо как то отдельно.

@YuraAAA · 06.05.2011, 18:08

Visual Basic
1
2
3
4
5
6
Select Case i 'получаем величину индекса
Case 1, 3, 5, 7, 9 'Если он нечётный то управление передаётся_
    b = b & Arr(i) & " " '_сюда. В текстовую переменную b собираем нечётные индексы
Case Else 'иначе
    c = c & Arr(i) & " " 'толкаем в c c
End Select

@сергей55555 · 19.05.2011, 18:49 **[ТС]**

неправильно!Училка психанула и говорит что ей нужно четные индексы в одно окошко а нечетные индексы в другое(типа text ей нужен) а сам что то тупанул не получается.

@_Лёша_ · 19.05.2011, 19:15

Сообщение от сергей55555

неправильно!Училка психанула и говорит что ей нужно четные индексы в одно окошко а нечетные индексы в другое(типа text ей нужен) а сам что то тупанул не получается.

1.Конечно, это для тебя наверное задача сложная вывести значения переменных b и c в 2 текстбокса

Не по теме:

2.YuraAAA все правильно объяснил.
3.В ТС про вывод результата ничего не было оговорено.
4. Человек помог - скажи спасибо, он делает тебе большое одолжение, тратя на тебя двоечника время. Он тебе аж построчно все разжевал :D

@сергей55555 · 19.05.2011, 19:20 **[ТС]**

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

@SuPeR XaKer · 19.05.2011, 19:32

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

Ни чё что эти числа записали в 2 разные строки (b и с)?
Text1.Text = b
Text2.Text = c

Училка психанула и говорит что ей нужно четные индексы

Не по теме:

если она психованая то думаю зря её приняли на работу где людей учить нужно.

@сергей55555 · 20.05.2011, 09:34 **[ТС]**

спасибо конечно что уделили время ,но дело в том что нужны индексы а не индекс то есть надо не по одному индексу в каждое окошко а разделить массив из 10 чисел по четности и не четности.ЗАранее спасибо!

@SuPeR XaKer · 20.05.2011, 11:05

парень либо твоя училка не догоняет либо ты.ты не знаешь что такое элемент с чётным номером чтоли?Их и выводят в программе.Осуществляется проверка на чёность и нечётность индекса а не самого элемента массива.
Ну а если вы этого не понимаете то сомневаюсь что YuraAAA или кто-либо другой сможет вам это объяснить.

выводится на экран все числа с четными индексами и отдельно с нечетными индексами

@сергей55555 · 20.05.2011, 13:24 **[ТС]**

Ладно,на этом спасибо!

@SuPeR XaKer · 20.05.2011, 13:27

надеюсь теперь ты сможешь объяснить что есть чётный и нечётный индекс элемента массива,а что есть чётный и нечётный элемент массива.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31

	Массив содержащий 10 случайных чисел выводится на экран все числа с четными индексами и отдельно с нечетными индексами. 06.05.2011, 13:04. Показов 5468. Ответов 13 Метки нет (Все метки) массив содержащимся 10 случайных чисел выводится на экран все числа с четными индексами и отдельно с нечетными индексами. 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	06.05.2011, 16:31 [ТС]
	А МОЖНО КАК НИБУДЬ ЭТО ЖЕ НО С ОПЕРАТОРАМИ RANDOMIZE REDIM 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	06.05.2011, 16:46
	RANDOMIZE вставь перед For i = 1 To 10 REDIM - нахрена? З.Ы. капс почини 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	06.05.2011, 17:03 [ТС]
	что то я вообще не въехал в задании написано же что чет.индексы и нечет. индексы надо как то отдельно. 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	19.05.2011, 18:49 [ТС]
	неправильно!Училка психанула и говорит что ей нужно четные индексы в одно окошко а нечетные индексы в другое(типа text ей нужен) а сам что то тупанул не получается. 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	19.05.2011, 19:20 [ТС]
	я могу вывести, но не пойму как разделить эту хрень на четные числа и нечетные числа по разным местамю 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	20.05.2011, 09:34 [ТС]
	спасибо конечно что уделили время ,но дело в том что нужны индексы а не индекс то есть надо не по одному индексу в каждое окошко а разделить массив из 10 чисел по четности и не четности.ЗАранее спасибо! 0

@сергей55555 1 / 1 / 0 Регистрация: 17.04.2011 Сообщений: 31
	20.05.2011, 13:24 [ТС]
	Ладно,на этом спасибо! 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	20.05.2011, 13:27
	надеюсь теперь ты сможешь объяснить что есть чётный и нечётный индекс элемента массива,а что есть чётный и нечётный элемент массива. 1

Опции темы