pascal第三讲.doc

信息学竞赛辅导班·Pascal基础
第三讲 顺序结构
一、赋值语句
　　格式： 变量 ：＝ 表达式；
作用： 把表达式的值赋给变量； 例如：Z：= a*2+b*2; 是计算a*2+b*2的值赋给变量Z
注：① 赋值符号是:和＝的组合，不能只有＝号
② 赋值符号两边的类型要相同，除了一种情况：右边是整数类型，左边是实数类型的变量
③ 变量必须赋初值后才能引用。(系统默认数字为0，字符为空格，布尔值为FALSE)
二、输入语句
　　格式：read（V1，V2，…）；readln（V1，V2，…）；
作用：程序执行到这个语句时，暂停运行，等待从键盘上输入数据，并把数据依次赋给相应的变量；例如： read（c，k）; 是停止等待用户输入数据，如果从键盘上输入5?6↙ 则 c的值为5，k的值为6
注：① 输入几个数据之间用空格键隔开。输入字符型数据时，不用空格隔开，连续输入
② 输入数据的类型要和变量的类型相同。变量是实数型的，可以输入整数
③ 输入少于变量的数据时，键盘继续等待输入，直到输入足够的数据
④ read和readln的区别：readln可以不带参数； readln接收数据之后自动换行，下次读入从下行的数据开始；而使用read不换行，下次继续读入
example: 分别有以下输入，说出各变量的值 Readln(a,b,c);
Read(l,k,j);
Readln(m,n);
输入数据（1）
1 3 5 7 9
2 4 6 8 10
20 30
输入数据（2）
1 3
2 4 6
5 7 9 10 11
三、输出语句
格式：write(V1，V2，…)；writeln(V1，V2，…)；
作用：将括号中数据按格式输出；例如：write (‘a+b=’,a+b); 是输出a+b的式子，显示的时候，加单引号的部分全部输出，不加单引号的部分表示输出a＋b的结果
注：① 输出项可以是表达式，计算机会自动计算结果输出来
② write和writeln的区别：writeln输出数据之后有换行
③ 两种输出格式：write（X：n1）；用于整数和字符的输出
write（X：n1：n2）；用于实数的输出
n1 表示输出的X占有n1 个位置，不足的在前面补空格
n2 表示X输出保留n2 位小数，小数不足在末尾补0，超过的舍弃四舍五入
如：writeln（a：8：2）；
当a＝3.537时，输出结果为_ _ _ _ 3 . 5 3
四、example
1、从键盘上读入长方形的边长a,b，计算它的面积和周长，输出
Program B1；
Var
a,b,c,s:integer;
s:real;
Begin
write('input a,b');
Readln(a,b);
c:=(a+b)*2;
s:=a*b;
writeln('c=',c,' 　s=',s);
End.
2、交换两个变量a , b的值
方法：利用一个中间变量t，保存a的值于t，把b的值赋给a，再将t值赋给b。
程序：
Program JIAOH；
Var
a,b,t:integer;
Begin
write('input a,b);
Readln(a,b);
t:=a;
a:=b;
b:=t;
writeln('a=',a,'b=',b);
End.
3、求一个四位整数的各位数字之和。
程序： PROGRAM QIUH;
VAR
NUM,A,B,C,D,SUM:INTEGER;
BEGIN
WRITELN(‘请输入一个四位整数:’);
READ(NUM);
A:=NUM MOD 10;
B:=NUM DIV 10 MOD 10;
C:=NUM DIV 100 MOD 10;
D:=NUM DIV 1000;
S:=A+B+C+D;
WRITELN(‘SUM=’,S:4)
END.
程序运行结果：
请输入一个四位整数:
9547
SUM=□□25
五、练习
1、已知某梯形的上底A，下底B，高H，求它的面积S。
2、输入一个时、分、秒，把它转换为一个秒数。
3、要求写一程序，计算和打印三个数的和及平均值。
4、输入a，b两个数，输出a×b的结果的横式与竖式。
5、编一程序求半径为R的圆的周长与面积。
第三讲－2