PASCAL语言教程_(完整版)(3)

习惯上把if后面的表达式称为条件then后面的词语称为真项else后面的短语称为假项。若条件成立(为真)就执行真项然后执行if语句的后继语句若条件不成立(为假)就跳过真项而执行假项然后执行后继语句。而第一种格式只有真项没有假项当条件不成立(为假)就什么也不需做直接往下去执行后继语句。[例2.2]读入三个不同的数编程按由小到大的排序排列打印出来。11解:设读入的三个数为abc为了把较小的数排在上面可作如下处理:①如果ab就交换a、b的值将较大的值换至下面②如果ac就交换a、c的值将较大的值换至后面③如果bc就交换b、c的值将较大的值换至中间④输出处理后的a,b,c。Pascal程序:ProgranmExam22Varabct:RealBeginWrite('Inputabc=')Readln(abc)ifabthenbegin复合词组t:=aa:=bb:=t{交换ab}endifacthenbegin复合词组t:=aa:=cc:=t{交换ac}endifbcthenbegin复合词组t:=bb:=cc:=t{交换bc}endWriteln('abc:'a:6b:6c:6)ReadlnEnd.if语句规定它的真项或假项位置上没法是一个基本词语如果必须写一组词语就必须使用复合语句。

本程序中有三处用到复合语句。每个复合语句的范围是从Begin开始到与它相对应的End为止。复合语句的地位和一个基本词语相似其通常格式为Begin语句系列End习题2.11.假设邮局规定寄信件时若每件长度在1千克以内(含1公斤)按每千克1.5元估算邮费如果达到1公斤时其超过部分每千克加收0.8元。请编程序计算邮件收费。2.输入三个正整数若能用这三个数成为长度构成三角形就计算并输出该三角形的面积否则输出Can't。(构成三角形的条件为任意两边之和大于第三边)3.输入一个三位数的整数将数字位置再次排列组成一个尽可大的三位数。例如输入213重新排列可得到尽可能大的三位数是321。12第二节情况段落与算术标准变量即使有多种两种或两种以上选择常用情况语句编程。将上面[例2.1]改成用如下方式来处理。根据题意付款计算可分为两种状况显然情况①与②的选取取决于X值。假设用N表示“情况值”暂且先让N2如果X100则N=1此题中N的值也是1或2且取决于X值Pascal程序:ProgramExam21_1VarXYN:integerBeginWrite('X=')readln(x)n:=2{先让n=2}ifX100thenn:=1{如果X100则n=1}Casenof{关于情况处理}1:Y:=50*X2:Y:=80*XendWriteln('Y='Y)ReadlnEnd.程序中的Case─end语句为情况语句是多路分支控制一般格式为:Case表达式of情况常量表1:语句1情况常量表2:语句2::情况常量表n:语句nend执行情况语句时先推导Case后面表达式的值然后按照该值在状况常量表中的“对应安排”选择其对应的语句执行执行完所选择语句后就结束Case语句如果常量表中没有一个与表达式值对应的词语则哪些也不做就结束本Case语句。

Case语句的另一种应用格式为Case表达式of情况常量表1:语句1情况常量表2:语句2::情况常量表n:语句nelse语句n+1end①Y=50*X(X100)②Y=80*X(X=100)13这种格式的后面部分是相似的所不同的是如果常量表中没有一个与表达式值对应的句子则执行与else对应的短语然后结束Case语句。[例2.2]对某产品缴纳税款在收入1万元以上征收税5%在1亿元以下但在5000元以上的缴纳税3%在5000元以下但在1000元以上征收税2%1000元以下的免缴税。编程计算该产品的缴税总额。解:设x为收入tax为费用用P表示状况常量各值以题意中每1000元为情况分界:P=0:tax=0(x<1000)P=1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)取整计算Pascal程序:ProgramExam22Varxp:integerTax:realBeginWrite('Number=')readln(x)P:=trunc(x/1000)ifP9thenP:=10CasePof01,2,3,45,6,7,8,910endWriteln('tt='tt:5:2)ReadlnEnd.情况表达式的推导必须考量到“全部”情况不要有遗漏。如果状况常量表的“值”在某范围内是连续的可将常量表写成n1..n2语句因此上面程序中的状况常量表可以写成如下程序中表示方式ProgramExam22_1Varx,p:integertax:realBeginWrite('Number=')readln(x)P:=trunc(x/1000)ifP9thenP:=10CasePof0:tax:=0:tax:=x*0.2:tax:=x*0.3:tax:=x*0.5:tax:=0141..4:tax:=x*0.2{从1至4成为同一状况处理}5..9:tax:=x*0.3{从5至9成为同一状况处理}10endWriteln('tt='tt:5:2)ReadlnEnd.程序中的trunc(x)为取整函数是Pascal的算术标准函数之一。

