帕斯卡pascal教程.ppt

1、PASCAL程序设计、信息技术教育组，PASCAL是结构化程序设计语言、基本程序结构、序列结构、选择结构、循环结构、IF语句、CASE语句、输入语句、代入语句、FOR语句、WHILE语句、REPEAT语句、FOR语句、 执行FOR语句的步骤：首先将初始值分配给循环变量，然后比较循环变量和最终值，当循环变量的值小于或等于最终值时执行循环体。 每次执行循环时，都将循环变量的后续值指派给循环变量，然后与结束值进行比较，如果它小于或等于结束值，则再次执行循环，否则，终止FOR语句，并执行FOR语句的下一个语句。 例1输出1100之间的所有偶数。 程序盒401； 输出1到100的所有偶数VAR i:in

2、teger； begin fori :=1to 100 doif (id mod2=0) then写入(i:5) i:5的I的字段宽度为5个结束，例子2计算10个和，乘积和平均值。 回顾“计算三个个数的和、积、平均值”。 分析：变量的个别输入、合计时变量的累计、累计时变量的累计等运算是几个反复的操作。 FOR循环只需要一个输入变量x，重复10次，将输入实数并输入变量x的sum (初始值为0 )与x相加，将结果存储在sum中的mul (其初始值为1 )与x相乘，将结果存储在mul中计算10个和、乘积和平均值VAR x、和、mul、ave:real的i:integer； BEGIN sum:=0；

3、 mul:=1； for I :=1to 10 do begin读(x ) sum :=sum x； mul:=mul*x； 结束； ave :=和/10； writeln (和=，和，mul=，mul，ave=，ave )； 结束、程序盒402 b； 计算n个和、乘积和平均值CONST n=10的VAR x、sum、mul、ave:real； I :整合员； BEGIN sum:=0； mul:=1； for I :=1to n do begin read (x ) sum :=sum x； mul:=mul*x； 结束； ave :=和/n； writeln (和=，和，mul=，mul，

4、ave=，ave )； 结束.扩展和扩展，例3计算n！ (n的阶乘)，n！=1x2x3xxn (n为正整数)如果n大，则为n！ 因为数量很大，所以必须保管n！ 的结果变量fac被定义为实数类型。 程序盒403； VAR n，i:integer； fac :真实； begin读(n ) fac :=1； for I :=待机fac :=fac * I； writeln(n，=、fac； END .2，1，FOR语句的注意点，循环变量的初始值和结束值也可以是式(其例外是常数或变量)的循环变量必须与初始值、结束值的类型相同，仅通过规则类型(整数、字符类型、布尔型、枚举型、子边界型)的实数型，循环变量

5、和初始值循环变量必须在包含循环的最内分程序中描述其类型。 循环体可以是由任何一个语句或多个语句组成的复合语句。 FOR语句的注意点是：在执行循环之前，从初始结束值公式计算初始结束值，从而确定循环的次数和循环变量的取值。 循环体上的初期、最终值式的值的变更不影响循环次数和循环变量的取值。 循环主体不允许在任何语句中更改循环变量的值。 从FOR循环结束时，没有定义循环变量的值，不能使用。 如果初始值大于结束值，则不执行循环体。 另外，在FOR语句(2)、FOR循环变量：=初始值DOWNTO结束值DO循环整体注意：初始值结束值时，执行循环整体。程序盒404； 按正序和反序输出字母var ch : c

6、har beginforcch :=atozdowrite (ch ) writeln； for ch :=z down to a do write (ch ) writeln； END .例4按照与正序相反的顺序输出字母，例5求出锅炉的数列a0、a1、a2a20、A0=0a1=1a2=a0a1a3=a1a2. an=an-2an-1，求出程序情况405的锅炉的数列CONST n=20 VAR a0、a1、a2、I :整合器； BEGIN a0:=0； a1:=1； write(a0，a1，) fori :=2tondobegina 2:=a0a 1； 写入(a2 ) a 0:=a1； a1:

7、=a2； 结束； 结束、程序盒406 a； 输入30名学生的成绩，分别统计85-100、60-84、60以下各分数阶段的人数。 CONST t=30； var score :实际； num1、num2、num3、i:integer； BEGIN num1:=0； num2:=0； num3:=0； 三个累加器初始化fori :=1totdobeginread (score ) if score=85 then num 1:=num1else if score=60 then num 2:=num2else num : writeln(85-100:num1，60-84:num2，0-59:nu

8、m3)； END .授课练习：输入20个，统计其中的正数，负数，零的数量。 程序盒406 b； 要计数正数、负数和零数CONST t=20，请输入20的数，即VAR x:real； num1、num2、num3、i:integer； BEGIN num1:=0； num2:=0； num3:=0； 三个累加器初始化for I :=1to tdo begin read (x ) if x0then num 1:=num1elseifx=0then num 2:=num 21 else num :=num3end； writeln(x0:num1，x=0:num2，x0:num3)； 结束、程序盒407； 要求最大数量和