delphi7基础知识.ppt

《delphi7基础知识.ppt》由会员分享，可在线阅读，更多相关《delphi7基础知识.ppt（71页珍藏版）》请在三一办公上搜索。

1、Pascal语言程序设计,寿光现代中学王桐林,【第一、二、三章】,本章要点,Free Pascal与Turbo Pascal的区别Pascal的程序结构基本符号、保留字、标识符数据类型、常量、变量及说明方法函数与表达式三种基本的程序结构 顺序结构 分支结构 循环结构,第一章 Free Pascal概述,一、Pascal 简介 PASCAL语言是瑞士苏黎世联邦工业大学的N沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表，它的命名是为了纪念法国数学家Pascal。在Pascal问世以来的三十余年里，先后产生了适合于不同机型的各种版本，其中，影响最大的莫过于Turbo

2、 Pascal系列软件。Turbo Pascal 是由美国Borland公司设计、研制的一种微机的Pascal语言应用开发集成环境。该产品由1983年推出的1.0版本发展到1992年推出的7.0版本，随着版本的不断更新，功能也更趋完善，Turbo Pascal是NOIP在2004年以前使用的主要软件之一。从NOIP2004开始，中国计算机协会要求联赛使用freepascal，停止使用turbo pascal。Freepascal分为Windows和linux两个版本，NOIP大多使用Windows版，它提供了Windows环境下兼容Turbo Pascal的Pascal编译器，同时也提供了类似

3、Turbo Pascal的集成开发环境Freepascal IDE。软件下载地址：http:/162.105.81.201/noip/env.html,Free Pascal与Turbo Pascal的区别,1、从主办方的角度上说，TP有版权，FP没有版权限制，TP已经12年没有更新，而FP一直在更新，IOI、NOI使用的都是FP。2、Free Pascal理论上可以使用4GB的内存，因此实际上几乎可以使用系统中的所有剩余内存（除非赛题中有内存限制）。这是Free Pascal由于32位的编译器。但是对于Turbo Pascal来说，由于是16位的编译器，因此不能定义大小超过64KB的数据类型

4、和变量，并且在DOS实模式下可以使用的内存总数只有640KB。3、Free Pascal是一个跨平台的编译器，而Turbo Pascal只在dos/windows上使用。4、FP函数和过程在使用时，参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。所以可以用相同的名字定义不同的函数，只要这些函数的参数不同，就是不同的函数 5、FP布尔表达式不一定要全部进行计算。只要最终结果已经能够确定，就不再计算其它还没有计算的部分了。比如布尔表达式exp1 AND exp2 AND exp3，如果已知exp1的结果是false，那么怎么表达式的结果肯定是false，exp2

5、和exp3就不用进行计算了。6、在Free Pascal中，集合中的元素都是4个字节长的。7、FP表达式执行的顺序不确定。如表达式a:=g(2)+f(3);不保证g(2)一定在f(3)之前执行。,补充,8、在FP中，如果用Rewrite打开文件，那么文件就只能被写入了。如果需要读取这个文件，要对文件执行Reset。9、FP在程序结束之前一定要关闭输出文件，否则输出文件可能不能被正确的写入。10、Free Pascal在windows 95及其以上的windows版本上支持长文件名。对于文件名，由于windows系统对大小写不敏感，因此在程序中，文件名的大小写是无关的。但是对于其它大小写敏感的系

6、统，比如linux，程序中用到的文件名必须和系统中的文件名完全一致。但是由于信息学竞赛的评测系统一般是linux，因此要求程序中的文件名和系统中的文件名一样。11、FreePascal和TP语法兼容，但是最不同的就是调试过程。FP中对于数据类型的范围有一定改动，而且语法要求更苛刻。FP的帮助系统比较不好，尤其是和TP比，基本上没法用。FP调试系统分编译调试和执行时调试两种。编译调试在Compiler框内显示，基本上会给出错误的行和列，但是其定位效率却没有TP好，有的时候仅仅是少了一个分号，可能会因此给你五六个错误提示，而其原因就是那个分号。执行时错误就更惨。TP会给你诸如“Stack over

