第一节 Pascal 程序结构和基本语句 (1)程序首部由保留字Program开头,后面跟一个程序名(如:Exl1);其格式为: Program 程序名;程序名由用户自己取,它的第一个字符必须是英文字母,其后的字符只能是字母或数字和下划线组成,程序名中不能出现运算符、标点符和空格。(2)说明部分程序中所用的常量、变量,或类型、棚猜桐及过程与自定义函数,需在使用之前预先说明,定义数据的属性(类型)。[例1.2] 程序中 Var S,R,C: Real; 是变量说明,此处说明S,R,C三个变量均为实数类型变量。只有被说明为某一类型的变量,在程序中才能将与该变量同类型的数值赋给该变量。变量说明的格式为: Var 变量表:类型;(3)语句部分指由保留字 Begin (开始)至 End. (结尾)之间的语句系列,是解决问题的具体处理步骤,也是程序的执行部分。Pascal程序不管是哪部分,每句末尾都必须有分号(;),但允许最接近 End 的那个语句末尾的分号省略;程序结束的End末尾必须有圆点(. ),是整个程序的结束标志。程序中花括号“{ }”之间的部分为注释部分。Pascal程序结构可归纳用如下来表示: Program 程序名; 程序首部 标号说明; (Label) 常量说明; (Const) 说明部分 类型说明; (Type) 变量说明; (Var) 过程或函数说明; Begin 程序体 (主程序) 语句系列; 语句部分 End. 把处理问题的步骤编成能从上到下顺序执行的程序,是简单程序的基本特征。再来分析下面两道例题的Pascal程序结构和继续学习基本语句。 程序中Pi是Pascal提供的标准函数,它返回圆周率的近似值:3.1415926…。(:=)是赋值符号,赋值语句的格式为: 变量:=表达式;赋值语句的作用是将:=右边表达式的值记录到左边的变量中。Writeln是输出语句,输出语句有三种格式: ① Write (输出项1,输出项2) ; {执行输出后光标不换行} ② Writeln (输出项1,输出项2) ; {执行输出后光标换到下一行} ③ Writeln {仅输出空白且光标换到下一行}Writeln语句后面的圆括号以内部分均为输出项,可以是多项,各项间用逗号分隔; 对单引号里的内容按照引号内的原样(字符)输出显示。如果输出项是表达式,则只输出表达式的值,而不是表达式本身。 执行本程序中第一个Write语句,输出其引号以内的一串提兆亏示信息,是给紧接着的输入语句提供明确的提示(要求),有“一目了然,人机对话”之效果。Readln是一个特殊的输入语句,要求输入一个回车(换行)才能往下执行。 Readln是输入语句,它的一般格式为: ① Read (变量1,变量2); ② Readln (变量1,变量2); ③ Readln前两种格式均要从键盘给变量输入数据,输入时,所键入的数据之间以空格为分隔,以回车为输入结束。若多输入了数据(即数据个数超过变量个数),Read语句读完数据之后,能让后续的读语句接着读取多下来的数据;而Readln 语句对本行多输入的数据不能让后续语句接着读取多下来的数据。为了防止多输入的数据影响下一个输入语句读链坦取数据,建议尽量使用Readln语句输入数据。第三种格式不需输入数据,只需按入一个回车键。 细心观察,会发现本程序语句的顺序很关键。此例用反推顺序(逆序),按步骤正确推算出各变量的值。当然,有的问题可按正序步骤编程,这类程序都称为顺序程序。本程序Writeln语句的输出项含有( ' ' : 4 ),这里的冒号用来指定该项显示所占宽度,此处是输出4个空格即(空格项占4格)。 :语句;因此,上面程序中的情况常量表可以写成如下程序中表示形式:Program Exam22_1;Var x,p: integer; tax: real;Begin Write('Number=') ; readln(x) ; P:=trunc(x/1000) ; if P>9 then P:=10; Case P of 0 : tax:=0; 1..4 : tax:=x*0.2; { 从1至4作为同一情况处理 } 5..9 : tax:=x*0.3; { 从5至9作为同一情况处理 } 10 : tax:=x*0.5 end; Writeln('tt=',tt:5:2) ; ReadlnEnd.程序中的trunc(x)为取整函数,是Pascal的算术标准函数之一。Pascal常用的算术标准函数有19个: (1) abs(x) 求x的绝对值(|x|); (2) exp(x) 求ex的值; (e为无理数2.71828…) (3) frac(x)求x的小数部分; (4) int(x) 求x的整数部分(不舍入,函数值为实型); (5) ln(x) 求以e为底的x的对数(log ex ); (6) odd(x) 判断x的奇偶数(当x为奇数时odd(x)值为true,否则为false); (7) ord(x) 求x的序号,结果为整型(x为有序类型量); (8) pi π值(3.1415926535897932…); (9) pred (x) 求x(有序类型)的前趋值; (10) succ(x) 求x(有序类型)的后继值; (11) random 随机函数,产生0~1的随机值; (12) random(n)产生0~n的随机数(n为word类型,先执行randomize, 才能得到随机整数); (13) round(x) 求x的四舍五入整数; (14) trunc(x) 求x的整数部分(截掉小数部分,结果为整型); (15) sqr(x) 求x的平方值(x2 ); (16) sqrt(x) 求x的开平方根值( );(17) sin(x) 求x的正弦函数(x为弧度);(18) cox(x) 求x的余弦函数(x为弧度);(19) arctan(x) 正切的反三角函数(x为数值); 习题2.21.运输公司计算运费时,距离(S)越长,每公里运费越低,标准如下: 如果S<250公里;运费为标准运价的100% 如果250公里<=S<500公里,运费为标准运价的98%; 如果500公里<=S<1000公里,运费为标准运价的95%; 如果1000公里<=S<2000公里,运费为标准运价的92%; 如果2000公里<=S<3000公里,运费为标准运价的90%; 如果S=>3000公里,运费为标准运价的85%;。请编计算运费的程序。2. 输入考试成绩,如果获85分以上为 A等,获60分~84分为B等,60分以下为C等,编程输出考试等级。3. 某车间按工人加工零件的数量发放奖金,奖金分为五个等级:每月加工零件数N < 100者奖金为10元;100 < = N < 110者奖金为30元;110 < = N <120 者奖金为50元;120 < = N <130 者奖金为70元;N > 130者为80元。请编程,由键盘输入加工零件数量,显示应发奖金数。第三章 循环程序在编程中经常遇到需要多次规律相同的重复处理,这就是循环问题。Turbo Pascal采用不同的循环方式来实现,常用的环循有三种: for、repeat、while. 第一节 for 循环for循环是一种自动计数型循环。程序中的变量yse为布尔(或逻辑)类型(Boolean)。布尔值只有两个: True(真) False(假) 布尔值与条件判断结果为真(条件成立)或为假(条件不成立)的作用相同,常用于条件语句和循环语句中。上面程序中用 if yes and (t mod 7=0) then writeln;实现每行打印七个素数换行,程序中布尔变量yes为真,在逻辑上表示是素数;关系式(t mod 7=0) 的值为真时,表示该行输出素数巳是7个;用and将这两个“条件”连起来是作一种布尔(逻辑)运算。Pascal 共有四种逻辑运算符: ① and (与) 两条件都为True时,其结果值为True;否则为False; ② or (或) 两条件中只要有一个为True ;其结果值为True;否则为False; ③ xor (异或) 两条件的逻辑值不相同时,其结果值为True;否则为False; ④ not (非) 条件为True时,其结果值为False;否则为True;(取反) 第二节 repeat 循环Repeat循环是直到型循环。程序中的Repeat循环格式为: repeat 循环体语句; until 条件表达式; {直到条件为真} Repeat循环首先执行由Repeat和Until括起来的循环体语句,然后检查Until后面的条件表达式:如果表达式结果为假,则继续执行循环体,接着继续检查Until后面的条件表达式,如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句,并最终使这个条件表达式的值为真,使循环自动结束。程序中inc (a) 指令相当于a : =a+1,常用的同类指令格式如下: (1) inc(x) 等同 x:=x+1; (2) inc(x, n) 等同 x:=x+n; (3) dec(x) 等同 x:=x—1; (4) dec(x,n) 等同 x:=x—n; 第三节 While 循环While循环是当型循环。程序中采用While当型循环,While循环语句的格式为: While 条件式 do 语句;其中do后面的“语句”是被重复执行的,称为循环体;若循环体是多个语句, 必须用begin--end包起来成为复合语句。While循环首先判断条件式,当条件式的值为真就执行do 后面的语句(循环体)。While的循环体内也必须包含能改变控制变量取值语句, 影响条件式的值, 最终使条件式为false (假), 才能结束循环。Pascal语言的三种基本循环方式, for循环对循环范围有明确规定, 且循环变量只能是递增加1或递减1自动计数控制; 而repeat--until循环和while--do循环比较灵活, 只要对条件表达式的值能控制满足一定要求就能组成循环, 但在循环体中必须有改变循环变量值的语句, 使条件判断(逻辑值)最终为True或flase, 让循环能够终止。
标签:free,Pascal