顺序结构

(共52张PPT)
算法和编程入门
绍兴县实验小学 梁丽青
信息学奥赛 概述
1、什么是信息学？
2、信息学奥林匹克比赛的内容。
3、什么是程序？
4、怎样学习才能在比赛中得奖？
1、什么是信息学？
信息学奥林匹克比赛的内容
Pascal软件的下载
http://www./bbs/
07年绍兴市信息学奥林匹克竞赛应赛部队
→ 奥赛参谋部
→ Pascal教学与自学课件 计算机常识课件
→ Turbo pascal7.0
Pascal软件的安装、运行与退出
1、安装: 将压缩包解压到桌面
2、进入Turbo Pascal 7.0\TP7_small\
3、双击turbo.exe
4、退出: File---Exit （Alt+X）
PASCAL语言的特点
1、第一个结构化程序设计语言
2、功能强、应用广
3、编译和运行效率高
4、可移植、易推广
基本符号
1、大小写英文字母（A—Z，a—z）
2、数字（0—9）
3、其它符号
+ - * / = <> <= >= < > ( )
[ ] { } := , ; . : . . ‘
保留字（35个）
AND、ARRAY、BEGIN、CASE、CONST、DIV、DO、DOWNTO、ELSE、END、FILE、FOR、FUNCTION、GOTO、IF、IN、LABEL、MOD、NIL、NOT、OF、OR、PACKED、PROCEDURE、PROGRAM、RECORD、REPEAT、SET、THEN、TO、TYPE、UNTIL、VAR、WHILE、WITH
标识符
标识符是以字母开头的字母、数字组合。
指出下列用户自定义的标识符哪些是非法的？
Xyz Name1 4ab end AB S
b(3) m+n class one
标准标识符 :
标准常量：false, true, maxint
标准类型：integer, real, char, boolean, text
标准文件：input, output
标准函数：abs, arctan, chr, cos, eof, eoln,
exp, ln, odd, ord, pred, round, sin,
sqr, sqrt, succ, trunc
标准标识符 :
标准过程：
get, new, pack, page, put, read, readln,
reset, rewrite, unpack, write, writeln
程序1：已知半径，求圆周长和面积的程序
PROGRAM circle (input,output) ;
CONST
pi=3.14159 ;
VAR
r, l, s : real;
BEGIN
read( r ) ;
l :=2*pi*r ;
s :=pi*r*r;
write ( r, l, s )
END.
程序首部
说明部分
语句部分
调试程序
1、编译 F9
2、运行 Ctrl + F9
Alt + F5 编辑窗口、结果窗口切换
Alt + Enter 全屏、窗口切换
练习：书本14页
1.2 输入三个数，计算并输出它们的
平均值以及三个数的乘积，写出程序。
(sum1、sum2、sum3、ave、mul）
1.4 已知匀加速运动的初速度为10m/s，
加速度为2m/s2，求20s以后的速度，20s内
走过的路程及平均速度，写出程序。
（v0、a、t、vt、s、v）
PROGRAM ex12 (input,output) ;
VAR
num1, num2, num3, ave, mul : real ;
BEGIN
read( num1, num2, num3 ) ;
ave :=( num1+num2+num3) / 3 ;
mul :=num1*num2*num3 ;
write ( ave, mul )
END.
标准数据类型
实型（real） 10-38——1038
小数表示法 1.25 132.67 0.0025
-1.56 0.0 100.0
科学表示法 1.25e0 1.3267e+2
2.5e-3 -1.56e0
0e0 1e2
标准数据类型
实型（real）定义
CONST
pi=3.14159 ;
VAR
r , l , s : real ;
标准数据类型
实型（real）运算
+ - * /
规则：先乘除后加减
abs（绝对值） sqr（平方）
sqrt（开方） sin cos arctan
exp（以e为底的指数） ln（自然对数）
trunc（截尾取整） round（舍入取整）
将下列数学表达式写成Pascal表达式
1、(x+y) ÷ (x-y)
2、log10(m+4n)
3、b2 - 4ac
4、a3b+ab3
5、5sinx - 3cosy
标准数据类型
整型（integer） -32768——32767
CONST
long = 150 ;
wide = 65 ;
VAR
i , j , k : integer ;
maxint=32767
(不需定义）
标准数据类型
整型（integer）运算
+ - * DIV（整除） MOD（取余）
7 DIV 3 = 2 7 MOD 3 = 1
abs（绝对值） sqr（平方）
pred（前导） succ（后继）
odd（奇函数） chr（取字符）
指出下列表达式的类型和值
12/3
12 DIV 3
MOD 10
round ( 17/3 )
trunc ( 17/3 )
real 4.0
integer 4
integer 5
integer 6
integer 5
标准数据类型
字符型（char）
括在两个单引号中的一个字符。
CONST
blank = ‘ ’ ;
star = ‘*’ ;
VAR
ch1 , ch2 : char ;
标准数据类型
字符型（char） ASCII码 书本285页
ord （取序号）
pred （前导）
succ （后继）
ord(‘A’)=65 ord(‘a’)=97
pred(‘b’)=‘a’ succ(‘a’)=‘b’
标准数据类型
布尔型（boolean）
true（真） false（假）
CONST
f = false ;
t = true ;
VAR
b1 , b2 , flag : boolean ;
标准数据类型
布尔型（boolean）
ord（取序号）
pred（前导） succ（后继）
逻辑运算 AND、OR、 NOT
NOT > AND > OR
关系运算 < <= = > >= <>
2.1 哪些是整数？实数？非法的数？
整数：256、-785、0
实数：2.50、1e+06、2.2e5、15.0、
0.12、0.0
非法的数：e10、e-5、.5、15.、25e
2.2 指出下列表达式的类型和值
‘A’、 ‘3’
3
true、false
5>3
5<3
char ‘A’、‘3’
integer 3
boolean true、false
boolean true
boolean false
2.2 指出下列表达式的类型和值
12/3
12 DIV 3
105 MOD 10
round ( 17/3 )
trunc ( 17/3 )
real 4.0
integer 4
integer 5
integer 6
integer 5
2.2 指出下列表达式的类型和值
sqrt ( ord(‘2’) - ord(‘0’) )
sqr ( ord(‘2’) - ord(‘0’) )
(5>3) AND (5<3)
chr ( 67 )
real 1.4142
integer 4
boolean false
char ‘C’
2.3 将数学表达式表示成PASCAL表达式
- (a*a+b*b) * sqr(y*y)
Sqr(sin(x+0.5))+3*cos(2*x+4)+arctan(x)
4. (5+b) / ( (a+6)/(b+5) - c*d)
5. (p*q*sqr(r+1)) / (sqr(r+1)-1)
6. a/x / ( a/(a+y) + b/(a+b/(a+b/z)))
赋值语句
<变量> := <表达式> 赋值相容
表达式优先级 （先计算括号）
1、函数
2、NOT
3、AND * / DIV MOD
4、OR + -
5、< <= = >= > <>
求出下列表达式的值
1、13 * 6 * 8 div 3
2、5 / 4 * 2.5 / 1.25 * (4+6)
3、24 div 4 * sqr(6.0) / 3.6
4、28 div 4 mod 3 * trunc(3.674)
208
25.00
60.0
3
read语句
read ( <变量表>)
read (a , b , c) a, b, c : real ;
12.5 21.3 17.8
read (ch1 , ch2 , ch3) ch1,ch2,ch3:char;
abc
read (ch1 , ch2 , ch3 , a , b , c , i , j )
abc 3.5 4.3 7. 1 15 8
read语句
read ( <变量表>)
read (a , b) ;
read (c , d , e , f ) ;
read (g , h) ;
1.5 3.7 2.4
5.7 2.1 8.9
9.2 1.7 5.3
2.8 3.4 2.9
readln语句
readln ( <变量表>)
readln (a , b) ;
readln (c , d , e , f ) ;
readln (g , h) ;
1.5 3.7 2.4
5.7 2.1 8.9
9.2 1.7 5.3
2.8 3.4 2.9
自动换行，从下一行读入数据
write语句
write (<输出表>)
变量、表达式、字符串
write ( x , y , x+y , x*y ) x=2 y=3
2 3 5 6
write ( ‘x=’, x , ‘y=’, y , ‘x+y=’, x+y , ‘x*y=’, x*y )
x=2 y=3 x+y=5 x*y=6
writeln语句
writeln (<输出表>)
变量、表达式、字符串
writeln ( ‘x=’, x , ‘y=’, y )
writeln( ‘x+y=’, x+y , ‘x*y=’, x*y )
x=2 y=3
x+y=5 x*y=6
read ( x , y );
readln
readln ( x , y );
write ( x , y );
writeln
writeln ( x , y );
编程：实现交换两个变量a,b的内容
PROGRAM ch34 (input,output) ;
VAR
a , b , t : integer ;
BEGIN
a:=3 ; b:=2 ;
writeln ( ‘a=’ , a , ‘b=’ , b ) ;
t:=a ; a:=b ; b:=t;
writeln ( ‘a=’ , a , ‘b=’ , b)
END.
利用中间变量t交换两个变量的内容
PROGRAM ch33 (input,output) ;
VAR
a , b : integer ;
BEGIN
a:=3 ; b:=2 ;
writeln ( ‘a=’ , a , ‘b=’ , b ) ;
a:= a+b ;
writeln ( ‘a=’ , a )
b:= a-b ;
a:= a-b ;
writeln ( ‘a=’ , a , ‘b=’ , b ) ;
END.
a=3 b=2
a=5
a=2 b=3
标准场宽
实型 16位 科学表示法输出
整型 12位
字符型 1位
布尔型 false或true 5位或4位
write ( x , i , ch , b1 , ‘abc’ )
x实型 i整型 ch字符型 b1布尔型
单域场宽
write ( x:12 , i:10 , ch:10 , b1:10 , ‘abc’:10 )
双域场宽 实型数以小数形式输出
write ( x: 10 : 2 )
writeln ( ‘please input a , b , c’) ;
read ( a , b , c ) ;
writeln (‘a=’, a:4:1 , ‘b=’ , b:4:1 , ‘c=’ , c:4:1)
输出结果：
please input a , b , c
21.5 18.9 23.4
a=21.5 b=18.9 c=23.4
作业：
P14 1.1 1.2
P36 2.1 2.2 2.3（1-2-4-5-6）
2.10
作业：
P14 1.1 1.2
P36 2.1 2.2 2.3（1-2-4-5-6）
2.8 2.9 2.10
从键盘输入一个实数，输出该实数本身、整数部分、小数部分、四舍五入后的值。（小数位保留3位有效数字）
从键盘输入一个实数，输出该实数本身、整数部分、小数部分、四舍五入后的值。（小数位保留3位有效数字）
2.12 从键盘输入一个实数，输出该实数本身、整数部分、小数部分、四舍五入后的值。（小数位保留3位有效数字）
Program lx212 ;
var x:real ;
begin
read(x) ;
writeln(x) ;
writeln(trunc(x)) ;
writeln(x-trunc(x):5:3) ;
writeln(round(x))
end.
2.13 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。
Program lx213;
const
a=1; b=12; c=123;
begin
……
end.