7、flow error等大家能看懂的，但是FP给的是“Exitcode。而且这个Exitcode现在还找不到一个完整的解释资料。我现在仅仅知道Exitcode2是找不到输入文件，其他的还看不懂呢。有一个好办法就是把程序弄回TP找错，再到FP中执行。,第二章 Pascal程序设计语言基础,一、概述1.Pascal是结构化的语言 Pascal语言全面清晰地体现结构化思想。不仅提供了直接实现“顺序结构”、“选择结构”和“循环结构”的语句，而且还可以定义子程序（“函数”和“过程”）。在编程时可以完全不使用转向语句“goto”，使程序的执行顺序与行文顺序保持一致，便于理解；2.Pascal的数据类型丰富

8、Pascal语言不仅提供了整型、实型、字符型、布尔型等标准数据类型，而且还允许用户按照语法规则自定义枚举型、子界型、数组型、集合型、记录型、指针类型和文件类型，便于数值计算和非数值信息处理；3.Pascal语言可以实现模块的独立化要求 Pascal语言允许在函数和过程内部定义局部变量，允许在主程序和子程序之间传递参数，使得每一个子程序模块都能反映一个相对独立的性质，模块之间的联系简单清晰，便于修改；由于Pascal语言精确地表达了程序设计的基本概念，结构性好，表达能力强，因此成为学校程序设计课程的教学语言，计算机会考和奥林匹克信息学竞赛的规定语言。,1、程序结构,Pascal语言具有严谨的程序

9、结构【例】已知圆的半径，求它的周长和面积。,从这个简单的程序可以看到：一个PASCAL程序分为两个部分：程序首部和程序体。程序首部 程序首部是程序的开头部分，有保留字program后接程序名及程序参数表组成，由分号结束。程序名是用户自己定义的标识符，参数表一般是文件变量名，用于该程序与外界的数据交流。最常用的参数为input和output。在turbo pascal语言中，首部中的参数表可以省略，首部也可省略。程序体 程序体是程序的主体部分，由说明部分和执行部分两部分组成。说明部分：用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是变量说明，用来定义变量的名称、类型。PASC

10、AL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称说明）。也就是说，不允许未说明先使用。执行部分：以begin开始，以end结束，其间有若干个语句，语句之间以分号隔开。一条语句执行一定的功能，所有语句完成程序设计的任务。允许一行写多个语句，也允许一个语句写几行，最后一行的end后加一.号表示结束。,2、完整的pascal程序框架：,program 程序名（程序参数表）；label 标号说明；const 常量说明；type 类型说明；var 变量说明；function 函数说明；procedure 过程说明；begin 程序语句1；程

