Pascal语言程序设计及算法基础(肖教宁).docx

注:本教程授课时间为十八课时,学生上机练习时间为十八课间,共计三十六课时。可同时 对六十名学生授课。第一章简单程序2第一节Pasca!程序结构和基本语句2第二节顺序结构程序与基本数据类型7第二章分支程序10第一节条件语句与复合语句10第二节 情况语句与算术标准函数12第三章循环程序16第一节for循环16第二节 repeat循环23第三节While循环27第四章函数与过程33第一节函数33第二节自定义过程36第五章 Pascal的自定义数据类型41第一节数组与子界类型41第二节二维数组与枚举类型49第三节集合类型58第四节记录类型和文件类型63第五节指针类型与动态数据结构70第六章程序设计与基本算法75第一节递推与递归算法75第二节回溯算法82第一章简单程序无论做任何事情,都要有一定的方式方法与处理步骤。计算机程序设计比日常生活中的 事务处理更具有严谨性、规范性、可行性。为了使计算机有效地解决某些问题,须将处理步 骤编排好,用计算机语言组成“序列”,让计算机自动识别并执行这个用计算机语言组成的 “序列”，完成预定的任务。将处理问题的步骤编排好，用计算机语言组成序列，也就是常 说的编写程序。在Pascal语言中，执行每条语句都是由计算机完成相应的操作。编写Pascal 程序，是利用Pascal语句的功能来实现和达到预定的处理要求。“千里之行，始于足下”， 我们从简单程序学起，逐步了解和掌握怎样编写程序。第一节Pascal程序结构和基本语句在未系统学习Pasca!语言之前，暂且绕过那些繁琐的语法规则细节,通过下面的简单例 题，可以速成掌握Pascal程序的基本组成和基本语句的用法，让初学者直接模仿学习编简 单程序。例1.1编程在屏幕上显示“HelloWorld!”。Pasca! 程序:Program exll;BeginWritelM'HelloWorkl!'）;ReadLn;End.这个简单样例程序，希望大家的程序设计学习能有一个良好的开端。程序中的Writein 是个输出语句，它能命令计算机在屏幕上输出相应的内容，而紧跟Writein语句后是对 圆括号，其中用单引号引起的部分将被原原本本地显示出来。例1.2已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少?解:若总售价用m来表示,则这个问题可分为以下儿步处理:从键盘输入自行车的数目a；用公式m=300*a计算总售价;输出计算结果。Pasca! 程序:Program Ex 12;Var a5m : integer;BeginWrite(ta=,);ReadLn(a);M := 300* a;程序首部说明部分（语句部分）输入自行车数目计算总售价Writeln('M=m);输出总售价ReadLn;等待输入回车键End.此题程序结构完整,从中可看出个Pasca!程序由三部分组成:(1)程序首部由保留字Program开头,后面跟个程序名(如:Exll);其格式为:Program 程序名;_程序名由用户自己取,它的第一个字符必须是英文字母,其后的字符只能是字母或数 字和下划线组成,程序名中不能出现运算符、标点符和空格。(2)说明部分程序中所用的常量、变量，或类型、及过程与自定义函数,需在使用之前预先说明， 定义数据的属性(类型)。例1.2程序中VarS, R, C: Real,是变量说明,此处说明S, R，C三个变量均为实数类型变量。只有被说明为某类型的变量，在程序中才能将与该变 量同类型的数值赋给该变量。变量说明的格式为:Var变量表:类型;(3)语句部分指由保留字Begin (开始)至End.(结尾)之间的语句系列，是解决问题的具体处理步 骤,也是程序的执行部分。Pascal程序不管是哪部分,每句末尾都必须有分号(；),但允许最接近End的那个语句 末尾的分号省略:程序结束的End末尾必须有圆点(.),是整个程序的结束标志。程序中花括号“之间的部分为注释部分。Pascal程序结构可归纳用如下的示意图来表示:Program 程予名:标号说明:(Label) 常量说明:(Const) 类型说明:(Type) 变量说明:(Var) 过程或函数说明:Begin语句系列:End.图1.1 Pascal程序的结构说明部分程序体(主程序)语句部分程序首部把处理问题的步骤编成能从上到下顺序执行的程序,是简单程序的基本特征。再来分析 下面两道例题的Pasca!程序结构和继续学习基本语句。例1.3编程计算半径为R的圆的面积和周长。解：这是个简单问题，按数学方法可分以下几步进行处理：从键盘输入半径的值R：要求告诉圆的半径R用公式S=nR2计算圆面积;计算圆周长;Pasca! 程序:Program Exl3；Var R, S» C: Real；程序首部BeginWrite ('R二?')； Readln(R)； S:=Pi*R*R；C:=2*Pi*R；WritelnCS=', S)； WritelnCC士,C)； Readln说明部分语句部分输入半径）（圆面积公式S= n R2 圆周长公式C=2"R） 输出结果（等待输入回车键用公式C=2n R 输出计算结果。End.程序中Pi是Pascal提供的标准函数,它返回圆周率的近似值:3.1415926。（:=）是赋值符号,赋值语句的格式为:变量:=表达式:赋值语句的作用是将:=右边表达式的值记录到左边的变量中。Writein是输出语句,输出语句有三种格式:Write （输出项1,输出项2） ；执行输出后光标不换行Writein （输出项!,输出项2） ；执行输出后光标换到下一行WriteinI仅输出空白且光标换到下一行Writein语句后面的圆括号以内部分均为输出项，可以是多项，各项间用逗号分隔;对 单引号里的内容按照引号内的原样（字符）输出显示。如果输出项是表达式,则只输出表达式 的值,而不是表达式本身。例1.4输出两个自然数相除的商和余数。解:设被除数、除数、商和余数，分别为A, B, C, D,均为变量，且都是整数类型。题 中未给出具体的自然数A、B,可采用键盘输入方式。 给出提示,从键盘输入a, b；显示两数相除的数学形式;求出a除以b的商c；求出a除以b的余数d；紧接等式后面输出显示商和余数。Pasca! 程序：Program Exl4：Var a,b,c,d : integer；BeginWrite(lNPUTA, B：')；给出提示信息Readln(a,Writein；Write(a,，b,'=')c:=a div b；d:=a mod b：Writeln(C,d)；Readln输入a, b）输出一空行输出等式之后不换行整除运算,取商的整数部分相除求余运算,取商的余数部分输出后自动换行）等待输入回车键End.执行本程序中第一个Write语句,输出其引号以内的串提示信息,是给紧接着的输入 语句提供明确的提示（要求）,有“一目了然,人机对话”之效果。Readln是一个特殊的输入语句，要求输入一个回车（换行）才能往下执行。Readln是输入语句,它的般格式为:Read (变量1,变量2)；Readln (变量1,变量2)； Readln前两种格式均要从键盘给变量输入数据,输入时,所键入的数据之间以空格为分隔,以 回车为输入结束。若多输入了数据（即数据个数超过变量个数），Read语句读完数据之后,能 让后续的读语句接着读取多下来的数据;而Readln语句对本行多输入的数据不能让后续语 句接着读取多下来的数据。为了防止多输入的数据影响下个输入语句读取数据,建议尽量 使用Readln语句输入数据。第三种格式不需输入数据，只需按入一个回车键。例1.5自然数的立方可以表示为两个整数的平方之差，比如43=12一62,请输出自然数1996 的这种表示形式。（这里的用臼乘二次的形式4*4*4表示;IO也用自乘二次的形式11 表示）解:此题没有现成的计算公式能直接利用，但可以自行推出处理方法或构建适当的运算公 式,按着构想的处理方案编排出各步骤。设这个自然数为N,两个平方数分别为X, Y,将问题表示为求N3=X2-Y2先找出X的值，仔细观察题中的示例，用数学方法归纳可得出X=N*（N+l）/2；（构成 本题可用的计算公式） 再仔细观察,发现丫值比X小一个N值,即Y=XN；输出等式 N3=X2Y2 或 N*N*N=X*XY*丫Pasca! 程序:Program Ex 15；Const N=1996；常量说明Var X, Y: Longint；变量说明,此题计算中的数值较大,用长整型BeginX:=N*（N+l）div2； div 是整除运算Y:=X-N；Writeln（N,'*',N,'*', N；=', X；*', X；',Y,'*',Y）；输出结果）End.本程序中N是常量,X, Y是变量,为长整数类型（Longint）;程序中的div是整除运 算,其结果只取商的整数部分: 例1.6求一元二次方程x2+3x+2=0的两个实数根。解:方程的系数是常量,分别用a, b, c表示,可运用数学上现成的求根公式求方程的根, 采取如下方法:先求出d=b2>4ac；（求根公式中需用开方运算的那部分）再用求根公式算出xl, x2的值。（xl, x2 = ?）输出xl, x2.Pasca! 程序：program Exl6；Const a= 1 ；b=3；c=2；Var d : integer；XI, X2: Real；Begind:=b*b-4*a*c；xl:=(-b+sqrt(d)/(2*a)；x2:=(-b-sqrt(d)/(2*a)； WritelnCXl=', XI, 1 f:6,Readln'X2=',常量说明a, b, c表示方程系数）d为整型变量）XI, X2为实型变量）求方程的根X2）； 输出结果等待输入个回车键2.3.4.求右图所示边长为5.6的正立方体表面积。已知图园柱体的高为12,底面园的半径为7,End.本程序中的a, b, c均为常量;变量d是整数类型,而变量xl, x2则是实数类型,因 为运算式中的Sqn（d）开平方运算和（7）除法运算使结果为实数。Sqrt（）是开平方函数，是 Pascal系统的个标准函数。习题1.1 模仿例题编程1.加法计算器:编程由键盘输入两个整数a和b,计算出它们的和并输出到屏幕上。某梯形的上底、下底和高分别为8, 12, 9,求该梯形的面积。 （梯形面积公式为S=（上底+下底）x髙5.计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。 （请用输入语句从键盘输入各科成绩分）第二节顺序结构程序与基本数据类型前面的简单程序已体现出处理问题步骤、思路的顺序关系,这就是顺序结构程序。例1.7交换两个变量的值:由健盘输入两个正整数A和B,编程交换这两个变量的 值。解:交换两个变量的值,可以想象成交换两盒录音带(称为A和B)的内容,可以按以 下步骤处理：步骤:拿一盒空白录音带C为过渡，先将A翻录至C；步骤：再将B翻录至A；步骤:最后将C翻录至B。这样操作,可达到题目要求。Pasca! 程序:Program Examl7;Var a,b,c : integer;BeginWrite(tA,B=,);Readln(a,b);C:=A;等价于步骤1A:=B;等价于步骤2B:=C;等价于步骤3)Writeln(A,B);End.例1.8分钱游戏。甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙两人，所分给的 数与各人已有数相同;接着由乙分给甲、丙，分法同前：再由丙分钱给甲、乙,分法亦同前。 经上述三次分钱之后，每个人的钱数恰好一样多。求原先各人的钱数分别是多少?解:设甲、乙、丙三人的钱数分别为A, B, C。用倒推(逆序)算法，从最后结果入手, 按反相顺序,分步骤推算出每次各人当时的钱数:(在每个步骤中，各人钱数分别存在A、B、 C中)步骤:A=8B=8 C=8这是最后结果的钱数，三人都一样多步骤:A=A/2(=4) B=B/2 (=4) C=A+B+C(=16) A, B未得到丙分给的钱时，只有结果数的一半;C应包含给A, B及本身数三者之和步骤:A=A/2(=2) C=C/2(=8) B=A+B+C(=14)A, C未得到乙分给的钱时,只有巳有数的一半；B应包含给A, C及本身数三者之和步骤:B=B/2 (=7) C=C/2 (=4) A=A+B+C(=13)C未得到甲分给的钱时,只有巳有数的一半;A应包含给B, C及本身数三者之和 步骤：输出A (=13) B (=7) C (=4) 此时的A, B, C就是三人原先的钱数 Pasca! 程序：Program Examl8；Var a, b, c: integer；Begina: =8； b:=8； c:=8；对应于步骤)a:=a div 2；b:=b div 2；c:=a+b+c；对应于步骤a:=a div 2；c:=c div 2；b:=a+b+c；对应于步骤b:=b div 2；c:=c div 2；a:=a+b+c；对应于步骤Writeln('a±,a, '4,'b=', b, '4, 'c=', c) ； 输出)ReadlnEnd.细心观察,会发现本程序语句的顺序很关键。此例用反推顺序（逆序）,按步骤正确推算 出各变量的值。当然，有的问题可按正序步骤编程,这类程序都称为顺序程序。本程序Writein语句的输出项含有（'4）,这里的冒号用来指定该项显示所占宽度, 此处是输出4个空格即（空格项占4格）。例1.9有鸡兔同笼，头30,脚90,究竟笼中的鸡和兔各有多少只?解:设鸡为J只，兔为T只，头为H,脚为F,贝:J+T=302*J+4*T=90解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法:假设笼中30个头全都是兔,那么都按每头4只脚计算,总脚数为（4*H）,与实际脚数（F） 之差为（4*HF）,如果这个差=0,则笼中全是兔（即鸡为0只）;如果这个差值0,说明 多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，处理步骤为:J=（4*HF）/2先用脚数差值除以2算出鸡的只数）T=H-J再用总头数减鸡数算出免的只数按此方法，这两步运算必须注意先后顺序会符合运算逻辑。Pasca! 程序:Program Examl6；Const H=30；常量说明F=90；VarJ, T: byte：为字节类型的整数BeginJ:=（4*H-F） div 2；整除运算T:=H-JWritein （7=', J, '6, T=', T）；ReadlnEnd.本程序中H, F为常量，变量J, T为byte类型，属于整数类型。Pascal定义了五个标准整数类型,如下表所示：类型取值范围占字节数格式Shortint （短整型）-128.1271带符号8位Integer(整型)-32768.327672带符号16位Longint (长整型)-2147483648.21474836474带符号32位Byte （字节型）0.2551无符号8位Word（字型）0.655352无符号16位在前面程序中常用的数据类型除整数类型,还有实数类型。Pasca!还定义了五个标准实 数类型，列表所示如下:类型取值范围占字节数有效数字Real2.9X10-391.7X 1038678位Single1.5X1O-453.4X 103841112位DoubleS.OXIO-I.VXIO30881516位Extended1.9X1O495I1.1X 104932101920 位Comp-263+l238-l819-20 位在Turbo Pasca!中实数的表示用科学记数法,可认为由三部分组成：#. #E+# 或 # . # E -#. #表示有效数字；E表示以10为底的幕；钙#或"#是指数部分,+号可 省略。例如：1.7E+38 可写成 1.7E38（等同于 1.7X1038）。在实数类型定义下,即使是整数,在程序执行时系统也将自动转换成科学记数形式，试 请运行下面程序并注意观察运行结果:Program Exam 17；X为实数类型把整数180赋给实数类型变量X输出的x自动表示成实数形式Var x: real；BeginX:=180；Writein ('x= x)；ReadlnEnd.习题1.21.已知ABC中的三边长分别为25.76, 74.03, 59.31I求 ABC的面积。其中P =（计算公式:S=2 .某车棚存有自行车和三轮车共65辆,它们的轮子数合计为150个。求该棚内存有的自 行车和三轮车各是多少辆?3 .甲、乙、丙三人分别有磁带36, 48, 64盒。先由甲把自己的磁带平均分为三份，分给 乙、丙各份，自己留下份;接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、 丙在上述过程中各人的磁带数分别是多少?（输出所有的中间结果）4 .五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友,使每人的糖块在各自 原有的基础上翻了一倍;接着第二位好友也同样向每人赠送糖块,他同样使每人的糖块在各 人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每 人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?第二章分支程序在程序设计中,许多问题是在一定条件下选择某种处理方式的,这就需要用条件判断 语句或情况选择语句进行处理。程序执行中将出现选择(分支),根据条件只选择执行部分语 句,不一定都是按原顺序从头到尾地执行所有语句，这样的程序称为分支程序。第一节条件语句与复合语句例2.1某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100套的，每 套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。解:设X为订购套数,Y为付款金额，贝:_ 150*X(X> 100) 如果 X> 100 就用 Y=5X计算丫8X(X< = 100) 否则用 Y=8X计算输入X;判断X值;根据判断结果选择符合条件的那种方法计算Y值;输出计算结果。Pasca! 程序：Program Exam21 ；Var x» y: integer；BeginWrite(*X=*) ； Readln(x) ； 输入 Xif x >100 then y:=50*X else y: = 80*X；条件判断与选择Writeln('y,y)； ReadlnEnd.程序中的if语句常称为条件语句,它的一般格式为：(1) if条件then语句；(2) if条件then语句I else 语句2；IF语句的功能是按条件在两种可能中选择其中一种。习惯上把if后面的表达式称为条 件,then后面的语句称为真项,else后面的语句称为假项。若条件成立(为真)就执行真项, 然后执行if语句的后继语句；若条件不成立(为假)就跳过真项而执行假项，然后执行后继语 句。而第一种格式只有真项，没有假项，当条件不成立(为假)就什么也不需做，直接往下去 执行后继语句。例2.2读入三个不同的数,编程按由小到大的顺序排列打印出来。解:设读入的三个数为a, b, c,为了把较小的数排在前面,可作如下处理:如果a>b就交换a、b的值, 如果a>c就交换a、c的值, 如果b>c就交换b、c的值, 输出处理后的a,b,c。Pasca! 程序:Progranm Exam22；Var a, b» c, t: Real；将较大的值换至后面 将较大的值换至后面; 将较大的值换至后面BeginWrite('Input a, b, Readln(a, b, c)； if a>b then begint:=a； a:=b； end；if a>c then begin t:=a； a:=c； end；if b>c then begint:=b； b:=c； end；Writeln('a, b, c:0=')；复合语句b:=t (交换 a, b复合语句c:=t 交换 a, c复合语句c:=t交换 b, ca:6, b:6» c:6)；ReadlnEnd.if语句规定它的真项或假项位置上只能是一个基本语句,如果需要写组语句,就应当 使用复合语句。本程序中有三处用到更合语句。每个复合语句的范围是从Begin开始到与它 相对应的End为止。复合语句的地位和一个基本语句相同;其一般格式为:Begin语句系列End；习题2. 11 .假设邮局规定寄邮件时若每件重量在1公斤以内（含1公斤）,按每公斤1.5元计算邮费, 如果超过1公斤时,其超出部分每公斤加收08元。请编程序计算邮件收费。2 .输入三个正整数,若能用这三个数作为边长组成三角形,就计算并输出该三角形的面 积，否则输出Can'to （组成三角形的条件为:任意两边之和大于第三边）3 .输入个三位数的整数,将数字位置重新排列,组成一个尽可大的三位数。例如:输 入213,重新排列可得到尽可能大的三位数是321。第二节情况语句与算术标准函数如果有多种(两种或两种以上)选择,常用情况语句编程。4 前面例2.1改成用如下方法来处理。根据题意，付款计算可分为两种情况: Y=50*X(X>100) Y=80*X(X<=100)显然，情况与的选择取决于X值。假设用N表示“情况值”，暂且先让N=2；如果X>100则N=1；(此题屮N的值只是1或2,且取决于X值)Pasca! 程序:Program Exam21_l；Var X, Y, N: integer；BeginWrite('X=) ； readln(x) ； n:=2：先让 n=2ifX> 100 then n:=l；如果 X> 100 则 n=l Case n of关于情况处理1: Y:=50*X；2: Y:=80*X；end；Writeln(Y=', Y)；ReadlnEnd.程序中的Caseend语句为情况语句，是多路分支控制，般格式为:Case表达式of情况常量表1:语句1；情况常量表2:语句2；情况常量表n:语句nend；执行情况语句时,先计算Case后面表达式的值,然后根据该值在情况常量表中的“对 应安排”,选择其对应的语句执行，执行完所选择语句后就结束Case语句；如果常量表中没 有一个与表达式值对应的语句,则什么也不做就结束本Case语句。Case语句的另一种应用格式为:Case表达式of情况常量表1:语句1;情况常量表2:语句2； 情况常量表n:语句n；else 语句 n+1end；这种格式的前面部分是相同的,所不同的是:如果常量表中没有一个与表达式值对应的 语句,则执行与else对应的语句,然后结束Case语句。例2.2I对某产品征收税金,在产值1万元以上征收税5%;在1万元以下但在5000元 以上的征收税3%;在5000元以下但在1000元以上征收税2%； 1000元以下的免收税。 编程计算该产品的收税金额。解:设x为产值,tax为税金,用P表示情况常量各值,以题意中每1000元为情况分界:P=0:tax=0(x<1000)P=l, 2, 3, 4:tax=x*0.02(1000<=x<5000)P=5, 6, 7, 8, 9:tax=x*0.03(5000<X<= 10000)P=10:tax=x*0.05(x> 10000)这里的P是“情况”值,用产值x除以1000的整数值作为P,女課P>10也归入P=10 的情况。Pascal语言用P=trunc(x/1000)取整计算,Pasca! 程序:Program Exam22；Var x, p: integer；Tax : real；BeginWrite('Number=*) ； readln(x)；P:=trunc(x/1000)；ifP>9thenP:=10；Case P of0:tax:=0；1,2,3,4:tax:=x*0.2；5,6,7,8,9:tax:=x*0.3；10:tax:=x*0.5end；Writeln(,tt=, tt:5:2)；ReadlnEnd.情况表达式的计算必须考虑到“全部”情况,不要有遗漏。如果情况常量表的“值”在 某范围内是连续的,可将常量表写成:nl. n2：语句;因此，上面程序中的情况常量表可以写成如下程序中表示形式:Program Exam22_l ；Var x,p: integer；tax: real；BeginWrite(*Number=) ； readln(x)；P:=trunc(x/1000)；if P>9 then P:=10；Case P of0: tax:=0；1.4 : tax:=x*0.2；从1至4作为同一情况处理5.9 : tax:=x*0.3；从5至9作为同一情况处理10: tax:=x*0.5end；Writeln('tt=，tt:5:2)；ReadlnEnd.程序中的trunc(x)为取整函数,是Pascal的算术标准函数之一。Pasca!常用的算术标准函 数有19个:(1) abs(x)求 x 的绝对值(Ixl)；(2) exp(x)求ex的值；(e为无理数2.71828)(3) frac(x)求x的小数部分;(4)int(x)求x的整数部分(不舍入,函数值为实型)；(5) ln(x)求以e为底的x的对数(logex )；(6) odd(x)判断x的奇偶数(当x为奇数时odd(x)值为true,否则为false)；(7)ord(x)求x的序号,结果为整型(x为有序类型量)；(8) pi n 值(3.1415926535897932)；(9) pred (x)求x(有序类型)的前趋值;(10) succ(x)求x(有序类型)的后继值;(11) random随机函数，产生1的随机值;(12) random(n)产生n的随机数(n为word类型,先执行randomize,才能得到随 机整数)；(13)round(x)求x的四舍五入整数；(14) trunc(x)求x的整数部分(截掉小数部分,结果为整型)；(15) sqr(x)求 x 的平方值(x2)；(16) sqrt(x)求x的开平方根值()；(17) sin(x)求x的正弦函数(x为弧度)；(18) cox(x)求x的余弦函数(x为弧度)；(19) arctan(x)正切的反三角函数(x为数值)；习题2.21 .运输公司计算运费时,距离(S)越长,每公里运费越低,标准如下:如果S<250公里;运费为标准运价的100%如果250公里< = S<500公里，运费为标准运价的98%；如果500公里< = SV 1000公里,运费为标准运价的95%；如果1000公里< = SV2000公里，运费为标准运价的92%；如果2000公里< = SV3000公里，运费为标准运价的90%；如果S= >3000公里,运费为标准运价的85%；。请编计算运费的程序。2 .输入考试成绩，如果获85分以上为A等，获60分84分为B等，60分以下为C 等，编程输出考试等级。3 .某车间按工人加工零件的数量发放奖金，奖金分为五个等级:每月加工零件数N< 100 者奖金为10元；100< = N< 110者奖金为30元；110< = N<120者奖金为50元；120 < = N <130者奖金为70元；N>130者为80元。请编程,由键盘输入加工零件数量,显示应发奖金数。第三章循环程序在编程中经常遇到需要多次规律相同的重复处理,这就是循环问题。Turbo Pasca!采用 不同的循环方式来实现,常用的环循有三种:for> repeat> while.第一节for循环for循环是种自动计数型循环。例3.1试打印出120的自然数。解:用a代表120各数,同时也用a兼作计数,以控制循环次数;让a从1开始;输出a；a自动计数(加1),如果未超越所规定的循环范围则重复步骤,否则结束循 环。Pasca! 程序:Program Examl2；Var a: byte；Beginfor a:=l to 20 doWritein (a)；ReadlnEnd.程序中 for a:= 1 to 20 do Writein (a); 是 for 循环语句。for循环语句有两种格式:(l)for循环变量:=初值To终值do语句;(2) for循环变量:二初值downto终值do语句;第种格式的初值小于等于终值,循环变量值按自动加1递增变化;第(2)种格式的初值大于或等于终值,循环变量值按自动减1递减变化。for循环是(以 递增1或以递减!)计数型循环。比如:若将例3.1程序改为倒计数(递减)循环,则输出21的自然数数:Program Exam31 ；Var a: byte；Beginfor a:=20 downto 1 doWriteln(a)；ReadlnEnd.例3.2打印出30至60的偶数。解:方法一:设a表示30至60的所有的数,可用for循环列出;用式子a mod 2=0筛选出其中的偶数并输出。Pasca! 程序:Program ex32;Var a : integer;BeginFor a := 30 to 60 doIf (a mod 2=0) then writeln(a);Readln;End.在这个程序中,for循环后的循环语句是个条件分支语句。方法二:我们知道,在式子a=2*n中,若n取自然数1、2、3、，时,则a依次得到 偶数2、4、6、。因此要想得到30至60的偶数,就可以让上面式子中的n取15至30的 自然数就可以了。所以本题还可以按以下步骤处理:设n表示15至30的所有自然数，可用for循环列出;用式子a:=2*n求出其中的偶数;将结果输出至屏幕。Pasca! 程序：Program ex32;BeginFor n := 15 to 30 doBegina := 2*n;Writeln(a);End;Readln;End.例3.3自然数求和：编个程序，求从1至100的自然数的和。解:令S=0；令a表示1至100的自然数,用循环列出:将这些自然数用公式S:=S+a逐一累加到S中去;循环结束后,S即为1至100的自然数的和,输出即可。Pasca! 程序:Program ex33;var s,a: integer;BeginS := 0;For a := 1 to 100 doS := S+a;WritelnCS=S);Readln;End.例3.4个两位数x,将它的个位数字与十位数字对调后得到个新数y,此时y恰好 比x大36,请编程求出所有这样的两位数。解:用for循环列举出所有的两位数,x为循环变量;用公式a:= x div 10分离出x的十位数字: 用公式b:= x mod 10分离出x的个位数字;用公式y:=b*10+a合成新数y；用式子y-x=36筛选出符合条件的数x并输出。Pasca! 程序:Program ex34;BeginFor x := 10 to 99 doBegina := x div 10;b := x mod 10;y := b* 10+a;if y-x=36 then writeln(x);End;Readln;End.例3.5把整数3025从中剪开分为30和25两个数,此时再将这两数之和平方, (30+25-=3025计算结果又等于原数。求所有符合这样条件的四位数。解:设符合条件的四位数为N,它应当是个完全平方数,用(a*a)表示。 为了确保N=(a*a)在四位数(1000- 9999)范围内，可确定a在3299循环:计算N=a*a；将四位数N拆分为两个数nl和n2；若满足条件(nl+n2)*(nl+n2)=N就输出N。Pasca! 程序:Program Exam35；Var N, a, x, nl, n2: Integer；Beginfor a:=32 to 99 do begin N:=a*a；nl:=Ndiv 100；拆取四位数的前两位数n2:= N-nl*100；拆取四位数的后两位数X:=nl+n2； if x*x=N then writein (N)； end； Readln End.例3.6用“*”号打印出如下的长方形图案。解: 上面给出的图例共有4行,我们可以用一个循环控制行的变化;在每行中又有9歹,我们可以在前面控制行的循环中再套一个循环来控制列