006-Dephi 表达式 选择语句 循环语句其他语句

表达式

语句

简单语句

在 begin end. 外面的语句

复杂语句

有 begin 和 end. 组成的复杂语句

选择语句

if else

循环语句

格式 if if-else

program xxx;
{$APPTYPE CONSOLE}
{$R *.res}

uses:
	System.SysUtils;

begin
	// 标准写法
	if 1 < 2 then
	begin
		writeln('台湾第一美女');
	end;
	// 简洁写法
	if 1 < 2 then
		Writeln('台湾第一美女');
	// if else
	if true then
	begin
		Writeln('台湾第一美女：萧蔷');
	end
	else
	begin
		Writen('台湾第一美女：林志玲');
	end;
	
	Readln;
end.

格式 case-of-else语句

case varName of value1: begin end; else begin // todo end; end;

var i:Integer;
begin
	i: = 1;
	case i of
		1:
			begin:
				Writeln('台湾第一美女');
			end;
		2：
				Writeln('台湾第一美女：萧蔷');
	else
		begin
			Writeln('台湾第一美女：林心如');
		end;
	end;
end.

示例代码

prgram project1;

{$APPTYPE CONSOLE}

{$ R *.rs}

var scope:Integer;
scope:= 1;
begin
	Writln('请输入你的分数');
	Readln(scope);	
	if scope >= 60 then
	begin
		Writel('合格');
	end;
	else
	begin
		Writeln('不合格');
	end;
	Readln;
end.

定义过程-输入分数是否合格

prgram project1;

{$APPTYPE CONSOLE}

{$ R *.rs}

procedure daxiao();
var
	scope:Integer;
begin
	Writln('请输入你的分数');
	Readln(scope);	
	if scope >= 60 then
	begin
		Writel('合格');
	end;
	else
	begin
		Writeln('不合格');
	end;
end;

begin
	daxiao();
	Readln;
end.

定义过程-case输出月份

program project1;
{$APPTYPE CONSOLE}
{$ R *.rs}
procedure yuefen(yuefen:Integer);
begin
	Writeln('请输入月份：');
	Readln(yuefen);
	case yuefen of
		1:
			Writeln('1月');
		2：
			Writeln('2月');
	else
		begin
			Writeln('输入的数字不在月份内');
		end;
	end;
var
	yuefen:Integer;
begin
	yuefen(yuefen);
	Readln;
end.

Exit; 终止过程运行

在代码里面 加上这个

循环语句

FOR

var
	I,K:Integer;
begin
	I,K := 0;
	for I := 1 to 10 do
		K := K + I;
		Writeln('K的值：',K);
end;

while

while 1 = 2 do begin
	Writeln('============');
end;

repeat

repeat
	Writeln('==================');
until(true);

其他语句

continue

跳过本次循环

break

跳出最近一层循环

Exit

退出程序
如果在过程里面 ，退出过程
如果在函数中，退出函数

abort

终止程序运行 ，产生不报错的异常信息，跳出祖先模块

halt

runerror

枚举类型

常量

定义好值，在运行后不允许修改

const YuanZhouLv: Double = 3.15; // 不允许修改

枚举类型

type
	EColors=(red,green,blue)
var
	color:EColors;
begin
	color := EColors.RED;
	Writeln(ord(color)); // ord(color) 获取数值
end.

type
	EColors=(red,green,blue)
var
	color:EColors;
	EIndex:Integer;
begin
	for Color:= Low(EColors) to Heigh(EColors) do begin
		GetEnumName(TypeInfo(EColors),0); // 默认获取第一个
		// 遍历需要自定义 index 变量，每次for执行一次，就+1
		EIndex:= EIndex+1; // Inc(EIndex) // 等于这个
		// 就会出书 red green blue 的文字
	end;
end.

GetEnumName(Typeino(EColors),0) // 获取名字
GetEnuvalue(TypeInfo(EColors),Ename) // 获取value