您现在的位置:小学生自学网>> 信息>> pascal语言>> 基础教程

pascal第十三讲:一维数组

作者: 来源: 发布时间:2009年05月12日 点击数:
 

一维数组
〖语法分析〗

  在编程时用到一批类型相同的数据,为了处理上的方便,通常以数组的形式来定义这一批数据。

  1、数组的定义格式:
var
   a:array [1..10] of integer;
   其中:a是这一批数据的名称,称为数组名;array、of是定义数组的保留字;中括号中的数字是数据编号的下限和上限,同时也说明了数据的个数(上限-下限);最后一个是数据的基类型,如integer,char,real,boolean。

   2、数组元素的输入:
数组名代表的并不是一个变量,而是一批变量,因而,不能直接整个数组读入,而是要逐个数组元素读入,通常用循环结构来完成这一功能。下面是几个常用输入数组元素的例子:
for i:=1 to 10 do read(a[i]);
   {————从键盘读入数组元素的值;最常用的方法}
for i:=1 to 10 do a[i]:=i;
   {————数组元素a[1]到a[10]的值分别为1到10;数据赋初值}
for i:=1 to 10 do a[i]:=0;
   {————数组元素清0;最常用的数据初始化的方法}
for i:=1 to 10 do a[i]:=random(100);
   {————随机产生10个100以内的数,赋给各数组元素}

   3、数组元素的输出:
   和数组元素的输入相同,数组元素的输出也不能由一个write语句直接完成。同样要逐个数组元素输出。通常也用循环结构来完成这一功能:
for i:=1 to 10 do write(a[i],' ');{————数组元素之间用空格分隔}
writeln;

   4、数组的应用:
   例1:从键盘输入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.


  例2:从键盘输入10个数,将这10个数从大到小的顺序输出。

program p2;
Var n:array[1..10] of integer;
I,j,t:integer;
Begin
  For I:=1 to 10 do Readln(n[I]);
  For I:=1 to 9 do begin
 For j:=I+1 to 10 do begin
   If n[I]<n[j] then begin
     T:=n[I];
     N[I]:=n[j];
     N[j]:=t;
   End;
 End;
  End;
  For I:=1 to 10 do begin
 Write(n[I]:5);
  End;
End.

  例3:用筛法求100以内的素数(质数)。

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

program p3;
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. 
       
练习题:
 1、随机产生20个100以内的数,输出;按从小到大的顺序排序,输出。
 2、有一组数,其排列形式如下:11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,
且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它们的起始位置。