Массив: Осуществить сдвиг элементов массива вправо на K позиций

@vlaste · Регистрация: 29.04.2014

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

Дан массив размера N и целое число K (1≤K<N). Осуществить сдвиг элементов массива вправо на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, ..., AN−K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0

Visual Basic

Sub zadacha()
Dim a(1 To 10) As Integer
Dim N, i, k As Integer
 
N = InputBox("Введите размер массива")
k = InputBox("Введите число")
For i = 1 To N
a(i) = InputBox(i, "число")
Next i
 
For i = N To 1 Step -1
a(i) = a(i - k)
Next i
 
For i = 1 To k
a(i) = 0
Next i
For i = 1 To N
MsgBox a(i)
Next
End Sub

Написал программу, выдает ошибку Run-time error'9' subscript out of range. Подскажите как исправить

Аксима · 24.11.2015, 20:05

Здравствуйте, vlaste,

Давайте посмотрим, что вы делаете во втором цикле. Вы выполняете ряд присваиваний:

A_n=A_n-k
A_n-1=A_n-k-1
A_n-2=A_n-k-2
...
A₃ = A_3-k
A₂ = A_2-k
A₁ = A_1-k

Представим, что n = 7, k = 2. Тогда эти присваивания будут выглядеть так:

A₇=A₅
A₆=A₄
A₅=A₃
...
A₃ = A₁
A₂ = A₀
A₁ = A_-1

Чувствуете, в чем ошибка? Вы пытаетесь присвоить элементу массива A₂ значение несуществующего элемента массива A₀, индекс которого выходит за заданные вами пределы (от 1 до 10). О чем компьютер вам и сообщает (а вы ему почему-то не верите).

Последним корректным присваиванием является присваивание A₃ = A₁. Но 3 = k + 1. Следовательно, необходимо остановиться на присвоении значения элементу массива с индексом k + 1. Т. е. строчку...

Visual Basic

1	For i = N To 1 Step -1

..заменяем на...

Visual Basic

1	For i = N To k + 1 Step -1

...и будет вам счастье!

С уважением,

Аксима

@Казанский · 25.11.2015, 01:14

vlaste, с использованием WinAPI. Вывод в окно Immediate.

Visual Basic

Option Explicit
 
Declare Sub RtlMoveMemory Lib "Kernel32" (dst As Any, src As Any, ByVal size As Long)
Declare Sub RtlZeroMemory Lib "Kernel32" (dst As Any, ByVal size As Long)
 
Sub zadacha()
Dim N As Integer, i As Integer, k As Integer
Randomize
N = InputBox("Введите размер массива", , 10 + Int(Rnd * 10))
k = InputBox("Введите число", , 1 + Int(Rnd * N))
If k < 1 Or k >= N Then
  MsgBox "Неверный ввод", vbExclamation
  Exit Sub
End If
ReDim a(1 To N) As Integer
For i = 1 To N
  a(i) = InputBox(i, "число", Int(Rnd * 100))
  Debug.Print Tab(i * 4 - 3); a(i);
Next i
Debug.Print
  'перемещение
RtlMoveMemory a(k + 1), a(1), 2 * (N - k)
  'обнуление
RtlZeroMemory a(1), 2 * k
 
For i = 1 To N
  Debug.Print Tab(i * 4 - 3); a(i);
Next i
Debug.Print
End Sub

@vlaste · 25.11.2015, 16:04 **[ТС]**

Когда поменял,как сказали, выдает в ответе одни 0

Visual Basic

Sub zadacha()
Dim a(1 To 10) As Integer
Dim N, i, k As Integer
 
N = InputBox("Введите размер массива")
k = InputBox("Введите число")
For i = 1 To N
a(i) = InputBox(i, "число")
Next i
 
For i = N To k + 1 Step -1
a(i) = a(i - k)
Next i
 
For i = 1 To k
a(i) = 0
Next i
For i = 1 To N
MsgBox a(i)
Next
End Sub

Добавлено через 11 минут
А все понял, у меня и так должны 0 вывести, спасибо Аксима

	25.11.2015, 16:04

Массив: Осуществить сдвиг элементов массива вправо на K позиций

Решение