一维数组习题

一维数组

【例1】输入50个数，要求程序按输入时的逆序把这50个数打印出来；也就是说，请你按输入相反顺序打印这50个数

分析：我们可定义一个数组a用以存放输入的50个数，然后将数组a内容逆序输出，源程序如下

program ex5_1;

type

arr=array[1..50]of integer; {说明一数组类型arr}

var

a:arr;

i:integer;

begin

writeln('Enter 50 integer:');

for i:=1 to 50 do read(a[i]);{从键盘上输入50个整数}

readln;

for i:=50 downto 1 do {逆序输出这50个数}

write(a[i]:10);

end.

【例2】输入十个正整数，把这十个数按由大到小的顺序排列（将数据按一定顺序排列称为排序，排序的算法有很多，其中选择排序中的―简单选择排序‖是一种较简单的方法）

分析：要把十个数按从大到小顺序排列，则排完后，第一个数最大，第二个数次大，……；因此，我们第一步可将第一个数与其后的各个数依次比较，若发现，比它大的，则与之交换，比较结束后，则第一个数已是最大的数。同理，第二步，将第二个数与其后各个数再依次比较，又可得出次大的数。如此方法进行比较，最后一次，将第九个数与第十个数比较，以决定次小的数。于是十个数的顺序排列结束。

例如下面对5个进行排序，这个五个数分别为829105。按选择排序方法，过程如下：

初始数据：82910 5

第一轮排序：82910 5

92810 5

10289 5

10289 5

第二轮排序：10829 5

10928 5

10928 5

第三轮排序：10982 5

10982 5

第四轮排序：10985 2

对于十个数，则排序要进行9次。源程序如下：

program ex5_2;

var

a:array[1..10]of integer;

i,j,t:integer;

begin

writeln('Input 10 integers:');

for i:=1 to 10 do read(a[i]);｛读入10个初始数据｝

readln;

for i:=1 to 9 do｛进行9次排序｝

begin

for j:=i+1 to 10 do｛将第i个数与其后所有数比较｝

if a[i]

begin

t:=a[i];a[i]:=a[j];a[j]:=t;

end;

write(a[i]:5);

end;

end.

【例3】从键盘输入10个数，将这10个数逆序输入，并求这10个数的和，输出这个和。

program p1;

var

a:array [1..10] of integer;

i,s:integer;

begin

for i:=1 to 10 do read(a[i]);

for i:=10 downto 1 do write(a[i],' ');

writeln;

s:=0;

for i:=1 to 10 do s:=s+a[i];

writeln('s=',s);

end.

【例4】用筛法求100以内的素数（质数）。

分析：素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。

program p2;

var

a:array [1..100] of integer;

i,j,k:integer;

begin

for i:=1 to 100 do a[i]:=i;

a[1]:=0;i:=2;

while i<=100 do

begin

k:=i;

while k<=100 do

begin

k:=k+i;

a[k]:=0;

end;

{————上面将所有a[i]的倍数清0}

i:=i+1;

while a[i]=0 do i:=i+1;

{————查找接下来的第一个非0数}

end;

for i:=1 to 100 do if a[i]<>0 then write(a[i],' ');

end.

【例5】输入50个学生的某门课程的成绩，打印出低于平均分的同学号数与成绩。

【问题分析】

在解决这个问题时，虽然可以通过读入一个数就累加一个数的办法来求学生的总分，进而求出平均分。但因为只有读入最后一个学生的分数以后才能求得平均分，且要打印出低于平均分的同学，故必须把50 个学生的成绩都保留下来，然后逐个和平均分比较，把高于平均分的成绩打印出来。如果，用简单变量a1，a2,…，a50 存放这些数据，可想而知程序要很长且繁。要想如数学中使用下标变量ai形式表示这50 个数，则可以引入下标变量a[i]。这样问题的程序可写为：

tot:=0; {tot表示总分}

for i:=1 to 50 do ｛循环读入每一个学生的成绩，并累加它到总分｝

begin

read(a[i]);

tot:=tot+a[i];

end;

ave:=tot/50; ｛计算平均分｝

for i:=1 to 50 do

if a[i]

而要在程序中使用下标变量，则必须先说明这些下标变量的整体―数组，即数组是若干个同名（如上

面的下标变量的名字都为a）下标变量的集合。

【例6】将a数组中第一个元素移到最后数组末尾,其余数据依次往前平移一个位置。

【问题分析】

为完成题目所要求的操作，其算法应该包括以下几个主要步骤：

①把第一个元素的值取出入在一个临时单元temp中；