合肥奥数网讯：青少年信息学竞赛Pascal语言：函数和过程。

　　过程

　　1.过程的定义

　　procedure过程名(形式参数:参数说明);{也可以不带参数}

　　var

　　begin

　　...

　　end;

　　2．过程的调用

　　过程名(实在参数表);

　　例1:求n个自然数的最大公约数;

　　programgcd1;

　　constmaxn=100;

　　varn,i,gcd:integer;

　　a:array[1..maxn]ofinteger;

　　procedureenter;

　　begin

　　write('n=(<100)');readln(n);

　　fori:=1tondo

　　repeat

　　write('a[',i,']=');readln(a[i]);

　　untila[i]>0;

　　end;

　　procedurefind_gcd(x,y:integer);{定义过程}

　　varr:integer;

　　begin

　　r:=xmody;

　　whiler<>0do

　　beginx:=y;y:=r;r:=xmody;end

　　gcd:=y;

　　end;

　　procedureprint;

　　begin

　　writeln('GCD=',gcd);

　　end;

　　begin

　　enter;

　　gcd:=a[1];

　　fori:=2tondo

　　find_gcd(gcd,a[i]);

　　print;

　　end.

下一页阅读：函数