《信息学资料》ppt课件

1、 上节课，我们学习了Pascal言语的程序根本构造，在一个程序中，一切的操作都由执行部分来完成，而执行部分又都是由一个个语句组成的。因此，下面开场我们要学习pascal言语的根本语句，并且在学习过程中逐渐学会程序设计的根本方法。这节课我们要学习两种语句，即赋值语句与输出语句。在语句学习之前我们要先了解一些pascal言语的根底知识例如：变量、常量，运算符等。 o输入语句的作用是将键盘中的数据输入到程序中一输入语句的两种格式1、 read语句格式read(变量1，变量2，)；如:read(a,b,c);2、 readln语句格式:readln(变量1，变量2，)； (二)输出语句的功能计算机执行

2、到某一输入语句时，将键盘中输入的变量数值一个接一个地赋给变量。read语句与readln语句格式上都类似，但它们在功能上有所不同，两个语句的区别在于，执行readln后多余的数据将被忽略，执行READ语句后的数据要么被忽略，要么被下一个read或readln语句所读入Read(a,b,c);Read(I,j,k,l);Read(m,n);输入数据为：输入数据为：1 2 3 4 5 6 7 8 9 010 20o输出语句的作用是将程序运算的结果输出到屏幕或打印机等输出设备。这里通常是指输出到屏幕。一输出语句的两种格式1、 write语句格式Write(表达式1，表达式2，)；如:write(1,

3、2,3,4); write(1.2,3.4,5); write(My name is Liping);2、 writeln语句格式:Write(表达式1，表达式2，)或writelno(二)输出语句的功能计算机执行到某一输出语句时，先计算出输出语句中的每个表达式的值，并将每一个表达式的值一个接一个地输出到屏幕上。Write语句与writeln语句格式上都类似，但它们在功能上有所不同，两个语句的区别在于，write语句将其后括号中的表达式一个接一个输出后，没有换行。而writeln语句那么在输出各个表达式的值后换行。write(1,2,3,4);write(5,6);输出为：123456writ

4、eln(1,2,3,4);write(5,6);输出为：123456四、运用例带格式的输出语句 编程：知三角形底a=29，高h=33，求三角形的面积s，输出格式：s=. 保管1位小数参考代码var / 变量阐明 a,h: integer; s: real;begin a:=29; / a为三角形的底 h:=33; / h为三角形的高 s:=a*h/2; /留意: s必需是实型 writeln(s=,s:0:1); / 输出两项，前一项输出为s=，后一项输出结果保管一位小数end. 1. 场宽：分单场宽和双场宽 单场宽：write(表达式:n)，其中n为自然数。假设数据实践长度小于指定场宽时，那

5、么一概“向右靠齐，左留空格。write(1234:8);输出结果：1234表示一个空格 双场宽在第5讲中引见：假设输出项是实数时，假设希望输出的实数不用科学记数法输出，而用小数方式输出，可以用指定双场宽方法输出。双场宽输出格式为：write(实型表达式:m:n)，其中m和n都是自然数，m 用以指定整个数据所占的宽度，n指定输出实数的小数位数。begin write(123.435245:10:2); / 输出 123.44，10表示总宽度，2表示小数位数，留意：小数点也占一位end.注：123.44共占宽度6，由于总宽度是10，所以前导空格有4个。例1 写出以下程序在输出结果 program

6、ex;const s=abcdefg;var i:integer;r:real;c:char;b:boolean;begin i:=1234;r:=1234.5678; c:=#;b:=true; writeln(i,i:6,i:3); writeln(r,r:12:5,r:8:5); writeln(c,c:5); writeln(s,s:10,s:5); writeln(b,b:5,b:3);end.运转结果如下:1234123412341.2345678000E+031234.567801234.56780#abcdefgabcdefgabcdefgTRUETRUETRUE3运用例析运用

7、例析 例例2：知：知A=253，B=43，输出，输出A*B的运算式子。即输出如下：的运算式子。即输出如下： 分析：对于该问题，我们只需控制好输出时右靠齐即可。即前四行的总宽度一样例如为分析：对于该问题，我们只需控制好输出时右靠齐即可。即前四行的总宽度一样例如为12，第五行总宽度比前面少，第五行总宽度比前面少1。第六、七行总宽度与前四行一样。第六、七行总宽度与前四行一样。参与程序如下：参与程序如下： var a,b:integer; begin a:=253;b:=43; writeln(a:10,*,b,=,a*b); writeln(a:12); write(*:8);writeln(b:4

8、); writeln(-:12); writeln(a*3:12); write(+:6);writeln(a*4:5); writeln(-:12); writeln(a*b:12); end.编写程序o要求程序输出这样的图形，请编写程序完成o *o *o *o *运用例析运用例析 l例1：某仓库5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)l分析：在这个问题中，主要要描画从5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A

