FreePascal简要语法.docVIP

第  PAGE 16 页 共  NUMPAGES 16 页 Free Pascal 简要语法书 基本结构 一个FP程序一般可以分为 程序首部（Program语句）、程序说明（常量、变量、自定义函数过程）和程序主体（Begin到End.）三部分。语句间用分号“；”分隔，一般一行写一条语句，程序最后用End.（句点）结束。基本框架如下： Program 程序名（参数）； Label 标号说明； Const 常量说明； Type 类型说明； Var 变量说明； Function 函数说明； Procedure 过程说明； Begin 程序主体； End. 用一个实例表示：数据交换（exchange）。输入两个整数a,b（-30000a,b30000），交换后输出。输入文件（exchange.in）有一行，用空格分开的两个整数；输出文件（exchange.out）有一行，用空格分开的两个整数，顺序和输入数据相反。 Program exchange; Const fin=’exchange.in’; fout=’exchange.out’; Var a,b:integer; Procedure init; begin assign(input,fin); assign(output,fout); reset(input); rewrite(output); end; Procedure swap(var x,y:integer); var t:integer; begin t:=x; x:=b; b:=t; end; Begin init; readln(a,b); swap(a,b); writeln(a,b); close(input); close(output); End. 程序说明部分 常量定义（const） 常量名=常量数据； Const e=2.7182818; { Real type constant.} a=2; { Ordinal (Integer) type constant.} c=’4’; { Character type constant} s=’This is a constant string!’; { String type constant } s=chr(32) ls=SizeOf(Longint); ti:array[1..3] of Longint=(1,2,3); tj:array[1..3][1..2] of integer((1,3),(1,2),(1,1)); 类型说明（type） 类型名=类型 类型说明； Type point=record x,y,z:real; color:integer; end; junk=set of char; Days=(Mon,Tue,Wed,Thu,Fri,Sat,Sun); WorkDays:Set of days; 变量定义 变量名（多个变量名用逗号分开）：变量类型； var i:integer; e:real; c:char; s:string; sn:array[1..12] of integer; p:point; 变量类型 整数类型 实数类型 布尔类型 Type Range Boolean 1 true、false 字符类型 Type Range char 1 String 默认最大255个字符 自定义函数 function 函数名（形式参数表）：返回类型; 函数的说明部分 begin 函数主体； …… 函数名:=返回值； end; function max(x,y:integer):integer; var m:integer; begin if xy then m:=x else m:=y; max:=m; end; 当函数被赋值后，可以用 exit 直接退出函数，回到主程序。 自定义过程 procedure 过程名（形式参数表）； 过程说明部分； begin 过程主体； …… end； Procedure swap(var x,y:integer); var t:integer; begin t:=x; x:=b; b:=t; end; 可以用过程exit 直接退出过程，回到主程序。 例题： Program ex1; Var a:_______; b:________; c:_________; Begin a:=10; b:=2; c:=a/b; writeln(c); end. 表达式的书写：在程序中的表达式书写方式与数学书写方式有一