数组元素移动

描述
试设计一个算法,将数组a中的元素a[0]至a[n-1]循环右移k位,并要求只用一个元素大小的附加存储,元素移动或交换次数为O(n)。
 
输入
先输入一个大于1且小于100的正整数n,再输入n个整数存到数组a中,最后输入一个小于n正整数k,
 
输出
循环移动k位后输出。
 
输入样例
5
2 6 15 39 5
3
 
输出样例
15
39
5
2

6


算法:

1、将整个数组置换(a[i]<=>a[n-1-i])

2、将前k个数置换

3、将后n-k个数置换


要点:


对于a[i],第一次交换后为a[n-1-i],成为后n-k个数,第二次交换后为a[k+i],向右移动(k+i)-i = k位;

对于a[n-1-i],第一次交换后为a[i],成为前k个数,第二次交换后为a[k-1-i],向右移动(n-1-(n-1-i))+(k-1-i+1)=k位;


#include <iostream>
#include <cstdio>
using namespace std;
//交换
void Swap(int *a, int *b)
{
    int temp = *a;
    *a = *b;
    *b = temp;
}
void Reverse(int *a, int *b)
{
    //地址比较
    while(a < b)
        Swap(a++, b--);
}
void Shift(int a[], int k, int n)
{
    Reverse(a, a+n-1);          //全部交换
    Reverse(a, a+k-1);          //前k个交换
    Reverse(a+k, a+n-1);        //剩下部分交换
}
int main()
{
    int a[100], n, k;
    scanf("%d", &n);

    for(int i = 0; i < n; i++)
        scanf("%d", &a[i]);
    scanf("%d", &k);

    Shift(a, k, n);

    for(int i = 0; i < n; i++)
        printf("%d%c", a[i], i != n-1 ? ' ':'\n');

    return 0;
}


### 回答1: VBA 二维数组元素可以使用Array.Copy或者Array.Move函数移动。Array.Copy可以将一个数组从一个特定的位置复制到另一个特定的位置,而Array.Move可以将一个数移动到另一个特定的位置。 ### 回答2: 在VBA,可以通过交换数组元素的方法来实现二维数组元素移动。 首先,我们需要定义一个二维数组,并给数组元素。例如,我们定义一个名为arr的二维数组,其包含3行3列,赋予一些初始: ```vba Dim arr(1 To 3, 1 To 3) As Integer arr(1, 1) = 1 arr(1, 2) = 2 arr(1, 3) = 3 arr(2, 1) = 4 arr(2, 2) = 5 arr(2, 3) = 6 arr(3, 1) = 7 arr(3, 2) = 8 arr(3, 3) = 9 ``` 如果我们想将第一行的元素向下移动一行,可以使用一个临时变量来交换相邻的两行元素: ```vba Dim temp As Integer For i = 1 To 3 temp = arr(1, i) arr(1, i) = arr(2, i) arr(2, i) = temp Next i ``` 现在,arr(1, 1)的变为4,arr(1, 2)的变为5,arr(1, 3)的变为6,arr(2, 1)的变为1,arr(2, 2)的变为2,arr(2, 3)的变为3。 同理,我们可以根据具体情况,使用类似的方法来实现数组元素的其他移动方式,如向左移动、向右移动、向上移动等。 需要注意的是,如果要交换的数组元素较多,可能需要使用嵌套的循环来实现。此外,还可以使用VBA的Array函数封装数组元素移动操作,以便在更复杂的场景使用。 ### 回答3: VBA的二维数组元素移动可以通过循环和临时变量来实现。下面是一个示例代码: ```vba Sub MoveArrayElement() Dim arr(1 To 3, 1 To 3) As Variant Dim i As Integer, j As Integer Dim temp As Variant ' 初始化二维数组 arr(1, 1) = 1 arr(1, 2) = 2 arr(1, 3) = 3 arr(2, 1) = 4 arr(2, 2) = 5 arr(2, 3) = 6 arr(3, 1) = 7 arr(3, 2) = 8 arr(3, 3) = 9 ' 输出始数组 For i = 1 To 3 For j = 1 To 3 Debug.Print arr(i, j) Next j Next i ' 将元素(1,1)的移动到(2,2) temp = arr(1, 1) arr(1, 1) = arr(2, 2) arr(2, 2) = temp ' 输出移动元素后的数组 For i = 1 To 3 For j = 1 To 3 Debug.Print arr(i, j) Next j Next i End Sub ``` 运行以上代码后,会首先输出始数组的元素,然后将元素(1,1)的移动到(2,2),最后输出移动元素后的数组。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值