9、来描画仓库的粮食库存量。l程序可写如下：lProgram ex1;l Var A : integer;l BeginlA:=100;Writeln(5/1:,A);lA:=A+20;Writeln(5/2:,A);lA:=A div 3; writeln(5/3:,A);lA:=A *4; writeln(5/4:,A);Readln;l End.编程：交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。解：交换两个变量的值，可以想象成交换两盒录音带称为A和B的内容，可以按以下步骤处置：步骤：拿一盒空白录音带C为过渡，先将A翻录至C；步骤：再将B翻录至A；步骤：最后将C翻录至

10、B。这样操作，可到达标题要求。Pascal程序：Program Exam17; 程序首部 Var a,b,c: integer;阐明部分 Begin 程序体 Write(A,B=); Readln(a,b); C:= A; 等价于步骤1 A := B;等价于步骤2 B := C;等价于步骤3 Writeln(A,B);End.AB分钱游戏 甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数一样；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。 求原先各人的钱数分别是多少?练习讲解o请随机产生一个四位数，请输出这个

11、数字的千位，百位，个位；o program abcd;oVar qian,bai,ge,shi,num:integer;oBeginoRandomize;oN:Random(1*9000) 1000;oGe:习题分析解:设甲、乙、丙三人的钱数分别为A，B，C。用倒推(逆序)算法， 从最后结果入手，按反相顺序，分步骤推算出每次各人当时的钱数:在每个步骤中，各人钱数分别存在A、B、C中 步骤:A=8 B=8 C=8 这是最后结果的钱数，三人都一样多 步骤:A=A/2 (=4) B=B/2 (=4)C=A+B+C(=16) A，B未得到丙分给的钱时，只需结果数的一半；C应包含给A，B及本身数三者之和

12、 步骤: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=13B=7C=4此时的A，B，C 就是三人原先的钱数 Program Exam18；Var a，b，c: integer；Begin a:=8； b:=8； c:=8； 对应于步骤 a:=a div 2； b:=b div 2； c:=a+b+c； 对应于步骤 a:=a div 2

13、； 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. 本程序Writeln语句的输出项含有( : 4 )，这里的冒号用来指该项显示所占宽度此处是输出4个空格即(空格项占4格)。 有鸡兔同笼，头30，脚 90，终究笼中的鸡和兔各有多少只? 解解:设鸡为设鸡为J只，兔为只，兔为T只，头为只，头为H，脚为，脚为F，那么，那么:J+T=30 2*J+4*T=90 解：解： 此题暂不用采用数学上直接解方程的方法，可采用此题

14、暂不用采用数学上直接解方程的方法，可采用“假设条件与逻辑假设条件与逻辑推理的方法：推理的方法： 假设笼中假设笼中30 个头全都是兔，那么都按每头只脚计算，总脚数为个头全都是兔，那么都按每头只脚计算，总脚数为(4*H)，与实践脚数，与实践脚数 ( F )之差为之差为(4*HF)，假设这个差，假设这个差=0，那么笼中全是兔即鸡为那么笼中全是兔即鸡为0只；假设这个差值只；假设这个差值 0，阐明多计算，阐明多计算了脚数，凡是鸡都多给算了两只脚，用它除以了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，就能得到鸡的只数，处置步骤为处置步骤为: J=(4*HF)/2 先用脚数差值除以先用脚数差值

15、除以2算出鸡的只数算出鸡的只数 T=HJ 再用总头数减鸡数算出免的只数再用总头数减鸡数算出免的只数按此方法，这两步运算必需留意先后顺序才会符合运算逻辑。按此方法，这两步运算必需留意先后顺序才会符合运算逻辑。PascalPascal参考程序参考程序oProgram Exam16；oConst H=30； 常量阐明 o F=90；oVar J，T: byte； 为字节类型的整数 oBegino J:=(4*H-F) div 2； 整除运算 o T:=H-Jo Writeln (J=，J， : 6，T= ，T ) ；o ReadlnoEnd.o本程序中H，F为常量，变量J，T为byte类型，属于整数类型 思索题一思索题一 甲、乙、丙三人分别有磁带甲、乙、丙三人分别有磁带3636，4848，6464盒。先由甲把本人的磁带平均分为三份，分盒。先由甲把本人的磁带平均分为三份，分给乙、丙各一份，本人留下一份；接着是乙，给乙、丙各一份，本人留下一份；接着是乙，最后是丙，都按甲的方法处置。编程输出甲、最后是丙，都按甲的方法处置。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多乙、丙在上述