Pascal数组复习资料.ppt

数 组(一);想一想：下列数组这定义对不对，如不对，为什么？;一维数组的基本操作：;;例6-3 对于数组a，输入一个测试数据x，如果x存于数组a，则把x元素删除；否则将x插在相应的位置，要求数组仍然有序（假设数组递增);Program ex6-3(input,output); const n=100; var a:array[1..n+1] of integer; {如果x插入，数组x将增加一个数据} x:integer; I,j:integer; begin for I:=1 to n do read(a[I]); read(x); a[n+1]:=x; {将a[n+1]设为x，可以作为后面比较的结束标志} I:=1 ; while a[I]x do I:=I+1; {循环结束时，I即为需要插入或删除的位置} if I=n+1 then write(‘Not found and no place to insert.’) {x大于数组a中所有元素,无需处理} else if a[I]=x then begin {找到x，删除} writeln(‘found and deleted. Result:’); for j:=I to n-1 do a[j]:=a[j+1]; {数据前移} for j:=1 to n-1 do write(a[j]:3); end else begin {没找到x，插入} writeln(‘not found and insert. Rusult:’); for j:=n+1 downto I+1 do a[j]:=a[j-1]; {数据后移} a[I]:=x; for j:=1 to n+1 do write(a[j]:3); end; writeln; end. ;4、数组元素的排序;程序如下：;冒泡法程序：;应用：;例6-6 圆盘找数，如图所示：找出4个相邻的数，使其相加之各最大和最小的是哪4个数？并给出它们的起始位置。;Program ex6-6(input,output); var a:array[0..19] of integer; s,max,min:integer; smax,smin:integer; {smax,smin记录最大和以及最小和的起始位置} I:integer; begin for I:=0 to 19 do read(a[I]); max:=-maxint; min:=maxint; {设置最大值和最小值的初始值} for I:=0 to 19 do begin s:=a[I]+a[(I+1) mod 20]+a[(I+2) mod 20]+a[(I+3) mod 20]; if smax then begin max:=s;smax:=I;end; if smin then begin min:=s; smin:=I; end; end; write(‘max:’,a[smax]:2);for I:=1 to 3 do write(‘+’,a[smax+I] mod 20]:2); write(‘=‘,max); writeln(‘start from’,smax+1); write(‘min