Delphi 程序设计基础与上机指导演讲稿 第03章.ppt

1、Delphi 程序设计基础与上机指导,第三章 Delphi 语言概述,Delphi 语言 变量,常量 不变的量 在程序运行过程中不允许修改 常量的名称 变量 可变的量 在程序运行过程中可以修改 变量的名称,Delphi 语言 数据类型,数据类型即值的类型（变量和常量） 整型数据 有符号：-2147483648到2147483647 无符号：0到4294967295 其他多种整型数据类型 实型数据 6种实型数据类型,Delphi 语言 数据类型,字符型数据 字符串型数据 布尔型数据,Delphi 语言 变量初始化,常量的初始化 在定义时初始化 关键词const 变量的初始化 使用前初始化 关键词

2、var 变量与常量的差别,Delphi 语言 运算符,算术运算符 +、-、* /和div mod 优先级 +、- *、/、div、mod 优先级的含义,Delphi 语言 运算符,赋值运算符 变量赋值运算符 : 常量初始化运算符不是赋值运算 赋值就是内存的值的传递 赋值对程序的作用：程序就是由赋值语句组成的（特殊含义）,Delphi 语言 思考,表达式与变量和常量的关系,Delphi 语言 代码结构,unit common; interface uses SysUtils, Classes; const Usage = Usage: console str; procedure PromptU

3、sage; procedure PromptString(str: String); implementation procedure PromptUsage; begin Write(Usage); end; procedure PromptString(str: String); begin Write(str); end; end.,Delphi 语言 代码结构,program console; $APPTYPE CONSOLE uses SysUtils; begin TODO -oUser -cConsole Main : Insert code here end.,Delphi 语

4、言 简单代码,program console; $APPTYPE CONSOLE uses SysUtils/ 这是说明输入输出功能的来源 var I: Integer; begin TODO -oUser -cConsole Main : Insert code here ,Delphi 语言 简单代码,Write(请输入一个整数值：);/ 输出 Read(I);/ 输入 Write(#13#10你输入的整数值是 , I, #13#10);/ 输出 Write(这里的内容将被输出到控制台窗口上！, sdkfj:15, #13#10);/ 输出 Write(这里的内容将被输出到控制台窗口上！,

5、 #13#10); / 输出 Write(这里的内容将被输出到控制台窗口上！, a, 3:3, #13#10, 32.5, #13#10);/ 输出 end.,Delphi 语言 思考,输出 各种输出格式 输出光标定位 其他各种输出功能 输入 各种输入方式 输入光标定位 其他各种输入功能,Delphi 语言 选择,基本语法结构 if(关系表达式)then/ 判断条件，进行选择 begin 语句1 end else begin 语句2 end;,Delphi 语言 选择,扩展选择结构 if(关系表达式1)then/ 判断，进行选择 begin 语句1 end else if(关系表达式2)the

6、n/ 继续判断，继续选择 begin 语句2 end else begin 语句3 end;,Delphi 语言 选择,嵌套选择结构 if(关系表达式1)then begin 语句1 end else if(关系表达式2)then begin if(关系表达式3)then/ 嵌套的选择 begin 语句2-1 end else begin 语句2-2 end; end else begin 语句3 end;,Delphi 语言 选择,case选择结构 case J of/ 开始选择 1: Write(你输入了一个正整数：, I, #13#10); 0: Write(你输入了一个零：, I, #

7、13#10); -1: Write(你输入了一个负整数：, I, #13#10); end;,Delphi 语言 思考,理解这段代码 if(year mod 4 = 0)then if(year mod 100 = 0)then if(year mod 400 = 0)then leap := True else leap := False else leap := True else leap := False;,Delphi 语言 循环,while循环结构 I := 0; sum := 0; while(I year)do/ 开始循环，条件 I year begin sum := sum

8、+ I; I := I + 1; end; Write(小于 year 的所有自然数之和是：, sum, #13#10);,Delphi 语言 循环,for循环结构 sum := 0; for I := 0 to year - 1 do / 开始循环，从0到year-1 begin sum := sum + I; end; Write(小于 year 的所有自然数之和是：, sum, #13#10);,Delphi 语言 循环,跳出循环 Break 跳出整个循环体 结束本次循环 Continue 并不跳出整个循环体,Delphi 语言 思考,除了while和for，Delphi还提供了其他循环方法吗？,Delphi 语言 函数,典型的函数 function GetInt(n: Integer): Integer; var I: Integer; begin Result := 1; for I := 1 to n do begin Result := Result * I; end; end;,Delphi 语言 过程,典型的过程 procedure PromptString(str: String); begin Write(