FREE PASCAL 疑问，大家帮帮忙

第七章 函数和过程

8.1 过程
8.2 函数

8.3 全局变量和局部变量

8.4 值参数和变量参数

练习与作业

8.1 过程

1.过程的定义

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

2．过程的调用

过程名(实在参数表);

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

program gcd1;
const maxn=100;

var n,i,gcd:integer;
a:array[1..maxn] of integer;
procedure enter;
begin
write('n=(<100)');readln(n);
for i:=1 to n do
repeat
write('a[',i,']=');readln(a[i]);
until a[i]>0;
end;

procedure find_gcd(x,y:integer);{定义过程}
var r:integer;
begin
r:=x mod y;
while r<>0 do

begin x:=y;y:=r;r:=x mod y; end
gcd:=y;
end;

procedure print;
begin
writeln('GCD=' ,gcd);
end;
begin
enter;
gcd:=a[1];
for i:=2 to n do
find_gcd(gcd,a[i])