11、序语句n；end.,程序首部,程序体,说明部分,执行部分,二、基本符号、保留字、标识符：,1基本符号：是ASCII字符集，主要有：26个英文字母(不分大小写，字符串中的字母例外。十个数字符号。特殊符号+-*/=():=.,；:.,2保留字：保留字是指pascal语言中一些有特殊含义的英文单词，它们已被pascal语言自己使用，都有专门的用途。Pascal 语言中保留字有36个，可分为以下六种类型：程序、函数、过程的符号：program，function，procedure 说明部分的专用定义符号：array，const，file，label，packed，var，record，set，type

12、，of 语句专用符号：case，do，downto，else，for，goto，if，repeat，then，to，until，while，with，forward 运算符号：and，div，in，mod，not，or 分隔符号：begin，end 空指针常量：Nil7.PROTECTED,PUBLIC,PUBLISHED,TRY,FINALLY,EXCEPT,RAISE（fp新增保留字）,3.标识符：标识符是以字母开头的字母数字序列(大小写等效，可跟下划线_)，用来标识常量、变量、程序、函数等。Pascal中允许的标识符的有效长度为63。标识符分为两大类：标准标识符：标准常量：false，t

13、rue，maxint(32767)标准类型：integer，real，char，boolean，text 标准文件：input，output 标准函数：abs，arctan，chr，cos，eof，eoln，exp，ln，odd，ord，pred，round，sin，sqr，sqrt，succ，trunc 标准过程：get，new，pack，page，put，read，readln，reset，rewrite，unpack，write，writeln 自定义标识符 由用户自己在程序首部或说明部分进行定义，但要注意以下几点：不能与保留字同名；避免与标准标识符同名；最好有一定的含义，增加程序的可读

14、性。例如：在程序中如用到数学中的，则在定义该常量时可用PI表示。,三、数据类型、常量、变量及说明方法,数据类型确定了该类型数据项的表示、取值范围以及所能参与的运算。在pascal语言中，无论常量还是变量都必须属于一个确定的数据类型。Pascal 提供了丰富的数据类型，可以分为三大类：简单类型：分为标准类型（整型、实型、字符型和布尔型）和自定义类型（枚举型和子界型）构造类型：分为数组类型、集合类型、记录类型和文件类型 指针类型 这些数据类型中除了指针类型是动态数据类型外，其他的都是静态数据类型。另外，我们把整型、字符型、布尔型、枚举型和子界型称为顺序类型。,1标准数据类型：整数类型：,整数类型包

15、括正整数、负整数和零。整数只能由正负号和数字组成，不允许出现其他字符，“+”号可以省略。,名称 类型数值范围 占字节数 字节型 Byte 0.255 1 字型 Word 0.65535 2 短整型 Shortint-128.127 1 整型 Integer-32768.32767;2 长整型 Longint-2147483648.2147483647(9位)4 长字型 Longword 0.4294967295 4 整数INT64 Int64-9223372036854775808.9223372036854775807 8Q字型 QWord 0.18446744073709551615 8（

16、整数部分19位）,Turbo Pascal规定了两个预定义整型常量表识符maxint和maxlonint，他们各表示确定的常数值，maxint为32767，longint为2147483647，他们的类型分别是integer 和longint。整数的运算符有+、-、*、div、mod，后三种运算符的优先级高于前两种，整数运算的结果也为整数。当两个整数用/相除时，结果为实型，只能赋给实型变量。,实数类型包括正实数、负实数和实数零。它的标识符是real。有两种表示实数的方法：十进制表示法；科学记数法：3.4E3表示3.4*103实数的绝对值在1E-38到1E38之间。,实数类型：,实数的运算有+、

17、-、*、/、结果也为实型。整数参与实数运算，系统自动将整数转化为实数再运算，结果为实数。,2)实数 名称 Type Range Significant digits Size 实型 Real platform dependant?4 or 8单精度型 Single 1.5E-45.3.4E38 7-8 4双精度型 Double 5.0E-324.1.7E308 15-16 8扩展型 Extended 1.9E-4951.1.1E4932 19-20 10装配十进制型Comp-2E64+1.2E63-1 19-20 8,字符类型：目前微机上广泛使用的ASCII码字符集满足PASCAL对字符集的要

18、求。字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串string。布尔类型：一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值只有两个：false和true，并且false的序号是0，true的序号是1。false 和true都是预定义常数表识符，分别表示逻辑假和逻辑真。并且truefalse。boolean是布尔型的标识符。布尔类型的运算符有not(非)、and(与)、or(或)。参与布尔型运算的是布尔类型的数据，其结果也是布尔类型的数据。,2常量,常量：在程序执行过程中其值不能被改变的量。pasca

19、l除了maxint,true,false三个标准常量外，用户还可以使用常量定义语句定义新的常量。它的语法格式是：const=;.=;常量表识符的类型由定义它的常量的类型决定。例如：const a=12 隐含说明a是整型；const r=3.21 隐含说明r是实型。常量的定义具有单一性和不可改变性。,3变量,变量：在程序执行过程中可以改变值的数据。它的语法格式是：var:；.:；其中，保留字var表示开始一个变量说明部分。变量标识符列表是一个用逗号隔开的标识符序列，冒号后面的类型是类型标识符。每个变量说明均以分号结束。例如：vara,b,c:integer;m,n:real;,1标准函数：算术函

20、数：函数标识符 自变量类型 意义 结果类型Abs 整型、实型 绝对值 同自变量Arctan 整型、实型 反正切 实型Cos 整型、实型 余弦 实型Exp 整型、实型 指数 实型Int 整型、实型 整数部分 实型Ln 整型、实型 自然对数 实型Sin 整型、实型 正弦 实型Sqr 整型、实型 平方 同自变量Sqrt 整型、实型 平方根 实型Power(a,b)表示a的b次方，也可以写成a*b，兼容所有数结构,四、函数与表达式,2运算符和表达式,运算符和优先级 算术运算符：,表达式,表达式：是指由常量、变量、函数、括号、集合及运算符联结起来的式子。表达式中各运算符的优先级：,表达式有以下几种,a.

