pascal语言编程之输出语句.pptxVIP

简单的程序设计第三节 输出语句2016年11月输出语句的作用是将程序运算的结果输出到屏幕或打印机等输出设备。（一）输出语句的两种格式 1.write语句 格式：Write(表达式1，表达式2，……)； 如:write(1,2,3,4); write(1.2,3.4,5); write(‘My name is Liping’); 2.writeln语句 格式:Writeln(表达式1，表达式2，……)或writeln(二)输出语句的功能 计算机执行到某一输出语句时，先计算出输出语句中的每个表达式的值，并将每一个表达式的值一个接一个地输出到屏幕上。（先计算表达式的值，后输出。）Write 语句与writeln 语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于，write语句将其后括号中的表达式一个接一个输出后，没有换行。而writeln语句则在输出各个表达式的值后换行。（语句运行结束后，光标自动跳转到下一行）例如以下两个程序段的输出分别为： write(1,2,3,4);write(5,6); 输出为： 123456 writeln(1,2,3,4);write(5,6); 输出为： 1234 56（三）、应用例析[例3]：某仓库5月1 日有粮食100 吨，5月2 日又调进20 吨，5月3 日卖出库存的三分之二，5月4日又调进库存的3 倍粮食，问该仓库从5 月1 日到5 月4 日期间每天的粮食分别是多少吨？(输出每天的库存量)分析：在这个问题中，主要要描述从5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A来描述仓库的粮食库存量。用数学方法来做：分析： 5月1日100吨 库存：100吨； 5月2日 调入20吨 库存：120吨； 5月3日 卖出库存的2/3库存120-120*2/3吨； 5月4日 调进库存的3倍 库存（120-120*2/3）*（1+3）吨；注：看到题目，先提取题目中有用的数据信息和等量关系，理清思路。程序可写如下：Program ex1; Var A : integer;Begin A:=100;Writeln(‘5/1:’,A); A:=A+20;Writeln(‘5/2:’,A); A:=A div 3; writeln(‘5/3:’,A);{A:=A-A*2 DIV 3} {因为A为整型数据，所以要用整除div来做，而不是除号（/）} A:=A *4; writeln(‘5/4:’,A);{A:=A+A*3}Readln;End.[例4]：有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？分析：这个问题中我们关心的是在游戏过程中每个小朋友的糖果个数，且他们所拥有的的糖果数是在变化的。因此可用a,b,c三个变量分别存放甲乙丙三个小朋友在某一时刻所拥有的糖果数。对于每人，分糖后，他的糖果数一定为原来的糖果数 div 3（因为分糖过程糖果的数目不一定都刚好分完，用整除恰恰可以表示多余的糖自己吃掉）。而其他两人则增加与这个小朋友现在拥有的一样的糖果。用数学思想： 先分甲，再分乙，最后分丙； 甲分三份，乙丙分别增加甲的三分之一，甲剩下三分之一； 乙在增加后的基础上分三份，甲丙分别增加其三分之一，乙剩三分之一； 丙在增加后的基础上分三份，甲乙分别增加其三分之，丙剩三分之一。程序可写如下：program ex2; var A,B,C:integer;begin A:=50;B:=43;C:=13; {初始时每个小朋友所拥有的糖果数} A:=A div 3; B:=B+A;C:=C+A; {甲小朋友分糖果后，每个人拥有的糖果数变化情况} B:=B div 3; A:=A+B;C:=C+B; {乙小朋友分糖果后，每个人拥有的糖果数变化情况} C:=C div 3; A:=A+C;B:=B+C; {丙小朋友分糖果后，每个人拥有的糖果数变化情况} writeln(’A=’,A,’B=’,B,’C=’,C); {输出结果} readln;end.注：上程序中倒数第三行中’A=’表示一个字符串（即用一对单引号括起来的一串字符），对于字符串，输出字符串的内容（即引号内的所得字符，而引号不输出）。练习：1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。2.已知某圆的半径R=139，求该圆的周长C与面积S？3.输入长方形的边长a,b，计算它的面积和周长，输出。