Вставка элементов в массив

@Dion-one · Регистрация: 09.06.2010

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

Подскажите пожалуйста, как вставлять в массив элементы, т.е я вывел массив 3 1 2 , и после цифры один я должен вставить 3, что бы получилось 3 1 3 2
Сама задача вот такая:
Дано натуральное число N. Подсчитать колличество цифр данного числа. Вставить в одномерный заданный массив полученную цифру после минимального элемента.

Подскажите пожалуйста!

Visual Basic

Option Explicit
 
Sub Nachalo()
Dim intKol3 As Integer
Dim intKol2 As Integer
Dim intIndex As Integer
Dim strArray As String
Dim intMin As Integer
Dim strN As String
Dim intI As Integer
Dim intKol As Integer
Dim intRol() As Integer
strN = InputBox("Введите натуральное число N", "Ввод числа")
intKol2 = Len(strN)
MsgBox ("Введено " + CStr(intKol2) + " цифр(ы)")
intKol = InputBox("Сколько эллементов в массив будем вводить?")
ReDim intRol(1 To intKol)
For intI = 1 To intKol
 intRol(intI) = InputBox("Введите " + CStr(intI) + " элемент")
Next
intIndex = intRol(1)
For intI = 1 To intKol
  strArray = strArray & intRol(intI) & Space(1)
 If intRol(intI) < intIndex Then intIndex = intI
Next
intMin = intRol(intIndex)
MsgBox (strArray + Chr(13) + Chr(10) + "Минимальный элемент = " + CStr(intMin) + Chr(13) + Chr(10) + "Его индекс= " + CStr(intIndex))
ReDim Preserve intRol(1 To (intKol + 1))
For intI = intIndex To (intKol + 1)
[B]intRol(intI) = intRol(intI+1)[/B] 'вот это вот я типа сместил его на единицу вправо))) Ну эт не правильно =) 
intRol(intIndex + 1) = intKol2
Next
 
strArray = ""
For intI = 1 To intKol + 1
 strArray = strArray & intRol(intI) & Space(1)
Next
 MsgBox (strArray)
End Sub

Я как понял его нужно просто сместить впра на один индекс)) ТОк чет сделать не получаеться!) Помогите пожалуйста!

Добавлено через 3 часа 11 минут
Ну помогите кто нибудь! =)

@аналитика · 29.09.2010, 21:30

Visual Basic

   ReDim Preserve intRol(1 To UBound(intRol) + 1)
   
   For i = UBound(intRol) To intIndex + 2 Step -1
      intRol(i) = intRol(i - 1)
   Next i
   intRol(intIndex + 1) = intKol2

@Dion-one · 29.09.2010, 22:05 **[ТС]**

Блин спасибо =)
а я вот только что вот так сделал))

Visual Basic

Option Explicit
 
Sub Nachalo()
Dim intKol3 As Integer
Dim intKol2 As Integer
Dim intIndex As Integer
Dim strArray As String
Dim intMin As Integer
Dim strN As String
Dim intI As Integer
Dim intJ As Integer
Dim intKol As Integer
Dim intRol() As Integer
Dim intRol2() As Integer
strN = InputBox("Введите натуральное число N", "Ввод числа")
intKol2 = Len(strN)
MsgBox ("Введено " + CStr(intKol2) + " цифр(ы)")
intKol = InputBox("Сколько эллементов в массив будем вводить?")
ReDim intRol(1 To intKol)
For intI = 1 To intKol
 intRol(intI) = InputBox("Введите " + CStr(intI) + " элемент")
Next
intIndex = intRol(1)
For intI = 1 To intKol
  strArray = strArray & intRol(intI) & Space(1)
 If intRol(intI) < intIndex Then intIndex = intI
Next
intMin = intRol(intIndex)
MsgBox (strArray + Chr(13) + Chr(10) + "Минимальный элемент = " + CStr(intMin) + Chr(13) + Chr(10) + "Его индекс= " + CStr(intIndex))
ReDim Preserve intRol(1 To (intKol + 1))
ReDim intRol2(1 To intKol)
intJ = 0
For intI = intIndex + 1 To (intKol)
intJ = intJ + 1
intRol2(intJ) = intRol(intI)
Next
intRol(intIndex + 1) = intKol2
intJ = 0
For intI = intIndex + 2 To (intKol + 1)
intJ = intJ + 1
intRol(intI) = intRol2(intJ)
Next
strArray = ""
For intI = 1 To intKol + 1
 strArray = strArray & intRol(intI) & Space(1)
Next
 MsgBox (strArray)
End Sub

Но ваш способ проще! =) Благодарю ещо раз =)

Добавлено через 4 минуты
А можно пояснить смысл вами написаннго?) Буду весьма признатален!

Добавлено через 23 минуты

Сообщение от аналитика

Visual Basic

   ReDim Preserve intRol(1 To UBound(intRol) + 1) 'Устнавливаем массив на один элементи больше
   
   For i = UBound(intRol) To intIndex + 2 Step -1 'Начиная с конца идем обратно
      intRol(i) = intRol(i - 1) ' Идет присваивание =)
   Next i
   intRol(intIndex + 1) = intKol2 'Ставим перед минимальным кол-во цифр

Разобрался =)

@аналитика · 29.09.2010, 22:12

А можно пояснить смысл вами написаннго?) Буду весьма признатален!

алгоритм следующий:
расширяем массив +1
присваиваем (с последнего до минимального) значению массива предыдущее значение (получается сдвиг)
остается "шлейф" от сдвига, на его место нашу новую циферку и "кладем"

@Dion-one · 29.09.2010, 22:18 **[ТС]**

аналитика, Спасибо огромное

)

@аналитика здесь больше нет... 3374 / 1672 / 184 Регистрация: 03.02.2010 Сообщений: 1,219
	29.09.2010, 22:12	4
	А можно пояснить смысл вами написаннго?) Буду весьма признатален! алгоритм следующий: расширяем массив +1 присваиваем (с последнего до минимального) значению массива предыдущее значение (получается сдвиг) остается "шлейф" от сдвига, на его место нашу новую циферку и "кладем" Изображения 1

@Dion-one 1 / 1 / 0 Регистрация: 09.06.2010 Сообщений: 11
	29.09.2010, 22:18 [ТС]	5
	аналитика, Спасибо огромное ) 0