资源描述：
《帕斯卡pascal教程.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、PASCAL程序设计信息技术教研组PASCAL是一种结构化程序设计语言基本的程序结构顺序结构选择结构循环结构IF语句CASE语句输入语句赋值语句输出语句FOR语句WHILE语句REPEAT语句FOR语句FOR循环变量:=初值TO终值DO循环体FOR语句的功能：对于初值和终值之间的每一个循环变量的值，重复执行循环体。FOR语句的执行过程：首先将初值赋给循环变量，然后将循环变量与终值比较，当循环变量的值小于等于终值时，执行循环体。在每次执行循环体以后，将循环变量的后继值赋给循环变量，然后再与终值比较，若它仍小于等于终值，则再次执行循环体，否则结束FOR语句，执行FOR
2、语句后面的下一个语句。例1输出1~100之间的所有偶数。PROGRAMcase401;{输出1到100之间的所有偶数}VARi:integer;BEGINFORi:=1TO100DOIF(iMOD2=0)THENwrite(i:5);{i:5表示i的场宽为5}END.例2计算10个数的和、积与平均值。回顾一下“计算三个数的和、积与平均值”。分析：变量的逐个输入、求和时变量的累加、求积时变量的累乘这些运算都是一些重复的操作。利用FOR循环，只需要一个输入变量x，执行下列操作输入一个实数放在变量x中;将sum（其初值为0）与x相加，结果再存入sum；将mul（其初值为
3、1）与x相乘，结果再存入mul；重复执行10次PROGRAMcase402;{计算10个数的和、积与平均值}VARx,sum,mul,ave:real;i:integer;BEGINsum:=0;mul:=1;FORi:=1TO10DOBEGINread(x);sum:=sum+x;mul:=mul*x;END;ave:=sum/10;writeln('sum=',sum,'','mul=',mul,'','ave=',ave);END.PROGRAMcase402b;{计算n个数的和、积与平均值}CONSTn=10;VARx,sum,mul,ave:real;i
4、:integer;BEGINsum:=0;mul:=1;FORi:=1TOnDOBEGINread(x);sum:=sum+x;mul:=mul*x;END;ave:=sum/n;writeln('sum=',sum,'','mul=',mul,'','ave=',ave);END.拓展与延伸例3计算n!(n的阶乘)n!=1x2x3x…xn（n是正整数）当n较大时，n!是一个很大的数,因此必须将存放n!的结果变量fac定义为实型。PROGRAMcase403;VARn,i:integer;fac:real;BEGINread(n);fac:=1;FORi:=TOn
5、DOfac:=fac*i;writeln(n,'!=',fac);END.21FOR语句的注意点循环变量的初值与终值可以是表达式（其特例是常量或变量）循环变量必须与初值、终值的类型相同，且只能是有序类型（整型、字符型、布尔型、枚举型、子界型）实型不能作为循环变量和初值、终值的类型。循环变量必须在包括该循环的最内分程序中说明它的类型。循环体可以是任何单个语句或由多个语句组成的复合语句。FOR语句的注意点在循环执行前，根据初、终值表达式计算初、终值，并由此决定循环的次数及循环变量的取值。在循环体中对初、终值表达式值的改变不会影响循环次数及循环变量的取值。在循环体中，不
6、允许用任何语句改变循环变量的值。从FOR循环退出时，循环变量的值是无定义的，不得使用。如果初值大于终值，循环体将根本不执行。FOR语句（二）FOR循环变量:=初值DOWNTO终值DO循环体注意:当初值≥终值时，执行循环体。PROGRAMcase404;{按正序和反序输出字母表}VARch:char;BEGINFORch:='a'TO'z'DOwrite(ch);writeln;FORch:='z'DOWNTO'a'DOwrite(ch);writeln;END.例4按正序和反序输出字母表例5求菲波拉契数列a0、a1、a2…a20a0=0a1=1a2=a0+a1a3
7、=a1+a2….an=an-2+an-1PROGRAMcase405;{菲波拉契数列}CONSTn=20;VARa0,a1,a2,i:integer;BEGINa0:=0;a1:=1;write(a0,'',a1,'');FORi:=2TOnDOBEGINa2:=a0+a1;write(a2,'');a0:=a1;a1:=a2;END;END.PROGRAMcase406a;{输入30个学生的成绩，分别统计85-100、60-84、60以下各分数段的人数。}CONSTt=30;VARscore:real;num1,num2,num3,i:integer;BEGIN
8、num1:
