数组移动与插入(十七).pptVIP

数组元素的移动与插入 * * 一、数组元素的移动： 在数组（A）中，存放了一系列的数据（A[1]~A[n]），要把后面（前面）的K个数据移动到前面（后面）去，称为数组元素的移动。 数组A: A[1] A[n] A[m] A[1] A[n] A[m] 例1、将A（10个数）数组中从第m（7）个元素起一直到最后的元素平移到数组的开头，并把A[1]到A[m-1]中的元素向后顺移。 解题步骤： 1、输入N（10）个数： 用循环 2、把最后一个数放入变量K中， 3、把A[1]到A[n-1]中的数，按照从后到前的方式移动到A[2]到A[n]中：A[n-1]到A[n],A[n-2]到A[n-1]…… 4、把K中的值放入A[1]中。 第2到4步完成了A[n]到A[1]的移动，重复它们N-M+1次，就完成了本题的要求。 程序： VAR A:ARRAY[1..10] OF INTEGER; I,J,M,K:INTEGER; BEGIN FOR I:=1 TO 10 DO READ(A[I]); READLN; FOR J:=1 TO 4 DO BEGIN K:=A[10]; FOR I:=9 DOWNTO 1 DO A[I+1]:=A[I]; A[1]:=K; END; FOR I:=1 TO 10 DO WRITE(A[I]:5); END. 2、插入数组元素 思路：在数组的某个位置插入一个数据。首先要把该位置以后的数据后移一个位置，空出该位置来，再把该数放入该位置。 例2、将一个数插入到有序的数列中，要求该数列仍然有序。 步骤: 1 、输入一个有序数列。 2、查找该数要插入的位置J。 3、移动从J到N上的所有数据至J+1到N+1上。 4、插入数据到空出来的第J个位置上。 Var A:array[1..11] of integer; I,J,X:integer; Begin for i:=1 to 10 do read(a[i]); readln(x); J:=1; while (xa[j]) and (j=10) do j:=j+1; for i:=10 downto j do a[i+1]:=a[i]; a[j]:=x; for I:=1 to 11 do write(a[i]:5); writeln; End. 作业： P121 6,7