Freepascal培训(初级)

1、Pascal 语言（小学版）小小程序员社团活动培训教案2015年下学期Pascal是什么Pascal是一种计算机高级语言，它是由瑞士的沃斯教授于1971年提出的。它的命名是为了纪念法国数学家Pascal。Pascal的两个主要版本：Turbo Pascal和FreePascalFreePascal是优秀的结构化程序设计语言。学好Pascal，可以参加每年一次的长沙市程序员操作竞赛，可以成为一个计算机软件设计师。第一阶段培训目标u了解计算机基础知识u认识Free Pascalu学习pascal语言基础知识u掌握Pascal的三个简单语句u学会设计顺序结构的程序一、计算机的基础知识计算机的成长史计

2、算机的组成预防计算机中毒数制计算机语言第一台计算机 1946年美国，名字埃尼阿克，由1800个电子管组成，重30吨。计算机的成长史 第一代：电子管 第二代：晶体管 第三代：集成电路 第四代：大规模集成电路计算机的成长史计算机硬件的组成主机显示器鼠标 键盘(输出设备)(输入设备)主机中央处理器(CPU)存储器内存储器外存储器ROM断电还有RAM断电没有硬盘硬盘光盘光盘U盘盘计算机的存储容量B是计算机存储容量的最小单位，称为字节。KB称为千字节。 1KB1024BMB称为兆字节。 1MB1024KBGB称为千兆字节。 1GB1024MB一个汉字和中文标点占两个字节1GB= MB= KB= B102

3、41024*10241024*1024*1024计算存储量一篇作文含标点512个字符，占_个字节B，_千字节KB。一本100万字的长篇小说，用估算法，可以估算成_个字节B，_个千字节KB，_个兆字节MB。一个8GB的U盘，大概可以存放_本这样的长篇小说。102412000000200024000 软件，指存放在计算机中的文件，只有通电后才能看到。操作系统软件 Windows UNIX MAC Linux应用程序软件 办公、游戏、听歌、聊天、视频计算机软件的组成预防计算机中毒什么是计算机病毒？ 人为恶意编制的程序。计算机病毒有什么特点？ 传染性、繁殖性、潜伏性、破坏性怎么预防？1.安装杀毒软件杀

4、毒升级杀毒软件金山毒霸、360杀毒、瑞星杀毒2.安装病毒防火墙。3.严禁使用带病毒的U盘数制：计算机是怎样处理信息的？计算机由大量电子元件组成的。电子元件只有两种稳定的状态。我们可以用1和0表示两种状态。计算机能直接识别的数据只有1和0。其它的数据都要先转化成1和0才能被计算机识别。用1和0写成的数据称为二进制代码。计算机对信息的处理都是用二进制代码进行的。二进制与十进制的区别基本数字（基数）进位规则举例十进制0，1，2，3，4，5，6，7，8，9逢十进一1+1=210+1=1111+1=12二进制0， 1逢二进一1+1=1010+1=1111+1=100十进制与二进制转化十进制二进制0011

5、210311410051016110711181000十进制二进制9100110101011101112110013110114111015111116100001710001十进制化为二进制法则：除以2，直到商为0，余数倒着写。举例: 1427-023-121-120-11929-124-122-021-020-1所以(14)10=(1110)2(19)10=(10011)2二进制转化为十进制法则：基数乘以2的n次方，相加求和。 基数：二进制数中各数位的数，0和1。 求2的n次方：求n个2相乘，如23=222, 规定：20=1, 21=2，举例 ( 1 1 1 0 1 )2 = ( ) 10

6、12011=102102 012214412318 81241161616+8+4+0+12929可省略二进制转化为十进制求2的n次方，是求n个2的乘积，不是2乘n的积从最右边数起，n依次为0，1，2，3，4规定：20=1, 21=2 22=224 23=222=8 24=222216 25=22222 32 2n=2222N个2相乘常见错误：23=23=624=24=825=25=10二进制转化为十进制法则：基数乘以2的幂，相加求和。练习 ( 1 1 0 1 0 1 )2 = ( ) 101201102102 012214402308 0124116 1632+16+0+4+0+153531