21、算术表达式：例如：写出一个整数能被3整除所得余数的表达式b.关系表达式：例如：写出一个能表示正数的表达式c.逻辑表达式：例如：写出一个数既能被3整除又能被5整除的表达式,习 题,1.ax2+bx+c的PASCAL的表达式是_2.一元二次方程的根的PASCAL的表达式是_3.表达式2/4*5的值是_，表达式10*4 mod 5*22/4*5的值是_4.i是j的整数倍的布尔表达式是_，m是偶数的布尔表达式是_，y在-2至-1之间的布尔表达式是_，y是闰年的布尔表达式是_。5.有一编码规则如下：原码：A B C X Y Z 密码：Z Y X C B A 已知原码变量x，则密码的表达式是 _。,第三章

22、 程序设计初步,前言：什么是程序设计？程序设计的步骤是什么？结构化程序设计的特点是什么？,一.什么是顺序结构：【例1】：键盘输入两个变量的值，交换值后输出。方法：间接交换法算法分析：（“自顶向下，逐步求精”的编程思想）s1:通过键盘给a,b两个变量赋值；s2:交换a,b的值；s2-1:引入中间变量c；s2-2:在c中存放的a值；s2-3:在a中存放的b值；s2-4:在b中存放的c值；s3:输出变量a,b的值。程序代码：program ex1(input,output);var a,b,c:integer;beginwrite(please input a,b:);read(a,b);write

23、ln(a=,a,b=,b);c:=a;a:=b;b:=c;writeln(a=,a,b=,b)end.,第一节 顺序结构程序设计,Pascal 语言的语句分为简单语句（也称基本语句）和复合语句（也称构造语句）,二：几个简单语句：1赋值语句：格式：变量标识符：=表达式；功能：计算和赋值双重功能：【例2】写出程序执行后，变量的值。程序代码：program ex2(input,output);vara,b:integer;c:real;ch:char;bool:boolean;begin a:=3;b:=a;b:=a+1;a:=a+1;c:=a+b;ch:=h；bool:=true;bool:=no

24、t bool;end.说明：1）“：=”赋值号不同于“=”号，具有方向性，具有计算功能。2）赋值号两边的类型应该相同，但有一个例外。3）一个赋值语句只能给一个变量赋值，可以多次给一个变量赋值。4）被赋值的变量可以作为因子参与运算。,2输入语句（read,readln）：格式：read(变量名表);readln read(a1,a2,a3);等价于 read(a1);read(a2);read(a3);readln(a1,a2,a3);等价于 read(a1);read(a2);read(a3);readln;功能：通过键盘，给指定的变量赋值。【例3】：写出程序运行后，变量的值。程序代码：pro

25、gram ex3(input,output);var a,b,c:integer;i,j,k:real;ch1,ch2,ch3:char;begin read(a,b,c);readln(i,j,k);read(ch1,ch2,ch3)；writeln(a=,a,b=,b,c=,c);writeln(i=,i,j=,j,k=,k);writeln(ch1=,ch1,ch2=,ch2,ch3=,ch3);end.程序运行后，输入数据：1 2 3 4 56.1 7 8 9 0dos,说明：1）变量名表中的变量可以是一个变量，也可以是多个变量，多个变量之间用逗号隔开。2）程序运行后，执行到该语句时，

26、系统处于等待状态，等待用户从键盘输入数据。输入数值型数据（整型和实型），数据间用空格分隔；输入字符型数据，数据间不须分隔。3）输入数据一定为常量，且与变量保持类型一致。4）输入数据个数不能少于变量个数，否则，系统继续等待输入。,read语句与readln语句区别,（1）read语句是一个接一个地读数据，在执行完本Read语句(读完本语句中变量所需的数据)后,下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如：Read(a,b);Read(c,d);Read(e);如果输入数据行如下:123456则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据6是多余的，这

27、是允许的。,Readln则不同，在读完本Readln语句中变量所需的数据后,该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。设有下列语句:read(a,b,c);readln(d,e);readln;readln(f,g);其中,所有变量均为整型。再设输入的数据如下：12 345678 910 11,(2)readln语句与read语句的第二个区别是:,read 后一定要有参数表,readln可以不带参数表,即可以没有任何输入项,只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车,3输出语句（writ