Pascal常用的算术标准变量有19个:(1)abs(x)求x的绝对值(|x|)(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π值(3.1415926535897932„)(9)pred(x)求x(有序类型)的前趋值(10)succ(x)求x(有序类型)的后继值(11)random随机变量产生01的随机值(12)random(n)产生0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公里S1000公里运费为标准运价的95%如果1000公里S2000公里运费为标准运价的92%如果2000公里S3000公里运费为标准运价的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:tax:=x*0.515<130者奖金为70元N>130者为80元。请编程由屏幕输入加工部件数目显示应发奖金数。16第三章循环程序在编程中常常见到需要多次规律相似的重复处理这就是循环难题。TurboPascal采用不同的循环形式来推动常用的环循有三种:for、repeat、while.第一节for循环for循环是一种手动计数型循环。[例3.1]试打印出1~20的自然数。解①用a代表1~20各数同时也用a兼作计数以控制循环次数②让a从1开始③输出a④a自动计数加1如果未超越所要求的循环范围则重复步骤③否则结束循环。

Pascal程序:ProgramExam12Vara:byteBeginfora:=1to20doWriteln(a)ReadlnEnd.程序中fora:=1to20doWriteln(a)是for循环语句。for循环语句有两种格式:(1)for循环变量:=初值To终值do语句(2)for循环变量:=初值downto终值do语句第(1)种格式的年率小于等于终值循环变量值按自动加1递增变化第(2)种格式的年率大于或等于终值循环变量值按自动减1递减变化。for循环是(以递增1或以递减1)计数型循环。比如:若将[例3.1]程序改为倒计数(递减)循环则输出201的自然数数:ProgramExam31Vara:byteBeginfora:=20downto1doWriteln(a)ReadlnEnd.17[例3.2]打印出30至60的偶数。]解方法一①设a表示30至60的所有的数可用for循环列出②用方程amod2=0筛选出其中的偶数并输出。

Pascal程序Programex32;VaraBeginFora:=30to60doReadln;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求出其中的偶数③将结果输出至屏幕。Pascal程序Programex32;BeginForn:=15to30doBeginEnd;End.[例3.3]自然数求和编一个程序求从1至100的自然数的和。解①令S0②令a表示1至100的自然数用循环列出③将这种自然数用公式S:=S+a逐一累加到S中去④循环结束后S即为1至100的自然数的和输出就能。

Pascal程序Programex33;vars,a:integer;BeginS:=0;:integer;If(amod2=0)thenwriteln(a);a:=2*n;Writeln(a);Readln;18Fora:=1to100doS:=S+a;Writeln(‘S=’,S);Readln;End.[例3.4]一个两位数x将它的个位数字与十位数字对调后得到一个新数y此时y恰好比x大36请编程求出所有这种的两位数。解①用for循环列列出所有的两位数x为循环函数②用公式a:=xdiv10分离出x的十位数字③用公式b:=xmod10分离出x的个位数字④用公式y:=b*10+a合成新数y⑤用方程y-x=36筛选出符合条件的数x并输出。Pascal程序Programex34;BeginForx:=10to99doBegina:=xdiv10;b:=xmod10;y:=b*10+a;ify-x=36thenwriteln(x);End;Readln;End.[例3.5]把整数3025从中剪开分为30和25两个数此时再将这两数之和平方(30+25)2=3025计算结果又等于原数。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-134608-3.html