第5章++的过程与函数.ppt

上章回顾： ? 理解数组的概念,含义与定义方法 ? 掌握引用数组元素的方法 ? 理解记录的概念,含义与定义方法 ? 掌握使用记录常用方法 ;本章要点： ? 理解过程与函数的概念 ? 掌握过程与函数的定义方法 ? 掌握过程与函数中三种参数的传递的概念及特点 ? 掌握过程与函数的调用方法 ;5.0 循序渐进学理论 ;5.0.1 过程与函数的概念 ;5.1 过程;5.1.1 事件过程的创建与调用;2. 事件过程的调用 可以在过程代码中调用已经创建的事件过程。如为按钮Button3创建独立的OnClick事件过程来调用已经存在的Button1Click事件过程： ;5.1.2 通用过程的语法格式;5.1.3 通用过程的创建与调用;procedure Button(Sender: TObject); begin Case (Sender as TButton).Tag of 0 :form1. Button2.Enabled := False; 1 : form1.Button1.Enabled := False; 2 : Begin form1.Button1.Enabled := True; form1.Button2.Enabled := True; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin button(sender); end;;【例5-2】计算阶乘5！，7！15！及其他们的和，如程序所示。 procedure Fact(m : Integer; var total : Int64); var i : Integer; begin total := 1; For i := 1 To m do total := total * i; end; ;procedure TForm1.Button4Click(Sender: TObject); var a : integer; tot, s : Int64; begin s := 0; a := 5; fact(a, tot); s := s + tot; a := 7; fact(a, tot); s := s + tot; a := 15; fact(a, tot); s := s + tot; Panel1.Caption := format(5!+7!+15!=%d, [s]); end; ;5.2 函数;5.2.1 函数的语法格式 ;【例5-3】已知直角三角形两直角边，计算第三边（斜边）的函数： procedure TForm1.Button1Click(Sender: TObject); var i,j,k:real; begin i:=strtofloat(edit1.Text); j:=strtofloat(edit2.Text); k:=sqrt(sqr(i)+sqr(j)); showmessagefmt(三角形的第三边长度为：%1.4f,[k]); end; ;5.2.2 函数的创建与调用; Function fact(x : Integer) : int64; Var p : int64; i : Integer; begin p := 1; For i := 1 To x do p := p * i; fact := p; // 赋值给函数名 End; procedure TForm1.Button1Click(Sender: TObject); Var sum : Int64; i : Integer; begin sum := 0; for i := 3 To 10 do sum := sum + fact(i); panel1.Caption := format(1!+2!+...+10! = %d,[sum]); end;;【例5-5】求输入三个任意整数，求其最大公约数。 如程序所示 Function Hcf(m, n :Int64) : Int64; var r, c : Int64; begin If m n Then begin c := m; m := n; n := c; end; r := m Mod n; While r 0 do begin m := n; n := r; r :