PASCAL基本程序结构和概念.doc

《PASCAL基本程序结构和概念.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、要求：1．程序的结构2．了解：常量变量运算符表达式标准数据类型3．学会安装TP并做简单的操作。PASCAL基本程序结构和概念标识符保留字常量变量运算符表达式标准数据类型例1：为了明显起见先举一个最简单的PASCAL程序例子：例2：Programex11;Begin Writeln(‘HelloWorld!’); ReadLn;End.[例3]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？解：若总售价用m来表示，则这个问题可分为以下几步处理：①从键盘输入自行车的数目a；②用公式 m=300*a 计算总售价；③输出计算结果。Pascal程序

2、： ProgramEx12;                             {程序首部} Vara,m:integer;                             {说明部分} Begin                                                    {语句部分}   Write(‘a=’);   ReadLn(a);                                         {输入自行车数目}   M:=300*a;                           

3、            {计算总售价}   Writeln(‘M=’,m);                                {输出总售价}   ReadLn;                                             {等待输入回车键} End.[例4]输出两个自然数相除的商和余数。解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。  ①给出提示，从键盘输入a,b；   ②显示两数相除的数学形式；  ③求出a除以b的商c；  ④求出a

4、除以b的余数d；  ⑤紧接等式后面输出显示商和余数。Pascal程序: ProgramEx14；   Vara,b,c,d:integer；   Begin     Write('INPUTA，B：')；      ｛给出提示信息｝     Readln(a，b)；               ｛输入a，b｝     Writeln；                    ｛输出一空行｝     Write(a，'/'，b，'=')；         ｛输出等式之后不换行｝     c:=adivb；                  ｛整除运算，取商的整

5、数部分｝     d:=amodb；                 ｛相除求余运算，取商的余数部分｝     Writeln(C，'…'，d)；          {输出后自动换行}     Readln                       {等待输入回车键}   End.例5：从键盘读入4个数据，逆序输出programpname;constn=4;typear=array[1..4]ofinteger;vari:integer;a:ar;beginfori:=1tondoread(a[i]);readln;fori:=ndownto1dowri

6、te(a[i]:4);writeln;end.[例1.6]自然数的立方可以表示为两个整数的平方之差，比如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

7、小一个N值，即Y=X—N；③输出等式N3=X2—Y2或N*N*N=X*X—Y*YPascal程序: Program Ex15；   Const N=1996；      {常量说明}   Var   X，Y:Longint； {变量说明，此题计算中的数值较大，用长整型}     Begin       X:=N*(N+1)div2； {div是整除运算}       Y:=X-N；       Writeln(N,'*',N,'*',N,'=',X,'*',X,'—',Y,'*',Y)；  {输出结果}       Readln     End. 本程序中

8、N是常量，X，Y是变量，为长整数类型(Longint)；程序中的d