28、e,writeln）：格式：write（输出项）；writeln；功能：按指定的格式将输出项的内容输出。【例4】：写出程序运行后的结果。程序代码：program ex4(input,output);consta=10;b=20;begin writeln(50);writeln(a);writeln(a+b);writeln(a+b=,a+b)end.说明：1）输出项的内容可以是一项，也可以是若干项，各项之间用逗号分隔。2）当输出项为常量，直接输出常量的值；当输出项为变量时，输出该变量存储单元内的内容，变量允许属于任何一种标准数据类型；当输出项为表达式时，先计算后输出；当输出项为字符串时，原样

29、输出单引号括起来的内容。,Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于:write语句将其后括号中的表达式一个接一个输出后，没有换行。而writeln语句则在输出各个表达式的值后换行。例如以下两个程序段的输出分别为：write(1,2,3,4);write(5,6);输出为：123456writeln(1,2,3,4);write(5,6);输出为：123456,实数的输出格式,实数（real）以浮点型格式输出。例如805.67对应的浮点数为8.056700000000E+02。这种实数表达方式很不方便。我们可以通过下述形式强迫实数以定点型格式输出

30、：实数表达式：域宽：小数位数例如，t的值设为63.123。下面三条输出语句分别有它们右边所示的输出格式：write(t)；6.312300000000E+01 write(t：6：2)；63.12 write(t：10：5)；63.12300 write(t：0：2)；63.12,输出语句的输出格式：,什么是场宽（或域宽）？pascal中将输出项的数据显示占用的宽度称为场宽 场宽的分类：标准场宽和自定义场宽。自定义场宽又分为单场宽和双场宽。标准场宽：writeln(x),x直接输出，如x为实数，按科学计数法死的形式输出。单场宽的形式：x：n；如：writeln(x:n)可以输出的项目有整型、字

31、符型、布尔型，不允许实型。双场宽的形式：x：n1：n2；如：writeln(x:m:n)控制实型数据的输出。自定义场宽的注意事项 a.优先级高于标准场宽。b.单场宽输出格式一律是左留空、右对齐。实型的双场宽输出时是向小数点看齐，多余的小数为数补零。c.突破场宽时，扩展到所需位数.d.n2小于实际位数，显示时舍去多余位数，但内存中该数的精度保持不变。,【例5】：写出程序的运行结果：program ex5(input,output);var a:integer;b:real;c:char;d:boolean;begin a:=1357;b:=1234.5678;c:=%;d:=true;write

32、ln(a,a:5);writeln(b,b:12:5);writeln(c,c:5);writeln(d,d:5);writeln(end:5)end.,定义：复合语句是由若干条语句组成的语句序列。形式：begin 语句1；语句2；语句nend；用保留字begin和end括起来，构成一条逻辑上的语句，语法上充当一条语句。,三：复合语句：,四：综合应用：【例6】:随机产生一个三位自然数，分离出它的百位、十位与个位上的数字。算法分析：s1：随机产生一个三位自然数；s2：分离出该自然数的百位、十位、个位上的数字；s3：输出百位、十位、个位上的数字。程序代码：program ex6(input,out

33、put);varx,ge,shi,bai:integer;beginrandomize;x:=trunc(random*900)+100;writeln(x=,x);bai:=x div 100;shi:=(x-bai*100)div 10;ge:=x mod 10;writeln(bai=,bai);writeln(shi=,shi);writeln(ge=,ge)end.,上机练习题,1.上机调试出例6。2.试编一程序,输入一梯形的上底、下底、高,求该梯形的面积。3.某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一

34、个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。,第二节 选择结构程序设计 一：什么是选择结构？选择结构的特点？二：选择结构的几种语句：1if 语句：功能：执行过程说明：1）该语句为一个语句；2）条件是一个布尔表达式或一个布尔变量，then 和else后的语句可以是单个语句，当需要多条语句时，用begin和end括起来构成复合语句。3）当布尔表达式的值为真，则执行then后面的语句，值为假时有两种情况：要么什么也不做，要么执

35、行else后面的语句。注意:else前面没有分号.,格式一：if then；,格式二：if then else；,逻辑、算术、关系运算符的运算次序：括号函数、not*、/、div、mod、and+、-、or、=、,补充,【例1】:将输入的两个非负实数中较大的放在max里，小的放在min里，并输出。算法分析：s1:输入两个数放在max,min中；s2:判断max,min的值，将大数放在max里，小数放在min里；s3:输出max,min的值。程序代码：program ex1(input,output);varmax,min,t:real;begin writeln(input two num(0

36、):);read(max,min);if maxmin then begin t:=max;max:=min;min:=t end;writeln(max=,max,min=,min)end.,例2:输入一个整数，判断是否为偶数。（是输出“”否则输出“”）。Var a:integer;Begin readln(a);If(a mod 2=0)then writeln(yes)Else writeln(no);End.,2if 语句的嵌套：格式：(1)if 语句嵌套在then语句中if 条件1 then if 条件2 then 语句21 else 语句22 else 语句12；（2）if 语句嵌

