《高中信息技术 信息学奥赛 PASCAL语言顺序结构课件》由会员分享，可在线阅读，更多相关《高中信息技术 信息学奥赛 PASCAL语言顺序结构课件（52页珍藏版）》请在金锄头文库上搜索。
1、单击此处编辑母版标题样式单击此处编辑母版副标题样式* *1 1算法和编程入门信息学奥赛 概述1、什么是信息学？2、信息学奥林匹克比赛的内容。3、什么是程序？4、怎样学习才能在比赛中得奖？1、什么是信息学？信息学奥林匹克比赛的内容Pascal软件的下载http:/ 07年绍兴市信息学奥林匹克竞赛应赛部队 奥赛参谋部 Pascal教学与自学课件 计算机常识课件 Turbo pascal7.0Pascal软件的安装、运行与退出1、安装: 将压缩包解压到桌面2、进入Turbo Pascal 7.0TP7_small3、双击turbo.exe4、退出: File-Exit （Alt+X）PASCAL语言
2、的特点1、第一个结构化程序设计语言2、功能强、应用广3、编译和运行效率高4、可移植、易推广基本符号1、大小写英文字母（AZ，az）2、数字（09）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标识
3、符标识符是以字母开头的字母、数字组合。指出下列用户自定义的标识符哪些是非法的？Xyz Name1 4ab end AB Sb(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, p
4、ut, 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、编译 F92、运行 Ctrl + F9Alt + F5 编辑窗口、结果窗口切换Alt + Enter 全屏、窗口切换练习：书本14页1.2 输
5、入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。(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,
6、mul ) END.标准数据类型实型（real） 10-381038小数表示法 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 arctanexp（以e为底的指数） ln（自然对数）trunc（截尾取整） round（舍入取整）将下列数学表达式写成Pas
7、cal表达式1、(x+y) (x-y)2、log10(m+4n)3、b2 - 4ac4、a3b+ab35、5sinx - 3cosy标准数据类型整型（integer） -3276832767CONST long = 150 ; wide = 65 ;VAR i , j , k : integer ;maxint=32767(不需定义）标准数据类型整型（integer）运算+ - * DIV（整除） MOD（取余）7 DIV 3 = 2 7 MOD 3 = 1abs（绝对值） sqr（平方）pred（前导） succ（后继）odd（奇函数） chr（取字符）指出下列表达式的类型和值12/3 12
8、 DIV 3105 MOD 10106round ( 17/3 )107trunc ( 17/3 )real 4.0 integer 4integer 5integer 6integer 5标准数据类型字符型（char）括在两个单引号中的一个字符。CONST blank = ; star = * ;VAR ch1 , ch2 : char ;标准数据类型字符型（char） ASCII码 书本285页ord （取序号） pred （前导）succ （后继）ord(A)=65 ord(a)=97pred(b)=a succ(a)=b标准数据类型布尔型（boolean）true（真） false（假
9、）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.、25e2.2 指出下列表达式的类型和值A、 3 3true、false53 53) AND (53)chr ( 67 )real 1.4142integer
10、 4boolean falsechar C2.3 将数学表达式表示成PASCAL表达式1. - (a*a+b*b) * sqr(y*y)2. Sqr(sin(x+0.5)+3*cos(2*x+4)+arctan(x)3. 4. (5+b) / ( (a+6)/(b+5) - c*d)4. 5. (p*q*sqr(r+1) / (sqr(r+1)-1)5. 6. a/x / ( a/(a+y) + b/(a+b/(a+b/z)赋值语句 := 赋值相容表达式优先级 （先计算括号）1、函数2、NOT3、AND * / DIV MOD4、OR + -5、 = 求出下列表达式的值1、13 * 6 * 8
11、 div 32、5 / 4 * 2.5 / 1.25 * (4+6)3、24 div 4 * sqr(6.0) / 3.64、28 div 4 mod 3 * trunc(3.674)20825.0060.03read语句read ( )read (a , b , c) a, b, c : real ;12.5 21.3 17.8read (ch1 , ch2 , ch3) ch1,ch2,ch3:char;abcread (ch1 , ch2 , ch3 , a , b , c , i , j )abc 3.5 4.3 7. 1 15 8read语句read ( )read (a , b)
12、;read (c , d , e , f ) ; read (g , h) ; 1.5 3.7 2.45.7 2.1 8.99.2 1.7 5.32.8 3.4 2.9readln语句readln ( )readln (a , b) ;readln (c , d , e , f ) ; readln (g , h) ; 1.5 3.7 2.45.7 2.1 8.99.2 1.7 5.32.8 3.4 2.9自动换行，从下一行读入数据 write语句write () 变量、表达式、字符串write ( x , y , x+y , x*y ) x=2 y=32 3 5 6write ( x=, x
13、 , y=, y , x+y=, x+y , x*y=, x*y )x=2 y=3 x+y=5 x*y=6writeln语句writeln () 变量、表达式、字符串writeln ( x=, x , y=, y )writeln( x+y=, x+y , x*y=, x*y )x=2 y=3 x+y=5 x*y=6read ( x , y );readlnreadln ( x , y );write ( x , y );writelnwriteln ( x , y );编程：实现交换两个变量a,b的内容PROGRAM ch34 (input,output) ; VAR a , b , t :
14、 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=
15、, b ) ; END.a=3 b=2a=5a=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
16、, c= , c:4:1)输出结果：please input a , b , c21.5 18.9 23.4a=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，把它们按向左对齐、向右对齐的方式打印出来。Progra
