PASCAL基本程序结构概念.doc
文本预览下载声明
要求：
程序的结构
了解：常量 变量 运算符 表达式 标准数据类型
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
显示全部