37、套在else语句中if 条件1 then 语句11 else if 条件2 then 语句21 else 语句22；,【例2】:计算下列函数,分析：根据输入的x值，先分成x0与x0两种情况，然后对于情况x0，再区分x是小于0，还是等于0。,程序代码：program ex;varx:real;y:integer;begin write(input x:);readln(x);if x0then y:=1else if x=0then y:=0else y:=-1;writeln(x=,x:6:2,y=,y);end.,但是对于本题，下面的程序是否正确。y:=0;if x=0then if x0

38、then y:=1 else y:=-1;请同学们思考为什么？并在上机实践时验证？,程序代码：program ex2(input,output):var a,b,c:integer;begin write(a,b,c(0):);readln(a,b,c);if(a+bc)and(a+cb)and(b+ca)then if(a*a+b*b=c*c)or(a*a+c*c=b*b)or(b*b+c*c=a*a)then writeln(a=,a,b=:5,b,c=:5,c,is rt triangle.)else writeln(a=,a,b=:5,b,c=:5,c,is not rt triang

39、le.)else writeln(a=,a,b=:5,b,c=:5,c,is not triangle.)end.,【例3】:输入三角形的三边，判断它是否是直角三角形。,3case 语句：分情况语句（多分支语句）格式：case 表达式 of 常数表1：语句1；常数表2：语句2；常数表n：语句n;else 语句n+1 end;功能：执行过程说明：1）end 与case 对应 2）表达式的类型通常是整型、字符型 3)常量表是常量，其类型与表达式的类型要一致。常量表中的常量不能重复。,【例4】:输入两个数（均不为零）及一个算术运算符，输出其运算的结果程序代码：program ex3(input,ou

40、tput);varx,y,s:real;ch:char;begin writeln(input x writeln(x,ch,y,=,s)end.,上机练习题1.求一元二次方程ax2+bx+c=0的根。算法分析：方程的系数a,b,c决定了方程有无根，是几个根，是实数根还是复根。2.打印某年某月有几天。算法分析：可分为以下3种情况：每年的1，3，5，7，8，10，12这七个月每月为31天；每年的4，6，9，11这四个月为30天；2月又分为两种情况：闰年为29天，否则为28天。判断闰年的条件：年数能被4整除，并且不能被100整除，或者年数能被400整除；（year mod 4=0）and(year

41、 mod 1000)or(year mod 400=0),第三节 循环结构程序设计,一、什么是循环结构？其特点是什么？二、循环结构的三种形式：循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环while、直到repeat循环。通常将一组重复执行的语句称为循环体，而控制重复执行或终止执行由重复终止条件决定。因此，重复语句是由循环体及重复终止条件两部分组成。,1for语句,1for语句：（“计数循环”）：就是将规定循环体重复执行的次数。格式：for 控制变量：=初值 to 终值 do 循环体语句；for 控制变量：=初值 downto 终值 do 循环体语句；2、For语句执行过

42、程 先将初值赋给左边的变量（称为循环控制变量）；判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤；如果末超过终值，则执行do后面的那个语句（称为循环体）；循环变量递增（对to）或递减（对downt o)；返回步骤；循环结束，执行循环下面的一个语句。3、说明：1)初值和终值可以是表达式，控制变量和初值、终值的类型相同，且必须是整型、布尔型和字符型等顺序类型，不能为实型。2）递增按succ函数规律变化，递减按pred函数规律变化，整型按数值大小变化，如果为字符型量，按ASCII码表的顺序计算。3）初值和终值在循环之前计算，重复过程中，其值不受影响；不得在循环语句中对控制变量进行赋值。4

