Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 10.03.2016
Сообщений: 8

Переставить элементы массива местами

11.03.2016, 13:33. Показов 2204. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть идеи насчет третьего задания?
Миниатюры
Переставить элементы массива местами  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.03.2016, 13:33
Ответы с готовыми решениями:

Переставить местами элементы побочной диагонали матрицы
Помогите пожалуйста решить задачу: "Переставить местами элементы побочной диагонали матрицы, симметричные относительно её центра."....

Переставить элементы одномерного массива
Нужно переставить элементы одномерного массива следующим образом a(0), a(11), a(1), a(10), a(2), a(9), a(3), a(8). a(4), a(7), a(5), a(6). ...

Переставить элементы массива n в обратном порядке
Ввести одномерный массив n= {3, 5, 7, 9, -11, 13, 15} Переставить элементы массива n в обратном порядке и найти в нем произведение...

5
70 / 62 / 19
Регистрация: 03.05.2013
Сообщений: 397
11.03.2016, 13:44
Наверное, подразумевается по порядку a[0]-первый, a[11] -второй и т. д.
0
0 / 0 / 0
Регистрация: 10.03.2016
Сообщений: 8
11.03.2016, 13:46  [ТС]
мне кажется, тут есть какая то формула или что то такое чтоб он таким образом переставил...
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18033 / 7736 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
11.03.2016, 13:56
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

От краев до средины.
Думаю, примерно по такой "формуле":

Visual Basic
1
2
3
4
5
6
7
8
9
for i = 0 to 5
  for j = 0 to 1
    if j = 0 then
      idx = i
    else
      idx = 11 - i
    end if
  next
next
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
11.03.2016, 14:38
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

каримррр, создайте на форме кнопку
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Dim i&
  ReDim a(0 To 11)
  For i = LBound(a) To UBound(a)
    a(i) = i 'MonthName(i + 1, True)
  Next
  ReDim b(LBound(a) To UBound(a))
  On Error Resume Next
  For i = LBound(a) To UBound(a) Step 2
    b(i) = a(i \ 2)
    b(i + 1) = a(UBound(a) - i \ 2)
  Next
  Print Join(b)
End Sub
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
11.03.2016, 23:12
Есть идеи насчет третьего задания?
А то!
Запрещено создавать темы с бессмысленными названиями
Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
Запрещено создавать темы с множеством вопросов
Прежде чем задать вопрос, воспользуйтесь поиском - возможно, ответ на него уже был дан ранее.
Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.
Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены.
Хватит идей?!
Читай! соблюдай!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.03.2016, 23:12
Помогаю со студенческими работами здесь

Поменять местами 3 и 8 элементы массива
в Visual Basic нужно написать программки: 1.Поменять местами 3 и 8 элементы массива A(10) 2.Дан двумерный массив Z(6,8). Найти сумму...

Поменять местами 3 и 8 элементы массива
в Visual Basic нужно написать программки: 1.Поменять местами 3 и 8 элементы массива A(10) 2.Дан двумерный массив Z(6,8). Найти сумму...

Поменять местами элементы 3-й и 6-й строк массива
Добрый день, всем и каждому. Помогите с решением следующей задачки. Нужно Поменять местами элементы 3-й и 6-й строк. Результат...

Поменять местами наибольший и наименьший элементы массива
Даны действительные числа a1, a2, ..., an. Поменять местами наибольший и наименьший элементы Никак решить не могу,помогите,кто...

Найти максимальный и минимальный элементы массива D и поменять их местами
найти максимальный и минимальный элементы массива D и поменять их местами d(80) помогите плиз)


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru