pascal语言视频教程_freepascal视频教程_pascal语言视频教程(2)

此例用反推顺序(逆序)，按流程正确计算出各变量的值。当然，有的难题可按正序步骤编程，这类程序都称为排序程序。本程序Writeln语句的输出项含有('':4)，这里的冒号用来指定该项显示所占长度，7此处是输出4个空格即(空格项占4格)。[例1.9]有鸡兔同笼，头30，90，究竟笼中的鸡和兔各有多少只?解:设鸡为J只，兔为T只，头为H，为F，则:J+T=30①2*J+4*T=90②解此题暂不必采用物理上直接解方程的方法，可运用“假设条件与逻辑推理”的方法：假设笼中30个头全都是兔，那么都按每头４只计算，总数为(4*H)，与实际数(F)之差为(4*H—F)，如果这个差=0，则笼中全是兔（即鸡为0只）；即使这个差值>0，说明多计算了数，凡是鸡都多给算了两只，用它除以2就能得到鸡的只数，处理方法为:①J=(4*H—F)/2{先用数均值减去2算出鸡的只数}②T=H—J{再用总头数减鸡数算出免的只数}按此方式，这两步运算需要留意先后次序才会合运算逻辑。Pascal程序:ProgramExam16；ConstH=30；{常量说明}F=90；VarJ，T:byte；{为字符类别的整数}BeginJ:=(4*H-F)div2；{整除运算}T:=H-JWriteln('J='，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位在上面程序中常见的数据类别除整数类型,还有实数类型。Pascal还定义了五个标准实数种类，列表所示如下:类别取值范围占字节数有效数字-3938Real2.9×10~1.7×1067~8位-4538Single1.5×10~3.4×10411~12位-324308Double5.0×10~1.7×10815~16位-4951Extended1.9×10~1.1×1049321019~20位Comp-263+1~238-1819~20位在TurboPascal中实数的表示用科学记数法，可觉得由三部分构成:8#.##E+##或#.##E-##①#．##表示有效数字；②E表示以10为底的幂；③+##或-##是指数部分，+号可省略。

38例如:1.7E+38可写成1.7E38(等同于1.7×10)。在实数类型定义下，即使是整数，在程序执行时平台也将手动转换成科学记数方式，试请运行以下程序并留意观察运行结果:ProgramExam17；Varx:real；{x为实数类型}BeginX:=180；{把小数180赋给整数类型函数X}Writeln('x='，x)；{输出的x自动表示成整数形式}ReadlnEnd.习题1.21.已知△ABC中的三边长分别为25.76，74.03，59.31，求△ABC的面积。(计算公式:S=。其中P=)2.某车棚存有自行车和四轮车共65辆，它们的轮子数总计为150个。求该棚内存有的自行车和四轮车各是多少辆？3.甲、乙、丙三人分别有磁带36，48，64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方式处理。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少?(输出所有的后面结果)4.五位好同学相聚。第一位同学带来了这些糖块赠送给大家朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同向每人赠送糖块，他同使每人的糖块在各人已有的总量上翻了一倍；第三、第四、第五位好友都照此办理。

经过这的赠送之后，每人的糖块恰好都为32块。问大家好友原本的糖块数分别是多少?9第二章分支程序在程序设计中，许多难题是在必定条件下才选择何种处理方法的，这就必须用条件判定语句或状况选择语句进行处置。程序执行中将发生选择(分支)，根据条件只选取执行个别语句,不必定都是按原次序从头到尾地执行所有词语，这的程序称为分支程序。第一节条件语句与复合语句[例2.1]某服装公司为了推销产品，采取这的批发销售方案:凡购买高于100套的，每套定价为50元，否则每套售价为80元。编程由键盘输入购买套数，输出应付款的总额数。解:设X为订购套数，Y为付款总额，则:①输入X;②判断X值；③根据推断结果选择合条件的这种方式计算Y值；④输出计算结果。Pascal程序:ProgramExam21；Varx，y:integer；BeginWrite('X=')；Readln(x)；{输入X}ifx>100theny:=50*Xelsey:＝80*X；{条件判断与选择}Writeln('y='，y)；ReadlnEnd.程序中的if语句常称为条件语句，它的通常格式为:(1)if条件then语句；(2)if条件then语句1else语句2；IF语句的用途是按条件在两种可能中选取其中一种。

习惯上把if后面的表达式称为条件，then后面的短语称为真项，else后面的短语称为假项。若条件成立(为真)就执行真项，然后执行if语句的后继语句；若条件不成立(为假)就跳过真项而执行假项，然后执行后继语句。而第一种格式只有真项pascal语言视频教程，没有假项，当条件不成立(为假)就什么也不需做，直接往下去执行后继语句。[例2.2]读入三个不同的数，编程按由小到大的排序排列打印出来。10解:设读入的三个数为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。11第二节情况段落与算术标准变量即使有多种（两种或两种以上）选用，常用情况短语编程。将上面[例2.1]改成用如下方式来处理。根据题意，付款计算可分为两种状况：①Y=50*X(X＞100)②Y=80*X(X＜=100)虽然，情况①与②的选取取决于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；12这种格式的后面部分是相似的，所不同的是：如果常量表中没有一个与表达式值对应的句子，则执行与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；CasePof0: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.情况表达式的推导必须考量到“全部”情况，不要有遗漏。如果状况常量表的“值”在某范围内是连续的，可将常量表写成：n1..n2：语句；此外，上面程序中的状况常量表可以写成如下程序中表示方式：ProgramExam22_1；Varx,p:integer；tax:real；BeginWrite('Number=')；readln(x)；P:=trunc(x/1000)；ifP＞9thenP:=10；CasePof0:tax:=0；131..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的算术标准函数之一。

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<=N14<130者奖金为70元；N>130者为80元。请编程，由按键输入加工部件数目，显示应发奖金数。15第三章循环程序在编程中常常见到需要多次规律相似的重复处理，这就是循环难题。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循环变量

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