PASCAL 程序设计基础训练题 第1课（基本格式）
1、 已知圆的半径，求它的周长和面积。 参考答案：
Program xxy001; Const
Pi:=3.14159; Var
R,L,S:REAL; BEGIN
WRITE(‘R=?’); READLN(R); L:=2*R*PI; S:=R*R*PI;
WRITELN(‘L=’,L:6:2); WRITELN(‘S=’,S:=6:3); READLN; END.
2、 已知长方形的长和宽，求它的周长和面积。 参考答案：
PROGRAM XXY002; VAR
A,B,L,S:INTEGER; BEGIN
WRITE(‘A,B=?’); READLN(A,B); L:=(A+B)*2; S:=A*B;
WRITELN(‘L=’,L); WRITELN(‘S=’,S); READLN; END.
3、 输入长方体的长、宽、高，计算它的表面积和体积。 参考答案：
PROGRAM XXY003; VAR
A,B,H,S,V:INTEGER; BEGIN
READLN(A,B,H);
S:=(A*B+B*H+H*A)*2; V:=A*B*H;
WRITELN(‘S=’,S); WRITELN(‘V=’,V); READLN;
END.
4、 x,y,z的值分别为１，２３，４５６，将它们按三行输出，分别用左对齐和右对齐方式显示。 1 23 456
1 23 345 参考答案：
PROGRAM XXY004; VAR
X,Y,Z:INTEGER; BEGIN X:=1; Y:=23; Z:=456; WRITELN(X); WRITELN(X); WRITELN(X); WRITELN(X:78); WRITELN(X:78); WRITELN(X:78); READLN; END.
5、 输入Ａ，Ｂ二个变量的值，分别打印出Ａ与Ｂ加法的横式与竖式运算式子。 参考答案： 样例：
输入：45 237 输出： 45+237=282 45 + 237 --------- 282 参考答案：
Program xxy005; Var
A,b,da:integer; Begin
Readln(a,b); Da:=a+b;
Writeln(a,’+’,b,’=’,da);
Writeln(a:6);
Writeln(‘+’,b:5); Writeln(‘-------‘); Writeln(da:6); Readln; End.
说明：编程时，使用英文字母大写和小写作用是相同的。
8、 输入Ａ，Ｂ二个变量的值，分别打印出Ａ与Ｂ加法的横式与竖式运算式子。 A=45 B=237 输入： 45 237 输出： 45+237=282 45 + 237 ----------- 282 参加程序：
说明： integer 是整数类型， 表示不带小数的数。 X：integer ； 变量X只能放不带小数的数。 real 是实数类型， 表示可带小数的数。 Y：real； 变量y可能带小数的数。
Writeln(34：8) ； 表示输入34 有8个位子，靠右输出，前面空出6个空格； 34 Program xxy008; Var
a,b,c :integer; begin
readln(a,b); c:=a+b；
writeln（a,’+’,b,’=’,c）; writeln(a:8);
writeln(‘+’:2,b:6); writeln(‘----------‘)； writeln（c：8）； readln； end.
6、将任意一个两位正数平方后，取其百位数和十位数，构成一个新的两位数。 参考答案：
Program xxy006; Var
N,a,b:integer; Begin Readln(n);
A:=n*n mod 1000; B:=a div 10; writeln(b); readln; end.
7、任意给出一个小数，编程求不小于它的最小整数与不大于它的最大整数。 参考答案：
Program xxy007; Var
A:real;
S,t:integer; Begin
Readln(a); S:=trunc(a); T:=s+1; Writeln(s); Writeln(t); Readln; End.
8、输入一个字符，分别求出它的前导值、后继值和字符码（ASCII码）。 参考答案：
Program xxy008; Var
Zf: char; Begin
Readln(zf);
Writeln( pred(zf) ); Writeln(succ(zf)); Readln; End.
9、输入三个数，计算并输出它们的平均数。 参考答案：
Program xxy009; Var
A,b,c:integer; Pjs:real; Begin