7、25132 32可省略可省略比较数的大小（1111111）2 （10000000）2数位多的数值大（110100010）2 （101010110）2数位相等时，从最高位（最左边）开始比较（110111）2 （55）10化为相同的进制再比较=计算机语言按发展顺序分类：机器语言汇编语言高级语言二、认识 FreePascal启动FreePascal方法1：双击桌面 快捷图标方法2: 利用“开始 菜单”Pascal 的窗口界面单击File菜单New命令可建立一个新的程序窗口。标题栏菜单栏当前程序文件名编辑区滚动条状态栏退出FreePascal方法1：单击文件 菜单Exit方法2: 同时按 Alt和X键

8、方法3: 单击XX退出FreePascal怎样编写Pascal程序建立新程序New输入源程序保存源程序Save编译源程序Compile运行程序Run调试程序output保存程序F2体验Pascal源程序内容：Program zm;Var i:char;beginfor i:=a to z doWrite (i:4);Writeln;end.提示：大小写无区别，单词不能错，标点不能错，空格不能错。建立新程序New输入源程序保存源程序Save编译源程序Compile运行程序Run调试程序output保存程序F2三、pascal语言基础知识Pascal基本符号Pascal保留字Pascal标识符Pa

9、scal数据类型常量变量Pascal标准函数Pascal运算符号Pascal的表达式ASCII码Pascal程序的结构Pascal的基本符号英文字母52个 abcdexyz, ABCDXYZ。数字10个 0123456789特殊符号21个 + - * / = = () := . , ; : .不允许出现汉字与希腊字母如：Pascal保留字规定了特殊含义不能随意乱用的英文单词称为保留字。1、程序、函数、过程的起始符号 Program function procedure2、说明部分的专用符号 Var const array type3、语句专用符号 If then else case of fo

10、r to do while repeat until4、运算符号 and or not mod div 5、分隔符号 begin endPascal标识符 用来表示程序名、变量名、常量名、类型名、过程名或函数名的符号。1、标准标识符（软件预先定义好，不能随意乱用）标准常量名： false true maxint标准类型名：integer real char boolean 标准函数名：abs chr ord odd pred succ round trunc sqr sqrt 标准过程名: read readln write writeln2、自定义标识符我们自己给程序、变量、常量、类型、函数

11、和过程取的名字。要求：必须以字母或下划线开头，后面接字母、下划线或数字。如：yuan_mianji , x , y, x01 , _x01 ,_123, xinming 正确 123，3x, _3.1x, zhou.chang, _x*#，a bb 错误 Pascal的数据类型整数型名称类型标志符 数据范围运算符号字节型Byte0-255+ （加）-（减） *（乘）mod（求余数） div（求商） 例: 25 div 10=2 25 mod 10=5 2*10+5=25短整型Shortint-128127标准型integer-3276832767字型Word065535长整型longint-2

12、1474836482147483647实数（带小数点）类型名称类型标识符 数据范围运算符号标准实型real-1x10-381x1038+（加）-（减）*（乘）/（除）实数与实数运算的结果仍然是实数，如：3.5/0.7=5.0整数与实数运算的结果也是实数，如：5*0.2+2=3.0实数的2种表示方法：日常表示法，如 0.0314, 314科学计数法，如 0.0314=3.14x10-2=3.14e-2 314=3.14x102=3.14e+2字符类型夹在两个单引号之间的一个字符名称类型标识符数据范围运算符号字符型char键盘上的所有数字、字母、符号、空格例如: a表示字符a A表示字符A +表示

