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

Writeln是输出语句输出语句有三种格式:①Write(输出项1输出项2)执行输出后光标不换行②Writeln(输出项1输出项2)执行输出后光标换到下一行③Writeln仅输出空白且光标换到下一行Writeln语句前面的圆括号以内部分均为输出项可以是多项各项间用逗号分隔对单冒号里的内容根据引号内的原样(字符)输出显示。如果输出项是表达式则只输出表达式的值而不是表达式原本。[例1.4]输出两个自然数相乘的商和余数。解:设被除数、除数、商和余数分别为ABCD均为变量且都是整数类型。题中未给出具体的自然数A、B可运用键盘输入方法。①给出提示从键盘输入a,b②显示两数相除的数学形式③求出a除以b的商c④求出a除以b的余数d⑤紧接等式右边输出显示商和余数。Pascal程序:ProgramEx14Vara,bpascal语言视频教程,c,d:integerBeginWrite('INPUTAB')给出提示信息Readln(ab)输入abWriteln输出一空行Write(a'/'b'=')输出等式之后不换行c:=adivb整除运算取商的整数部分{程序首部}{语句部分}5d:=amodb相除求余运算取商的余数部分Writeln(C'„'d){输出后手动换行}Readln{等待输入回车键}End.执行本程序中第一个Write语句输出其引号以内的一串提示信息是给紧接着的输入语句提供明确的提醒(规定)有“一目了然人机对话”之效果。

Readln是一个特殊的输入词语要求输入一个回车(换行)能够往下执行。Readln是输入词语它的通常格式为:①Read(变量1变量2)②Readln(变量1变量2)③Readln前两种格式均要从屏幕给变量输入数据输入时所键入的数据之间以括号为分隔以回车为输入结束。若多输入了数据(即数据个数达到变量个数)Read语句读完数据然后能让后续的读句子接着读取多出来的数据而Readln语句对本行多输入的数据不能让后续语句接着读取多出来的数据。为了避免多输入的数据影响下一个输入词语读取数据建议尽量使用Readln语句输入数据。第三种格式不需输入数据只需按入一个回车键。[例1.5]自然数的立方可以表示为两个整数的平方之差比如43=10262请输出自然数1996的这些表示方式。(此处的43用自乘三次的方式4*4*4表示102也用自乘二次的方式10*10表示)解:此题没有现成的推导公式能直接运用但可以自行打造处理方式或建立适度的运算公式按着思考的处理方案编排出各方法。设这个自然数为N两个平方数分别为XY将问题表示为求N3=X2—Y2①先找出X的值仔细观察题中的样例用数学方式推导可得出X=N*(N+1)/2构成本题可用的推导定理②再认真观察发现Y值比X小一个N值即Y=X—N③输出等式N3=X2—Y2或N*N*N=X*X—Y*YPascal程序:ProgramEx15ConstN=1996{常量说明}VarXY:Longint{变量说明此题计算中的数值较大用长整型}BeginX:=N*(N+1)div2{div是整除运算}Y:=X-NWriteln(N,'*',N,'*',N,'=',X,'*',X,'—',Y,'*',Y){输出结果}ReadlnEnd.本程序中N是常量XY是函数为长整数类型(Longint)程序中的div是整除运算其结果只取商的整数部分[例1.6]求一元二次方程x2+3x+2=0的两个实数根。

