Freepascal高级培训摘要.ppt

函数与过程
作用:
每一个函数或过程都可以看做是主程序的一个子程序。能将复杂的问题分解成更小更简单的问题。
区别:
函数名能返回数值。
如 sqr(9)=81; copy(‘abc’,1,2)=‘ab’
过程名不能返回数值。
如 inc(x) : x:=x+1;
insert(s1,s,n): 改变字符串s。
delete(s,n,m); 改变字符串s。
定义新函数:function
格式:function 函数名(形式参数):函数类型
var
变量说明部分
begin
例:输入两个数,求出其中较小的数。
Function xiao(x,y:integer):integer;
begin
if x>y then xiao:=y else xiao:=x;
end;
定义新函数:function
格式:function 函数名(形式参数):函数类型
var
变量说明部分
begin
例:判断某个自然数是不是质数。
Function zhishu(n: integer): boolean;
Var i,x:integer;
begin
For i:=1 to n do if n mod i =0 then inc(x);
If x=2 then zhishu;
end;
函数的调用
格式:函数名(实在参数表)
例:输入三个数,求出其中最小的数。
Function xiao(x,y:integer):integer;
begin
if x>y then xiao:=y else xiao:=x;
end;
Begin
Var a,b,c,t:integer;
Begin readln(a,b,c);
t:=Xiao(a,b);
t:=xiao (t,c);
Writeln(t);
End.
函数的调用
格式:函数名(实在参数表)
例:输入自然数k,输出小于k的所有的质数。
Var k,i:integer;
begin
readln(k);
For i:=2 to k do
If zhishu(i) then write(i,’’);
end.
Function zhishu(n: integer): boolean;
Var i,x:integer;
begin
For i:=1 to n do if n mod i =0 then inc(x);
If x=2 then zhishu;
end;
求p=(a+b)!/(a!+b!)
Var a,b:integer; p:real
Function js(n:integer):real
Var i,t:integer;
begin
t:=1;
for i:=1 to n do t:=t*i;
js:=t;
end;
begin
readln(a,b);
p:=js(a+b)/(js(a)+js(b));
Writeln(p);
End.
3 4
自定义过程
格式:
procedure 过程名(形式参数表);
Var
变量说明部分
begin
过程体
end;
定义过程fa,求n!
Procedure fa(n:integer; var p:real);
Var i:integer;
Begin
P:=1;
For i:=1 to n do p:=p*i;
End;
值形参
变量形参
值形参只能把值传入函数或过程。
变量形参既能把值传入过程,又能把值传出过程。
自定义过程
格式:
procedure 过程名(形式参数表);
Var
变量说明部分
begin
过程体
end;
定义过程jiaohuan,交换两个变量的值。
Procedure jiaohuan( var a,b:integer);
Var t:integer;
Begin
t:=a; a:=b; b:=t;
End;
变量形参
自定义过程
格式:
procedure 过程名(形式参数表);
Var
变量说明部分
begin
过程体
end;
定义过程prin,打印表头
Procedure prin;
Var i:integer;
Begin
For i:=1 to 10 do write(‘+’);
Writeln(‘print’);
For i:=1 to 10 do write(‘+’);
End;
无形式参数
++++++++++
Print
++++++++++
过程的调用过程名(实在参数表)
Procedure fa(n:integer;var p:integer);
Var i:integer;
Begin
P:=1;
For i:=1