43、）当初值超过终值，不执行循环，循环次数为零。,【例1】:计算1+2+3+4+100之和。算法分析：对于求和，我们使用的是累加的办法。程序代码：program ex1(input,output);var i,sum:integer;begin sum:=0;for i:=1 to 100 do sum:=sum+I;writeln(sum=,sum)end.补充说明：类似sum迭加变量这样的功能称为“累加器”；类似i这样的变量称为“计数器”；“计数器”和“累加器”是在程序中经常使用的基本操作语句。,【例2】:对程序稍加改动，算出以下算式：请同学们思考怎样改动程序可以实现？s=2+4+6+100

44、s=1+1/2+1/3+1/100 s=12+22+32+1002,【例3】:键入一个自然数，输出其所有约数，计算出这些约数之和并输出。算法分析：解决这一问题的关键是找出约数，也就是判定一数能否被另一数整除。可以用x mod y=0，来找出所有约数。程序代码：program ex3(input,output);var i,x,y,sum:integer;begin write(x=);read(x);sum:=0;i:=0;for y:=1 to x do if x mod y=0 then begin write(y:8);i:=i+1;if i mod 5=0 then writeln;s

45、um:=sum+y end;writeln(sum=,sum)end.,If语句,For语句,If语句作为For语句的循环体,【例4】:编程找出四位整数abcd中满足下述关系的数。(ab+cd)(ab+cd)=abcd算法分析：这道题属于搜索问题，因为是四位整数，其范围从10009999，所求的数究竟在哪里，无法确定，只有在这个范围内从小到大一个一个进行搜索，对每一个数，看它的高两位数与低两位数和的平方是否为该数。高两位数：abcd div 100=ab低两位数：abcd mod 100=cd程序代码：program ex4(input,output);var i,m,n,k:integer;

46、begin for i:=1000 to 9999 do begin m:=i div 100;n:=i mod 100;k:=(m+n)*(m+N);If k=i then write(I:8)end end.补充说明：以上用的方法也叫“枚举法”，又称“穷举法”。它是用计算机解题的一种常用的办法。它的基本思路是：一一枚举各种可能的情况，并判断哪一种可能是符合要求的解。方法虽然很笨，然而与计算机高速的处理能力相结合，也不失为一种较有用的方法,2while语句：对于for循环有时也称为计数循环。适合用于事先知道循环次数.当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句实现

47、循环要更方便。（“当型循环”）：当条件满足时反复执行循环体。格式：while 布尔表达式 do 语句；执行过程：while语句的执行过程为：判断布尔表达式的值,如果其值为真,执行步骤2,否则执行步骤4;执行循环体语句(do后面的语句);返回步骤1;结束循环,执行while的下一个语句。说明：1）为了是while循环能正常终止，布尔表达式中的变量必须在循环体中的某语句中有所改变，即有可能是布尔表达式的值为假，使循环结束，否则将出现死循环。2）循环体中的语句一般是多条语句，用begin和end使其成为一条复合语句。,【例5】:输出1100之间的奇数。程序代码：program ex5(input,o

48、utput);var x:integer;begin x:=1;while x100 do begin write(x:5);x:=x+2 endend.,【例6】:输入若干个字符，它的终止符是#，计算输入的字符中a（A）出现的次数。算法分析：设计数器i，置初值为0；出入字符；当字符不为#时循环：如果字符为a或A，则计数器加1；读入下一个字符；输出计数器的值，程序结束。程序代码：program ex6(input,output);var ch:char;i:integer;begin i:=0;read(ch);while ch#do begin if(ch=a)or(ch=A)then i:

49、=i+1;read(ch)end;writeln(i=,i)end.,repeat语句：（“直到型循环”）：反复执行循环体直到条件满足为止。格式：repeat 语句1；语句2；语句3；语句n until 布尔表达式；功能：执行过程：先执行指定的语句序列，然后判别表达式。,3 repeat语句：（“直到型循环”）,说明：while语句和repeat语句都可以实现循环结构，但它们有四点不同：,【例7】:将例题6的程序用repeat语句改写。program ex7(input,output);var ch:char;i:integer;begin i:=0;repeat read(ch);if(ch

50、=a)or(ch=A)then i:=i+1;until ch=#;writeln(i=,i)end.,【例8】:从n个数中挑出最大的数。算法分析：读入n值；读入第1个数，赋值给变量max；依次读入后n-1个数，与max比较，若数值大于max，则将此数值赋给max;输出最大数。程序代码：program ex8(input,output);var n,m,max,x:integer;begin writeln(input n:);read(n);writeln(input n nums:);read(max);m:=0;repeat read(x);if xmax then max:=x;m:=