13、字符+ 表示字符空格注意：0表示字符0，但0表示整数0，8表示字符8，但8表示整数8 字符串类型在两个单引号之间存在多个字符时称为字符串。例如abc表示字符串abc, name表示字符串name名称类型标识符数据范围运算符号字符串型string键盘上的所有数字、字母、符号、空格+例：na+me=name布尔类型布尔类型也称为逻辑类型。名称类型标识符数据范围运算符号布尔型booleanfale(真） true（假not (非）and(并且）or （或者）布尔类型运算的顺序为： notandor常量在程序运行过程中保持不变的量叫做常量。标准常量：maxint(最大值32767）true(真）fal

14、se（假）允许自定义常量自定义常量的格式： const 常量标识符 = 常量;例：const pi=3.14; xm=liping; gao=160; nan=true; 变量在程序执行过程中可以改变的量，叫做变量。变量必须先说明其类型，才能在程序中使用。变量说明的格式： var 变量标志符:类型例1： var tizhong:real; nianling:integer; chuqin:boolean; dengdi:char 例2：var a,b:integer; C,d:real; X,y:boolean;Pascal的标准函数函数是一种按照某种法则，利用原始数据运算出一个新结果的功能。

15、函数应用的形式是： 函数名（原始数据）例如：trunc(x)trunc是函数名，功能是删去原始数据x的小数部分。所以trunc(3.98)=3其中3.98是原始数据的值，3称为函数的值数学函数名称标志符定义举例绝对值abs(x)求x的绝对值abs(8)=8abs(-8)=8平方sqr(x)求x的平方sqr(3)=9sqr(4)=16平方根sqrt(x)求x的平方根sqrt(81)=9sqrt(49)=7转换函数名称标志符定义举例截尾函数trunc(x)删去x的小数部分trunc(59.9)=59trunc(59.1)=59舍入函数round(x)对x四舍五入round(59.5)=60roun

16、d(59.4)=59序号函数ord(x)求x的ASCII码ord(A)=65ord(0)=48字符函数chr(x)求ASCII码为x的字符chr(65)=Achr(97)=a顺序函数名称标志符定义举例前导函数pred(x)求x的前面相邻数据pred(c)=bPred(100)=99后续函数succ(x)求x的后面相邻数据succ(y)=zSucc(100)=101逻辑函数名称标志符定义举例奇数函数odd(x)判断x是否为奇数odd(23)=trueodd(12)=falsePascal的运算符算术运算符号关系运算符号逻辑运算符号加号减号乘号除号求商求余+-*/divmod等号不等号大于号小于号

17、大于等于号小于等于号=60 y是整数，那么表示y是偶数的关系表达式是y mod 2=0逻辑表达式例：a是某个整数，它既能被3整除，又能被5整除那么写成逻辑表达式是:(a mod 3=0） and （a mod 5=0）yx yxASCII码（美国标准信息交换码） 怎样记住每个数字、大写字母、小写字母在ASCII码表中的序号？0 48，A 65, 小写再加32Pascal源程序的结构1.程序首部2.程序体 （1）说明部分 （2）执行部分Program cfxmj;Var a,b,s:integer;Begina:=4;b:=6;s:=a*b;Writeln(s=,s);Writeln;End.程

18、序保留字+程序名; 说明常量（变量）名对应的类型。是程序的执行部分，以begin开始，end.结束。每一行语句执行一个确定的功能。语句间以 “;” 格开。四、pascal的简单语句赋值语句输入语句（read、readln)输出语句 (write、writeln)编程算法编程流程图赋值语句为变量提供数据的语句，具有计算和赋值的功能。格式： 变量标志符 := 表达式赋值语句的功能：先计算表达式的值，然后把表达式的值赋给变量。 “:=”称为赋值符号。 例：a:=1; 它的含义是：把整数1赋值给变量a; a:=b; 它的含义是：把变量b的值赋给变量a; c:=5*2 ; 它的含义是：先计算5*2=10

19、,再把10赋给变量c; x:=-x; 它的含义是：先把x的值改变符号，再赋值给变量x; i:=i+1; 它的含义是：先i的原值加1，再赋值给变量i;分析程序，说明各语句的作用Pascal程序文件名为x01;定义常量 常量名为a，值为整数8;定义变量 b和c都是标准整数型变量; d是标准实数型变量;计算表达式a mod 3的值为2，赋值给变量b;计算表达式a*b的值为10，赋值给变量c;将变量a的值赋给d,因为d是实数类型，所在d的值为8.0Program x01;Const a=8;Var b,c:integer; d:real;Beginb:=a mod 3;c:=a*b;d:=a;end.

20、使用 := 要注意赋值符号“:=”不能与运算符号“=”相混淆。赋值号两边的类型必须相等。一个赋值语句只能给一个变量赋值。对一个变量可以进行多次赋值。Var Begina,b,c,d:integer; a:=2;x,y:real; b,c:=3; x:=3.14; y=x; d:=x; x:=a; End.你能找出错误吗?计算变量的值Var a,b,c:integer;Begin1.a:=1;2.b:=2;3.c:=3;4.c:=c*a;5.a:=4;6.b:=a;7.c:=c*a;End.c第二次被赋值，3*1=3a第二次被赋值为4b第二次被被赋值为a的值4c第三次被赋值，3*4=12输入语句

21、（read,readln)在程序运行过程中，通过键盘输入变量的值的语句。输入语句的格式格式1：read(变量表）;格式2：readln变量表;它们的区别： 格式1后面必须带变量; 格式2后面可以带变量，也可以不带变量。格式1：read(变量表）变量表：可以是单个变量名，也可以是用逗号隔开的多个变量名。输入多个数据时，之间用空格隔开。输入结束时用回车键，var执行语句键盘输入执行结果x:integerread(x)62x=62a,b,c:integer;read(a,b,c)3 5 8a=3,b=5,c=8a,b,c:char;read(a,b,c)jina=j,b=i,c=nx:integer

22、;y:real; z:char;read(x,y,z)2 4 aX=2,y=4.0,z=a格式1：read(变量表）键盘上输入的数据必须与变量类型保持一致。输入多个字符变量时，中间不能用空格隔开，因为空格也是字符。var执行语句键盘输入执行结果x:integerread(x)3.14出错a,b,c:integer;read(a,b,c)358a=358等待输入a,b,c:char;read(a,b,c)N o wa=N,b= ,c=oa,b,c:char;read(a,b,c)Nowa=N,b= o ,c=wx:real;y:integer; z:char;read(x,y,z)4.3 2a出

23、错格式1：read(变量表）当输入的数据个数少于变量个数时，系统仍处于等待状态。当输入的数据个数多于变量个数时，多余的数据在当前read语句中不起作用。var执行语句键盘输入执行结果x:integerread(x)3 4 5 6x=3a,b,c:integer;read(a,b,c)358a=358等待输入a,b,c:char;read(a,b,c)2345a=2,b=3,c=4格式2：readln变量表执行readln语句后,本行多余的数据彻底忽略。read(a);read(b,c,d,e);read(f,g);1 2 34 5 67 8 9a=1b=2,c=3,d=4,e=5f=6,g=7

24、readln(a);readln(b,c,d,e);readln(f,g)1 2 34 5 67 8 9a=1b=4,c=5,d=6,e=7f=0,g=0read(a);readln(b,c,d,e);readln(f,g)1 2 34 5 67 8 9a=1b=2,c=3,d=4,e=5f=7,g=8格式2：readln执行readln语句不带变量表，表示读入一个回车键。readln(x);readln;readln(y,z);1 2 3 4 5 6 x=1y=5,z=6Pascal的输出语句输出语句的作用：把程序处理的结果通过屏幕显示出来。输出语句的格式：格式1：write（输出表）输出表

25、：用逗号隔开的输出项，输出项可以是一个，也可以多个。输出项:（常数，常量，变量、表达式或字符串）Write（常数）常数整数如 2，-3，0小数如3.14，-3.14字符如a, A, 2, *, +举例Write(123);123Write(3.15);03.15E+0Write(A); AWrite（常量）Const pi=3.14; xm=liping举例Write(pi);03.14E+0Write(xm);lipingWrite（变量）变量整数型Var x:integer;实数型Var y:real;字符型Var ch:char;举例x:=12;Write(x);12y:=3.1415

26、; Write(y);03.1415E+0Ch:=#;Write(ch)#Write（表达式）变量整数型Var x:integer;实数型Var y:real;字符型Var ch:char;举例x:=12;Write(x+8);20y:=3.1415 ; Write(round(y); 3Ch:=#;Write(ord(ch)35Write（字符串）Var ch:string; Ch:= jinjingzhongxueWrite(ch);jinjingzhongxueWrite(jiningzhongxue);jinjingzhongxue用 引起的一串字符，称为字符串。Write(输出表）编

27、程计算5x7Program x02;Const a=5; b=7;Var c:integer;begin c:=a*b; write(a,*,b,=,a*b);end.程序首部说明部分执行部分程序体5*7=35Write(输出表）编程计算5x7Program x02;Const a=5; b=7;Var c:integer;begin c:=a*b; write(a*b=,a*b);end.程序首部说明部分执行部分程序体a*b=35Write (输出表）编程计算5x7Program x02;Const a=5; b=7;Var c:integer;begin c:=a*b; write(a,b

28、,c);end.程序首部说明部分执行部分程序体5735设置输出场宽场宽：数据在输出时所占据的列数。每个字符都只占1个场宽。默认情况下，数据都是靠左输出。例：const a=2008; ch=!;Begin Writeln(a); Writeln(happy); writeln(HAPPY); Writeln(ch);End.2008happyHAPPY!设置输出场宽单场宽 格式: 输出项：场宽例：const a=2008; ch=!;Begin Writeln(a:6); Writeln(happy:9); writeln(new:10); Write(year:13); Writeln(ch

29、);End.0020080000happy0000000new000000000year!设置输出场宽双场宽 格式: 输出项：总场宽：小数位数例：const a=314.15; b=-0.0314;Begin Writeln(a); Writeln(b);End.03.1415E+2-3.14E-2例：const a=314.15; b=-0.0314;Begin Writeln(a:6:2); Writeln(b:7:4);End.314.15-0.0314设置输出场宽双场宽 格式: 输出项：总场宽：小数位数例：const a=314.15; b=-0.0374;Begin Writeln(

30、a:8:2); Writeln(b:8:2);End.00314.15000 -0.04例：const a=314.15; b=-0.0374;Begin Writeln(a:1:2); Writeln(b:1:2);End.314.15-0.04输出值没有达到总场宽时，左边留空格。输出值超过总场宽时，按输出值的实际位数输出。Pascal的输出语句格式2：writeln(输出表)特点：1、输完最后一项后换行。 2、允许没有输出项，仅起到换行的作用。Const a=5; b=7;Var c:integer;begin writeln; writeln(a); writeln(b); writel

31、n(a*b);end.5735Const a=5; b=7;Var c:integer;begin write (a); write (b); write (a*b);end.5735Pascal程序的最后一个输出语句通常使用writeln语句。写出下面程序的运行结果Const p=3.14;Var r,s,c:real;Beginr:=10;c:=2*p*r;s:=p*sqr(r);write(c=);Writeln(c:6:2);Writeln(s=,s:6:1);End.Var a,b:integer; c:real; d:char;begin a:=ord(A)-1; b:=succ(

32、sqrt(a); a:=trunc(b/5); c:=(a+b)*0.01; d:=chr(a*10) ;write(a=, a);writeln(b=:4, b);writeln(c=, c:2:1);writeln(d：4);end.编程需要好算法利用计算机解题的步骤分析问题设计算法编写程序执行程序把实际问题转化为数学问题设计求解的方法和步骤用pascal语言实现算法在计算机上调试和运行程序好的算法确定性可行性输入输出求100以内所有偶数的和算法1:算法2：算法3：共执行49个步骤2+46+612+820+1030+122450+100第48次后求1+2+3+48+49+50求(1+2+3

33、+49+50)x21+ 50（1+ 50）*25（1+ 50）*25*2共执行3个步骤求2+4+6+96+98+1002+ 100（2+ 100）*25共执行2个步骤Program oushuhe;Var s:integer;BeginS:=(2+100)*25;Writeln(s=,s);End.求100以内所有偶数的和Program oushuhe;Var s:integer;BeginS:=(2+100)*50 div 2;Writeln(s=,s);End.已知某等差数列的第一个数为a1,最后个数为an,相邻两个数的差值为b,求这个数列的和s。Program shulie;Var x,

34、a1,an,b,s:integer;BeginReadln(a1,an,b);x:=(an-a1)div b +1;S:=(a1+an)*x div 2;Writeln(s);End.45 261 311169怎样表述算法1、自然语言如：将“变量a赋值为100”，写成“a 100” 输出变量a的值，写成“输出a”2、流程图3、N-S图ABPABAA顺序结构选择结构当型循环直到型循环是是是当P1直到P2输入两个整数，输出其中较大的数分析问题： 定义两个整数型变量a,b,用readln语句给变量赋值，比较变量a和b的值，如果a的值大就输出a，否则（如果b的值大）就输出b。N-S图读入(a,b) a

35、b是 否输出a输出b顺序结构程序设计有2辆汽车，A车装50箱苹果，B车装100袋大米。想把两车内货物交换，试编写程序。分析问题 交换车内货物需要借助第3个空间。CABCABCABCCCAAABBB算法1：设A车为变量a,B车为变量b,空地为变量c,并将a,b,c定义为整数。 (1) 用赋值语句对a,b赋值(相同于装货）： (2) 交换a,b的值： c:=b; b:=a; a:=c; (3) 输出结果： writeln(a,b);程序1：var a,b,c:integer;Begin a:=50; b:=100; c:=b; b:=a; a:=c; Writeln(a=,a); Writeln(

36、b=,b);End.CCCAAABBB算法2：设A车为变量a,B车为变量b,空地为变量c,并将a,b,c定义为整数。 (1) 用输入语句对a,b赋值(相当于装货）： (2) 交换a,b的值： c:=b; b:=a; a:=c; (3) 输出结果： writeln(a,b);程序2：var a,b,c:integer;Begin readln(a,b); c:=b; b:=a; a:=c; Writeln(a=,a); Writeln(b=,b);End.算法：（1）用readln（a,b）语句输入长和宽的值。（2）用赋值语句计算面积s;（3）用赋值语句计算周长c;（4）用writeln(s,c

37、)语句输出面积和周长。Var a,b,s,c:integer;beginreadln(a,b);s:=a*b;c:=(a+b)*2;writeln(s=,s);writeln(c=,c);end.问题：已知长方形的长和宽，求该长方形的面积和周长。分析：设变量a,b,s,c分别表示长、宽、面积、周长，由于不知长和宽的具体数，所以只能采用readln(a,b)语句输入长和宽。根据数学公式s=a*b; c=(a+b)*2计算出面积和周长。问题：已知一个圆的半径为3.5cm,求该圆的面积和周长。说明部分执行部分问题：输出右边的图形说明部分执行部分#算法：（1）用readln（ch）语句输入字符。（2）

38、输出ch的序号;（3）输出ch的前导值;（4）输出ch的后导值。Var ch:char;beginreadln(ch);Writeln(ord(ch);Writeln(pred(ch);writeln(succ(ch);end.问题：输入一个字符，输出它的序号、前导值及后续值。分析：设ch为字符类型变量，用readln(ch)语句输入字符。用函数ord(ch)求字符的序号，用函数pred(ch)求字符的前导值，用函数succ（ch）求字符的后续值。选择结构程序设计条件(if )语句两种形式格式1：if 条件为真 then 语句 1；格式2： if 条件为真 then 语句 1 else 语句2

39、 条件 真 语句1 条件 真 假 语句1 语句2程序：输入一个整数，判断它是奇数还是偶数。说明部分执行部分Var n:integer;beginreadln(n);if n mod 2=0 then writeln(n,-shioushu) else writeln(n,-shijishu);end;复合语句复合语句格式：begin语句1；语句2； . .语句nend;程序：输入两个数，将其中大数存入变量a，小数存入变量b。说明部分：执行部分 begin end.Var a,b,c:integer;readln(a,b);If ab 假Zdz:=a;Zdz:=b;真 czdz 假Zdz:=c;

40、输出zdzVar a,b,c,zdz:integer;beginreadln(a,b,c);if ab then zdz:=a else zdz:=b;if czdz then zdz:=c;Writeln(zdz);End.条件(if)语句嵌套（1）then 后面接if 语句 格式： if 条件1为真 then if 条件2为真 then语句1(1) else 语句1(2) else 语句2 n为考生成绩，输出成绩对应的等级。90100为优秀，6089为合格，0-59为不合格Var n:real;beginreadln(n);if n =60 then if n=90 then writel

41、n(youxiu)else writeln(hege)else writeln(buhege);end.（2）else 后面接if 语句 格式： if 条件1为真 then 语句1 else if 条件2为真 then语句2(1) else 语句2(2) 条件(if)语句嵌套n为考生成绩，输出成绩对应的等级。90100为优秀，6089为合格，0-59为不合格Var n:real;Beginreadln(n);if n =90 then writeln(youxiu) else writeln(hege)end.Var n:integer;beginreadln(n);if n mod 2 =0

42、 then if n mod 5=0 then n:=n div10 else n:=n mod 10 else n:=n +2;Writeln(n);end.写出程序运行结果307245Var n:integer;beginreadln(n);if n =20 then writeln(n) else writeln(n-5)end. 12745写出程序运行结果分情况（case）语句在同时出现多个条件时，根据具体情况从中选择一个条件运行的语句。格式1： case 表达式 of 数值1：语句1； 数值2：语句2； . . 数值n:语句n； end;输入某个月份，输出该月的节日。Var n:in

43、teger;beginreadln(n);Case n of 1: writeln(元旦）； 3：writeln(妇女节）； 5：writeln(劳动节）； 6：writeln(儿童节）； 9：writeln(教师节）； 10：writeln(国庆节）；2，4，7，8，11，12：writeln(没有节日) end;end.输入考试成绩，输出考试等级。Var n:real;beginreadln(n);Case trunc(n) of 0.59: writeln(不及格）； 60.84：writeln(合格）； 85.100：writeln(优秀）； end;end.格式2: Case 表达式

44、 of 数值1：语句1； 数值2：语句2； . . 数值n：语句n； else 语句n+1; end;分情况（case）语句输入某个月份，输出该月的节日。Var n:integer;beginreadln(n);Case n of 1: writeln(元旦）； 3：writeln(妇女节）； 5：writeln(劳动节）； 6：writeln(儿童节）； 9：writeln(教师节）； 10：writeln(国庆节） else writeln(没有节日)； end;end.输入考试成绩，输出考试等级。Var n:real;beginreadln(n);Case trunc(n) of 0.5

45、9: writeln(不及格）； 60.84：writeln(合格）； 85.100：writeln(优秀） else writeln(数据错误）； end;end.输入年月，输出该月天数。Var n,y,t:integer;k:booleanbeginreadln(n,y);K:=(n mod 4=0)and (n mod 1000) or(n mod 400=0);Case y of1,3,5,7,8,10,12: t:=31; 4,6,9,11: t:=30; 2: if k=true then t:=29 else t:=28; end;Writeln(n,nian,y,yueyou,

46、t,tian);end.写出程序运行结果Var n,y:integer;beginreadln(n,y);Case n mod 3 of 0: if ny then n:=n-y; 1: if ny then y:=y-n; 2: if y mod 2=0 then y:=y+1 else y:=y+n;end;Writeln(n,y:10);end.7 2145 128 6循环结构程序设计统计表中每位学生的总分学号数学语文英语总分10011002100310041005Var xh,sx,yw,yy,zf:integer;Beginreadln(xh,sx,yw,yy);zf:=xh+xh+

47、yw+yy;Writeln(xh,zf);.end.Var xh,sx,yw,yy,zf,i:integerBeginFor i:=1001 to 1005 doBeginreadln(xh,sx,yw,yy);zf:=sx+yw+yy;Writeln(i,zf);end;End.计数循环（for）语句格式1：递增型(for)循环 for 循环变量：= 初值 to 终值 do 循环语句举例： var i,j,k:integer; c:char; begin for i:= 1 to 10 do write(#); for j:= 5 to 15 do write(*); for k:= 1 to 10 do write(k); for c:= a to g do write(c) End.#*12345678910abcdefg写出程序运行结果Var i:integer; BeginFor i := 20 to 30 do if i mod 3=0 then write(i:4);End.写出