解:方程的常数是常量分别用abc表示可利用数学上现成的求根公式求函数的根6采取如下方式:①先求出d=b2-4ac求根公式中需用开方运算的那部分②再用求根公式算出x1x2的值。(x1x2=?)③输出x1x2.Pascal程序:programEx16Consta=1{常量说明}b=3c=2abc表示函数系数Vard:integerd为整型变量X1X2:RealX1X2为实型变量Begind:=b*b-4*a*cx1:=(-b+sqrt(d))/(2*a)求方程的根x2:=(-b-sqrt(d))/(2*a)Writeln('X1='X1'Readln等待输入一个回车键End.本程序中的abc均为常量变量d是整数类型而函数x1x2则是整数类型因为运算式中的Sqrt(d)开平方运算和(/)除法运算使结果为整数。Sqrt()是开平方函数是Pascal系统的一个标准方程。习题1.1模仿例题编程1.加法计算器编程由键盘输入两个整数a和b计算出他们的和并输出到屏幕上。

2.某梯形的上底、下底和高分别为8129求该梯形的周长。(梯形面积公式为S=3.求右图图示边长为5.6的正立方体表面积。4.已知图园柱体的高为12底面园的半径为7求园柱体表面积。5.计算某次会考语文、数学、英语和计算机等四科的总成绩与平均成绩。(请用输入词语从键盘输入各科成绩分)':6'X2='X2){输出结果}第二节顺序结构程序与基本数据类别里面的简洁程序已展现出处理难题步骤、思路的次序关系这就是排序结构程序。例1.7交换两个变量的值由键盘输入两个正整数A和B编程交换这两个函数的值。解交换两个变量的值可以想象成交换两盒录音带称为A和B的内容可以按下列方法处理步骤①拿一盒空白录音带C为过渡先将A翻录至C7步骤②再将B翻录至A步骤③最后将C翻录至B。这样操作可超过题目要求。Pascal程序ProgramExam17;Vara,b,c:integer;BeginWrite(‘A,B=’);Readln(a,b);C:=A;A:=B;B:=C;Writeln(A,B);End.[例1.8]分钱游戏。

甲、乙、丙三人共有24元钱先由甲分钱给乙、丙三人所分给的数与各人已有数同样接着由乙分给甲、丙分法同前再由丙分钱给甲、乙分法亦同前。经上述三次分钱之后每个人的钱数正好一样多。求原来各人的钱数分别是多少?解:设甲、乙、丙三人的钱数分别为ABC。用倒推(逆序)算法从最终结果入手按反相顺序分方法计算出每天各人后来的钱数:在每位步骤中各人钱数分别存在A、B、C中步骤①:A=8B=8C=8步骤②:A=A/2(=4)只有结果数的一半C应包括给AB及原本数三者之和}步骤③:A=A/2(=2)只有巳有数的一半B应包括给AC及原本数三者之和}步骤④:B=B/2(=7)C未得到甲分给的钱时只有巳有数的一半A应包括给BC及原本数三者之和}步骤⑤:输出A=13B=7C=4{此时的ABC就是两人原本的钱数}Pascal程序:ProgramExam18Varabc:integerBegina:=8b:=8c:=8a:=adiv2b:=bdiv2c:=a+b+c{对应于步骤②}a:=adiv2c:=cdiv2b:=a+b+c{对应于步骤③}b:=bdiv2c:=cdiv2a:=a+b+c{对应于步骤④}Writeln('a='a'':4'b='b'':4'c='c){输出}ReadlnEnd.细心观察会看到本程序语句的排序很关键。

此例用反推顺序(逆序)按步骤正确计算出各变量的值。当然有的难题可按正序步骤编程这类程序都称为排序程序。本程序Writeln语句的输出项含有('':4)这里的冒号用来指定该项显示所占宽度等价于步骤1等价于方法2等价于方法3{这是最终结果的钱数三人都一样多}B=B/2(=4)C=A+B+C(=16){AB未给与丙分给的钱时C=C/2(=8)B=A+B+C(=14){AC未给与乙分给的钱时C=C/2(=4)A=A+B+C(=13){对应于方法①}8此处是输出4个空格即(空格项占4格)。[例1.9]有鸡兔同笼头30脚90究竟笼中的鸡和兔各有多少只?解:设鸡为J只兔为T只头为H脚为F则: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短整型Integer整型Longint长整型Byte字节型Word字型在上面程序中常见的数据类别除整数类型,还有实数类型。Pascal还定义了五个标准实数类型列表所示如下:类别RealSingleDoubleExtendedComp在TurboPascal中实数的表示用科学记数法可觉得由三部分构成:J+T=30①取值范围-128..127-32768..32767-2147483648..21474836470..2550..65535占字节数12412格式带符号8位带符号16位带符号32位无符号8位无符号16位取值范围占字节数648108有效数字7~8位11~12位15~16位19~20位19~20位2.9×10-39~1.7×10381.5×10-45~3.4×10385.0×10-324~1.7×103081.9×10-4951~1.1×104932-263+1~238-19#.##E+##或#.##E-##①###表示有效数字②E表示以10为底的幂③+##或-##是指数部分+号可省略。

比如:1.7E+38可写成1.7E38(等同于1.7×1038)。在实数类型定义下即使是整数在程序执行时平台也将手动转换成科学记数方式试请运行以下程序并留意观察运行结果: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块。问大家好友原本的糖块数分别是多少?10第二章分支程序在程序设计中许多难题是在必定条件下才选择何种处理方法的这就必须用条件判定语句或状况选择语句进行处置。程序执行中将发生选择(分支)根据条件只选取执行个别词语,不必定都是按原次序从头到尾地执行所有语句这样的程序称为分支程序。第一节条件语句与复合语句[例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语句的功能是按条件在两种可能中选取其中一种。

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