DELPHI语言基础知识教材.ppt

DELPHI语言基础 DELPHI语言基础 循环语句 — while 例：求1..100所有数之和。 sum:=0; i:=1; while i=100 do begin sum:=sum+i; i:=i+1; end; showmessage(inttostr(sum)); 语句与流程控制 DELPHI语言基础 循环语句 — repeat 格式： repeat 语句组 until 条件达式 ; / / 条件表达式为真时跳出 语句与流程控制 DELPHI语言基础 循环语句 — repeat 例：求1..100所有数之和。 sum:=0; i:=1; repeat sum:=sum+i; i:=i+1; until i 100 ; showmessage(inttostr(sum)); 语句与流程控制 DELPHI语言基础 循环语句 — for 格式一： for 循环变量:=初值 to 终值 do begin 语句组 end; 格式二： for 循环变量:=初值 downto 终值 do begin 语句组 end; 语句与流程控制 DELPHI语言基础 循环语句 — for 例：求1..100所有数之和。 sum:=0; for i:=1 to 100 do begin sum:=sum+i; end; showmessage(inttostr(sum)); 语句与流程控制 DELPHI语言基础 循环语句 — 特殊处理 break 跳出该层循环 continue 进入下一次循环 例：输出1. .100所有奇数之和 sum:=0; for i:=1 to 100 do begin if (i mod 2=0) then continue; sum:=sum+i; end; showmessage(inttostr(sum)); 语句与流程控制 DELPHI语言基础 一、 教材60页 2-6、2-7，2-8，2-10 二、 1.输出9*9乘法表。 2.对数组 a = (4,56,78,3,6,8,9,4,23,6,7,9,4 ) 降序排列。 作业练习 DELPHI语言基础 过程与函数 DELPHI语言基础 过程和函数使程序中代码的使用率提高，提高程序开发速度和程序的一致性。过程和函数的功能内似，区别在于过程无返回值，函数有返回值。 返回值 过程 无 函数 有 过程与函数 DELPHI语言基础 过程的声明 格式 procedure 过程名 ( 参数表) ; //末尾有;号 变量申明 begin 语句组 end; 过程与函数 DELPHI语言基础 例：建立过程 isum( i:integer ),求1+2+…+i的和，并显示。 procedure isum(i:integer); //声明过程isum var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; showmessage(inttostr(sum)); end; //调用过程 procedure TForm1.Button1Click(Sender: TObject); begin isum(100); //调用过程isum end; //注：调用过程之前必须声明过程。 过程与函数 DELPHI语言基础 var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin isum(100); //调用未声明的isum过程，错误 end; procedure isum(i:integer); //声明isum过程 var sum,j:integer; begin sum:=0; for j:=0 to i do sum:=sum+j; showmessage(inttostr(s