Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 25.03.2014
Сообщений: 8
1

Переставить первые три и последние и последние три элемента местами, сохраняя их следования

25.03.2014, 12:48. Показов 1568. Ответов 1
Метки нет (Все метки)

Переставить первые три и последние и последние три элемента местами, сохраняя их следования/ Visual Basic
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2014, 12:48
Ответы с готовыми решениями:

Переставить первые три и последние три элемента местами сохраняя порядок их следования
PascalABC

Переставить первые три и последние три элемента одномерного массива местами, сохраняя порядок их следования
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка....

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

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

1
15037 / 6364 / 1726
Регистрация: 24.09.2011
Сообщений: 9,976
25.03.2014, 23:16 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Работает с массивами любого типа
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
Sub Swap3(x)
Dim i&, j&, t
i = LBound(x)
j = UBound(x) - 2
For i = i To i + 2
  t = x(i)
  x(i) = x(j)
  x(j) = t
  j = j + 1
Next
End Sub
 
Sub test()
Dim i&
ReDim a(-1 To 10) As Integer
For i = LBound(a) To UBound(a): a(i) = i: Debug.Print a(i);: Next: Debug.Print
Swap3 a
For i = LBound(a) To UBound(a): Debug.Print a(i);: Next: Debug.Print
ReDim s(1 To 12) As String
For i = 1 To 12: s(i) = MonthName(i): Next
Swap3 s
For i = LBound(s) To UBound(s): Debug.Print s(i);: Next: Debug.Print
End Sub
Результат
Код
-1  0  1  2  3  4  5  6  7  8  9  10 
 8  9  10  2  3  4  5  6  7 -1  0  1 
ОктябрьНоябрьДекабрьАпрельМайИюньИюльАвгустСентябрьЯнварьФевральМарт
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.03.2014, 23:16

Дан массив. Переставить местами первые три и последние три элемента, сохранив порядок следования
Дан массив. Переставить местами первые три и последние три элемента, сохранив порядок следования

Переставить первые три и последние три элемента, сохранив порядок их следования
Дан одномерный массив из 20 елементов.Переставить первые три и последние три элемента ,сохранив...

Переставить первые три и последние три элемента массива, сохранив порядок их следования
Здравствуйте 11.205. Дан одномерный массив из 20 элементов. Переставить первые три и последние...

Переставить первые три и последние три элемента массива, сохранив порядок их следования
Дан одномерный массив из 20 элементов. Переставить первые три и последние три элемента, сохранив...


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

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

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