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

要求： 程序的结构 了解：常量 变量 运算符 表达式 标准数据类型 3．学会安装TP并做简单的操作。 PASCAL基本程序结构和概念 标识符 保留字 常量 变量 运算符 表达式 标准数据类型 例1： 为了明显起见先举一个最简单的PASCAL程序例子： 例2： Program ex11; Begin ? Writeln(‘Hello World!’); ? ReadLn; End. [例3]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？ 解：若总售价用m来表示，则这个问题可分为以下几步处理： ①从键盘输入自行车的数目a； ②用公式? m=300*a? 计算总售价； ③输出计算结果。 Pascal程序： ? Program Ex12;? ???????????????????????????? {程序首部} ? Var a,m : integer;????????????????????????????? {说明部分} ? Begin???????????????????????????????????????????????????? {语句部分} ??? Write(‘a=’); ??? ReadLn(a);????????????????????????????????????????? {输入自行车数目} ??? M := 300*a;??????????????????????????????????????? {计算总售价} ??? Writeln(‘M=’,m);???????????????????????????????? {输出总售价} ??? ReadLn;????????????????????????????????????????????? {等待输入回车键} ? End. [例4] 输出两个自然数相除的商和余数。 解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。 ?? ① 给出提示，从键盘输入a, b；? ?? ② 显示两数相除的数学形式； ?? ③ 求出a除以b的商c； ?? ④ 求出a除以b的余数d； ?? ⑤ 紧接等式后面输出显示商和余数。 Pascal程序: ? Program Ex14； ??? Var a,b,c,d : integer； ??? Begin ????? Write(INPUT A，B：)； ??????｛给出提示信息｝ ????? Readln(a，b)；??????????????? ｛输入a，b｝ ????? Writeln；???????????????????? ｛输出一空行｝ ????? Write(a，/，b，=)；????????? ｛输出等式之后不换行｝ ????? c:=a div b；?????????????????? ｛整除运算，取商的整数部分｝ ????? d:=a mod b；????????????????? ｛相除求余运算，取商的余数部分｝ ????? Writeln(C，…，d)；?????????? {输出后自动换行 } ????? Readln??????????????????????? {等待输入回车键 } ??? End. 例5：从键盘读入4个数据，逆序输出 program pname; const n=4; type ar=array [1..4] of integer; var i:integer; a:ar; begin for i:=1 to n do read(a[i]); readln; for i:=n downto 1 do write(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小一个N值，即 Y=X—N； ③ 输出等式 N3=X2—Y2 或N*N*N=X*X—Y*Y Pascal程序: ? Program? Ex15； ??? Const? N=199