2013Pascal入门资料.doc

Pascal入门资料 第课Pascal语言程序的基本结构 第二课 赋值语句、输出语句1： 5月1日有粮食100吨，5月2日又调进20吨，5月3日卖出库存的3分之二，5月4日又调进库存的3倍粮食，问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨？(输出每天的库存量)5月1日到5月4日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量A来描述仓库的粮食库存量。Program ex1;Var A : integer;BeginA:=100;Writeln(5/1:,A);A:=A+20;Writeln(5/2:,A);A:=A div 3; writeln(5/3:,A);A:=A *4; writeln(5/4:,A);Readln;End. 例2： 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.第三课 带格式的输出语句及输入语句.　　格式：write(表达式:N)或writeln(表达式:N),其中N为自然数，指定单场宽后，所有数据不再按标准场宽输出，而按指定场宽输出。若数据实际长度小于指定场宽时，则一律向右靠齐，左留空格。write(1234:8);write(abcdef:12)输出结果:□□□□1234□□□□□□abcdef　　对于标准实型数据指定单场宽时，如果场宽大于标准场宽时，右靠齐按标准场宽格式输出17位，左留空格。若场宽小于标准场宽时，第一位仍为符号位，最后四位仍为E±nn，中间部分为尾数显示部分。如果指定的宽度小于8位，则数据按8位格式*.*E±nn 输出。　　如果输出项是实数时，如果希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场宽方法输出。write(实型表达式：m：n)，其中m和n都是自然数，m ,n指定输出实数的小数位数。 : write(sqrt(75):9:4);输出:□□□8.6602　　如果双场宽不能满足输出数据的最低要求, 系统自动突破指定的场宽限制，按实际长度输出。　如:write(sqrt(75):5:4); 要使小数点后有4位数字，而总场宽为5，是不可能的(因为还有一个小数点， 小数点前面还有一个数字)。它最低限度要有6列，即输出为:8.6602 1 写出下列程序在turbo pascal下的输出结果.program 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.运行结果如下:1234□□1.2345678000E+03□□1234.567801234.56780#□□□□#abcdefg□□□abcdefgabcdefgTRUE□TRUETRUE 为了避免可能出现的错误，建议在程序中按下列原则使用读语句：(A)如果没有特殊需要,在一个程序中尽量避免混合使用read语句和readln语句;(B)尽量用readln语句来输入数据, readln语句;(C)由于执行read或readln语句时, ,因此,编程时最好在readln语句之前加以适当提示,例如:write(Input a,b,c:);readln(a,b,c)