pascal1-4章.ppt

1、Pascal语言程序设计,本章要点,Pascal的程序结构 基本符号、保留字、标识符 数据类型、常量、变量及说明方法 函数与表达式 三种基本的程序结构 顺序结构 分支结构 循环结构,第一章 Pascal程序设计语言基础,一、概述 1.Pascal是结构化的语言 Pascal语言全面清晰地体现结构化思想。不仅提供了直接实现“顺序结构”、“选择结构”和“循环结构”的语句，而且还可以定义子程序（“函数”和“过程”）。在编程时可以完全不使用转向语句“goto”，使程序的执行顺序与行文顺序保持一致，便于理解； 2.Pascal的数据类型丰富 Pascal语言不仅提供了整型、实型、字符型、布尔型等标准数据

2、类型，而且还允许用户按照语法规则自定义枚举型、子界型、数组型、集合型、记录型、指针类型和文件类型，便于数值计算和非数值信息处理； 3.Pascal语言可以实现模块的独立化要求 Pascal语言允许在函数和过程内部定义局部变量，允许在主程序和子程序之间传递参数，使得每一个子程序模块都能反映一个相对独立的性质，模块之间的联系简单清晰，便于修改； 由于Pascal语言精确地表达了程序设计的基本概念，结构性好，表达能力强，因此成为学校程序设计课程的教学语言，计算机会考和奥林匹克信息学竞赛的规定语言。,1、程序结构,Pascal语言具有严谨的程序结构 【例】已知圆的半径，求它的周长和面积。,从这个简单的

3、程序可以看到： 一个PASCAL程序分为两个部分：程序首部和程序体。 程序首部 程序首部是程序的开头部分，有保留字program后接程序名及程序参数表组成，由分号结束。程序名是用户自己定义的标识符，参数表一般是文件变量名，用于该程序与外界的数据交流。最常用的参数为input和output。在turbo pascal语言中，首部中的参数表可以省略，首部也可省略。 程序体 程序体是程序的主体部分，由说明部分和执行部分两部分组成。 说明部分： 用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是变量说明，用来定义变量的名称、类型。PASCAL规定，凡程序中用到所有变量、符号常量、数组

4、、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称说明）。也就是说，不允许未说明先使用。 执行部分： 以begin开始，以end结束，其间有若干个语句，语句之间以分号隔开。一条语句执行一定的功能，所有语句完成程序设计的任务。允许一行写多个语句，也允许一个语句写几行，最后一行的end后加一.号表示结束。,2、完整的pascal程序框架：,program 程序名（程序参数表）； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 程序语句1； ； 程序语句n； end.,

5、程序首部,程 序 体,说 明 部 分,执 行 部 分,二、基本符号、保留字、标识符：,1基本符号： 是ASCII字符集，主要有： 26个英文字母(不分大小写，字符串中的字母例外。 十个数字符号。 特殊符号 + - * / = = ( ) := . , ； : .,2保留字： 保留字是指pascal语言中一些有特殊含义的英文单词，它们已被pascal语言自己使用，都有专门的用途。 Pascal 语言中保留字有36个，可分为以下六种类型： 程序、函数、过程的符号： program，function，procedure 说明部分的专用定义符号： array，const，file，label，pack

6、ed，var，record，set，type，of 语句专用符号： case，do，downto，else，for，goto，if，repeat，then，to，until，while，with，forward 运算符号： and，div，in，mod，not，or 分隔符号： begin，end 空指针常量： Nil,3. 标识符： 标识符是以字母开头的字母数字序列(大小写等效，可跟下划线_)，用来标识常量、变量、程序、函数等。Pascal中允许的标识符的有效长度为63。 标识符分为两大类： 标准标识符： 标准常量：false，true，maxint(32767) 标准类型：integer，

7、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 自定义标识符 由用户自己在程序首部或说明部分进行定义，但要注意以下几点：不能与保留字同名；避免与标准标识符同名；最好有一定的含义，增加程序的可读性。 例如：在程序中如用到数学中的，则在定义该常量时可用P

8、I表示。,三、数据类型、常量、变量及说明方法,数据类型确定了该类型数据项的表示、取值范围以及所能参与的运算。在pascal语言中，无论常量还是变量都必须属于一个确定的数据类型。 Pascal 提供了丰富的数据类型，可以分为三大类： 简单类型：分为标准类型（整型、实型、字符型和布尔型）和自定义类型（枚举型和子界型） 构造类型：分为数组类型、集合类型、记录类型和文件类型 指针类型 这些数据类型中除了指针类型是动态数据类型外，其他的都是静态数据类型。另外，我们把整型、字符型、布尔型、枚举型和子界型称为顺序类型。,1标准数据类型： 整数类型：,整数类型包括正整数、负整数和零。整数只能由正负号和数字组成

9、，不允许出现其他字符，“+”号可以省略。,名称 类型数值范围 占字节数 字节型 Byte 0 . 255 1 字型 Word 0.65535 2 短整型 Shortint -128 . 127 1 整型 Integer -32768.32767; 2 长整型 Longint -2147483648 . 2147483647 (9位) 4 长字型 Longword 0.4294967295 4 整数INT64 Int64 -9223372036854775808 . 9223372036854775807 8 Q字型 QWord 0 . 18446744073709551615 8 （整数部分1

10、9位）,Turbo Pascal规定了两个预定义整型常量标识符maxint和maxlonint，他们各表示确定的常数值， maxint为32767， longint为2147483647， 他们的类型分别是integer 和longint。 整数的运算符有+、-、*、div、mod，后三种运算符的优先级高于前两种，整数运算的结果也为整数。当两个整数用/相除时，结果为实型，只能赋给实型变量。,实数类型包括正实数、负实数和实数零。它的标识符是real。 有两种表示实数的方法：十进制表示法：1.25；科学记数法：3.4E3表示3.4*103 。实数的绝对值在1E-38到1E38之间。, 实数类型：,

11、实数的运算有+、-、*、/、结果也为实型。整数参与实数运算，系统自动将整数转化为实数再运算，结果为实数。,2)实数 名称 Type Range Significant digits Size 实型 Real platform dependant ? 4 or 8 单精度型 Single 1.5E-45 . 3.4E38 7-8 4 双精度型 Double 5.0E-324 . 1.7E308 15-16 8 扩展型 Extended 1.9E-4951 . 1.1E4932 19-20 10 装配十进制型Comp -2E64+1 . 2E63-1 19-20 8, 字符类型： 目前微机上广泛使

12、用的ASCII码字符集满足PASCAL对字符集的要求。字符型用char作为标识符。字符型必须用单引号括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串string。 布尔类型： 一个布尔型数据用来存放逻辑值（布尔值）。布尔型的值只有两个：false和true，并且false的序号是0，true的序号是1。false 和true都是预定义常数表识符，分别表示逻辑假和逻辑真。并且truefalse。boolean是布尔型的标识符。 布尔类型的运算符有not(非)、and(与)、or(或)。参与布尔型运算的是布尔类型的数据，其结果也是布尔类型的数据。,2常

13、量,常量：在程序执行过程中其值不能被改变的量。 pascal除了maxint,true,false三个标准常量外，用户还可以使用常量定义语句定义新的常量。 它的语法格式是：const=;.=; 常量表识符的类型由定义它的常量的类型决定。例如：const a=12 隐含说明a是整型；const r=3.21 隐含说明r是实型。常量的定义具有单一性和不可改变性。,3变量,变量：在程序执行过程中可以改变值的数据。 它的语法格式是： var :； . :； 其中，保留字var表示开始一个变量说明部分。变量标识符列表是一个用逗号隔开的标识符序列，冒号后面的类型是类型标识符。每个变量说明均以分号结束。 例

14、如： var a,b,c:integer; m,n:real;,1标准函数： 算术函数： 函数标识符 自变量类型 意义 结果类型 Abs 整型、实型 绝对值 同自变量 Arctan 整型、实型 反正切 实型 Cos 整型、实型 余弦 实型 Exp 整型、实型 指数 实型 Ln 整型、实型 自然对数 实型 Sin 整型、实型 正弦 实型 Sqr 整型、实型 平方 同自变量 Sqrt 整型、实型 平方根 实型,四、函数与表达式,标准ASCII字符编码,2运算符和表达式, 运算符和优先级 算术运算符：, 表达式,表达式：是指由常量、变量、函数、括号、集合及运算符联结起来的式子。 表达式中各运算符的优

15、先级：,表达式有以下几种,a.算术表达式： 例如：sqrt(b*b-4*a*c) b.关系表达式： 例如：x0 c.逻辑表达式： 例如: (x=0) and (y=0),第二章 顺序结构程序设计步,赋值语句 Read语句，write语句 复合语句,【例1】：键盘输入两个变量的值，交换值后输出。 方法：间接交换法 算法分析：（“自顶向下，逐步求精”的编程思想） s1:通过键盘给a,b两个变量赋值； s2:交换a,b的值； s2-1:引入中间变量c； s2-2:在c中存放的a值； s2-3:在a中存放的b值； s2-4:在b中存放的c值； s3:输出变量a,b的值。 程序代码： program e

16、x1(input,output); var a,b,c:integer; begin write(please input a,b:); read(a,b); writeln(a=,a,b=,b); c:=a; a:=b; b:=c; writeln(a=,a,b=,b) end.,第一节 顺序结构程序设计,Pascal 语言的语句分为简单语句（也称基本语句）和复合语句（也称构造语句）,几个简单语句： 1赋值语句： 格式：变量标识符：=表达式； 功能：计算和赋值双重功能： 【例2】写出程序执行后，变量的值。 程序代码： program ex2(input,output); var a,b:in

17、teger; c:real; ch:char; bool:boolean; begin a:=3; b:=a; b:=a+1; a:=a+1; c:=a+b; ch:=h； bool:=true; bool:=not bool; end. 说明：1）“：=”赋值号不同于“=”号，具有方向性，具有计算功能。 2）赋值号两边的类型应该相同或相容。 3）一个赋值语句只能给一个变量赋值，可以多次给一个变量赋值。 4）被赋值的变量可以作为因子参与运算。,2输入语句（read,readln）： 格式：read(变量名表); readln read(a1,a2,a3); 等价于 read(a1);read(

18、a2);read(a3); readln(a1,a2,a3); 等价于 read(a1);read(a2);read(a3);readln; 功能：通过键盘，给指定的变量赋值。 【例3】：写出程序运行后，变量的值。 程序代码： program ex3(input,output); var a,b,c:integer; i,j,k:real; ch1,ch2,ch3:char; begin read(a,b,c); readln(i,j,k); read(ch1,ch2,ch3)； writeln(a=,a,b=,b,c=,c); writeln(i=,i, j=,j,k=,k); writel

19、n(ch1=,ch1,ch2=,ch2,ch3=,ch3); end. 程序运行后，输入数据： 1 2 3 4 5 6.1 7 8 9 0 dos,说明： 1）变量名表中的变量可以是一个变量，也可以是多个变量，多个变量之间用逗号隔开。 2）程序运行后，执行到该语句时，系统处于等待状态，等待用户从键盘输入数据。输入数值型数据（整型和实型），数据间用空格分隔；输入字符型数据，数据间不须分隔。 3）输入数据一定为常量，且与变量保持类型一致。 4）输入数据个数不能少于变量个数，否则，系统继续等待输入。,read语句与readln语句区别,（1） read语句是一个接一个地读数据，在执行完本Read语句

20、( 读完本语句中变量所需的数据)后,下一个读语句接着从该数据输入行中继续读数据，也就是说，不换行。如： Read(a,b); Read(c,d); Read(e); 如果输入数据行如下: 123456 则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据6是多余的，这是允许的。,Readln则不同，在读完本Readln语句中变量所需的数据后, 该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。 设有下列语句: read(a,b,c); readln(d,e); readln; readln(f,g); 其

21、中,所有变量均为整型。再设输入的数据如下： 12 345678 910 11,(2)readln语句与read语句的第二个区别是:,read 后一定要有参数表, readln可以不带参数表,即可以没有任何输入项, 只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车,3输出语句（write,writeln）： 格式：write（输出项）； writeln； 功能：按指定的格式将输出项的内容输出。 【例4】：写出程序运行后的结果。 程序代码： program ex4(input,output); const a=10; b=20; begin writeln(50); wri

22、teln(a); writeln(a+b); writeln(a+b=,a+b) end. 说明：1）输出项的内容可以是一项，也可以是若干项，各项之间用逗号分隔。 2）当输出项为常量，直接输出常量的值；当输出项为变量时，输出该变量存储单元内的内容，变量允许属于任何一种标准数据类型；当输出项为表达式时，先计算后输出；当输出项为字符串时，原样输出单引号括起来的内容。,Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于: write语句将其后括号中的表达式一个接一个输出后，没有换行。 而writeln语句则在输出各个表达式的值后换行。 例如以下两个程序段的输出

23、分别为： write(1,2,3,4); write(5,6); 输出为： 123456 writeln(1,2,3,4); write(5,6); 输出为： 1234 56,实数的输出格式,实数（real）以浮点型格式输出。例如805.67对应的浮点数为8.056700000000E+02。这种实数表达方式很不方便。我们可以通过下述形式强迫实数以定点型格式输出： 实数表达式：域宽：小数位数 例如，t的值设为63.123。下面三条输出语句分别有它们右边所示的输出格式： write(t)； 6.312300000000E+01 write(t：6：2)； 63.12 write(t：10：5)；

24、 63.12300 write(t：0：2)； 63.12,输出语句的输出格式：, 什么是场宽（或域宽）？ pascal中将输出项的数据显示占用的宽度称为场宽 场宽的分类：标准场宽和自定义场宽。 自定义场宽又分为单场宽和双场宽。 标准场宽：writeln(x),x直接输出，如x为实数，按科学计数法死的形式输出。 单场宽的形式： x：n；如：writeln(x:n) 可以输出的项目有整型、字符型、布尔型，不允许实型。 双场宽的形式： x：n1：n2；如：writeln(x:m:n) 控制实型数据的输出。 自定义场宽的注意事项 a. 优先级高于标准场宽。 b. 单场宽输出格式一律是左留空、右对齐。

25、实型的双场宽输出时是向小数点看齐，多余的小数为数补零。 c. 突破场宽时，扩展到所需位数. d. n2小于实际位数，显示时舍去多余位数，但内存中该数的精度保持不变。,【例5】：写出程序的运行结果： program ex5(input,output); var a:integer; b:real; c:char; d:boolean; begin a:=1357; b:=1234.5678; c:=%; d:=true; writeln(a,a:5); writeln(b,b:12:5); writeln(c,c:5); writeln(d,d:5); writeln(end:5) end.,定

26、义：复合语句是由若干条语句组成的语句序列。 形式： begin 语句1； 语句2； 语句n end； 用保留字begin和end括起来，构成一条逻辑上的语句，语法上充当一条语句。,复合语句：,四：综合应用： 【例6】:随机产生一个三位自然数，分离出它的百位、十位与个位上的数字。 算法分析： s1：随机产生一个三位自然数； s2：分离出该自然数的百位、十位、个位上的数字； s3：输出百位、十位、个位上的数字。 程序代码： program ex6(input,output); var x,ge,shi,bai:integer; begin randomize; x:=trunc(random*90

27、0)+100; writeln(x=,x); bai:=x div 100; shi:=(x-bai*100)div 10; ge:=x mod 10; writeln(bai=,bai); writeln(shi=,shi); writeln(ge=,ge) end.,上机练习题,1.上机调试出例6。 2. 试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积。 3.输入一个三位整数，将他们反向输出。例如输入369，输出963。,1if 语句： 功能：执行过程 说明：1）该语句为一个语句； 2）条件是一个布尔表达式或一个布尔变量，then 和else后的语句可以是单个语句，当需要多条语句

28、时，用begin和end括起来构成复合语句。 3）当布尔表达式的值为真，则执行then后面的语句，值为假时有两种情况：要么什么也不做，要么执行else后面的语句。 注意:else前面没有分号.,第三章 选择结构程序设计,格式一： if then ；,格式二： if then else ；,逻辑、算术、关系运算符的运算次序： 括号 函数、not *、/、div、mod、and +、-、or 、=、,补充,【例1】:将输入的两个非负实数中较大的放在max里，小的放在min里，并输出。 算法分析： s1:输入两个数放在max,min中； s2:判断max,min的值，将大数放在max里，小数放在mi

29、n里； s3:输出max,min的值。 程序代码： program ex1(input,output); var max,min,t:real; begin writeln(input two num(0):); read(max,min); if maxmin then begin t:=max; max:=min; min:=t end; writeln(max=,max,min=,min) end.,例2:输入一个整数，判断是否为偶数。 （是输出“”否则输出“”）。 Var a:integer; Begin readln(a); If (a mod 2 =0) then writeln(

30、yes) Else writeln(no); End.,2if 语句的嵌套： 格式： (1) if 语句嵌套在then语句中 if 条件1 then if 条件2 then 语句21 else 语句22 else 语句12； （2）if 语句嵌套在else语句中 if 条件1 then 语句11 else if 条件2 then 语句21 else 语句22 ； 注：pascal系统规定，else总是与同一层前面最靠近它的，还没有else与之配对的then配对,【例2】:计算下列函数,分析：根据输入的x值，先分成x0与x0两种情况，然后对于情况x0，再区分x是小于0，还是等于0。,程序代码：

31、program ex; var x:real; y:integer; begin write(input x:);readln(x); if x0then y:=1 else if x=0then y:=0else y:=-1; writeln(x=,x:6:2,y=,y); end.,程序代码： program ex2(input,output): var a,b,c:integer; begin write(a,b,c(0):); readln(a,b,c); if (a+bc) and (a+cb) and (b+ca) then if (a*a+b*b=c*c) or (a*a+c*c

32、=b*b) or (b*b+c*c=a*a) then writeln(a=,a,b=:5,b,c= :5,c, is rt triangle.) else writeln(a=,a,b=:5,b,c= :5,c, is not rt triangle.) else writeln(a=,a,b= :5,b,c= :5,c, is not triangle.) end.,【例3】:输入三角形的三边，判断它是否是直角三角形。,3case 语句：分情况语句（多分支语句） 格式：case 表达式 of 常数表1：语句1； 常数表2：语句2； 常数表n：语句n; else 语句n+1 end; 功能：

33、执行过程 说明：1）end 与case 对应 2）表达式的类型通常是整型、字符型 3)常量表是常量，其类型与表达式的类型要一致。常量表中的常量不能重复。,【例4】:输入两个数（均不为零）及一个算术运算符，输出其运算的结果 程序代码： program ex3(input,output); var x,y,s:real; ch:char; begin writeln(input x writeln(x,ch,y,=,s) end.,上机练习题1.求一元二次方程ax2+bx+c=0的根。算法分析：方程的系数a,b,c决定了方程有无根，是几个根，是实数根还是复根。 2.打印某年某月有几天。算法分析：可

34、分为以下3种情况：每年的1，3，5，7，8，10，12这七个月每月为31天；每年的4，6，9，11这四个月为30天；2月又分为两种情况：闰年为29天，否则为28天。判断闰年的条件：年数能被4整除，并且不能被100整除，或者年数能被400整除； （year mod 4=0）and (year mod 1000) or (year mod 400=0),第四章 循环结构程序设计,一、什么是循环结构？其特点是什么？ 二、循环结构的三种形式： 循环结构程序通常由三种的循环语句来实现。它们分别为FOR循环、当循环while、直到repeat循环。 通常将一组重复执行的语句称为循环体，而控制重复执行或终止

35、执行由重复终止条件决定。 因此，重复语句是由循环体及重复终止条件两部分组成。,1for语句,1for语句：（“计数循环”）：就是将规定循环体重复执行的次数。 格式：for 控制变量：=初值 to 终值 do 循环体语句； for 控制变量：=初值 downto 终值 do 循环体语句； 2、For语句执行过程 先将初值赋给左边的变量（称为循环控制变量）； 判断循环控制变量的值是否已“超过”终值，如已超过，则跳到步骤； 如果末超过终值，则执行do后面的那个语句（称为循环体）； 循环变量递增（对to）或递减（对downt o)； 返回步骤； 循环结束，执行for循环下面的一个语句。 3、说明： 1

36、) 初值和终值可以是表达式，控制变量和初值、终值的类型相同，且必须是整型、布尔型和字符型等顺序类型，不能为实型。 2）递增按succ函数规律变化，递减按pred函数规律变化，整型按数值大小变化，如果为字符型量，按ASCII码表的顺序计算。 3）初值和终值在循环之前计算，重复过程中，其值不受影响；不得在循环语句中对控制变量进行赋值。 4）当初值超过终值，不执行循环，循环次数为零。,【例1】:计算1+2+3+4+100之和。 算法分析： 对于求和，我们使用的是累加的办法。 程序代码： program ex1(input,output); var i,sum:integer; begin sum:=

37、0; for i:=1 to 100 do sum:=sum+I; writeln(sum=,sum) end. 补充说明：类似sum迭加变量这样的功能称为“累加器”；类似i这样的变量称为“计数器”；“计数器”和“累加器”是在程序中经常使用的基本操作语句。,【例2】:对程序稍加改动，算出以下算式： 请同学们思考怎样改动程序可以实现？ s=2+4+6+100 s=1+1/2+1/3+1/100 s=12+22+32+1002,【例3】:键入一个自然数，输出其所有约数，计算出这些约数之和并输出。 算法分析：解决这一问题的关键是找出约数，也就是判定一数能否被另一数整除。可以用x mod y=0，来找

38、出所有约数。 程序代码： program ex3(input,output); var i,x,y,sum:integer; begin write(x=);read(x); sum:=0;i:=0; for y:=1 to x do if x mod y=0 then begin write(y:8); i:=i+1; if i mod 5=0 then writeln; sum:=sum+y end; writeln(sum=,sum) end.,If 语 句,For语句,If语句作为For语句的循环体,【例4】:编程找出四位整数abcd中满足下述关系的数。 (ab+cd)(ab+cd)=

39、abcd 算法分析：这道题属于搜索问题，因为是四位整数，其范围从10009999，所求的数究竟在哪里，无法确定，只有在这个范围内从小到大一个一个进行搜索，对每一个数，看它的高两位数与低两位数和的平方是否为该数。 高两位数：abcd div 100=ab 低两位数：abcd mod 100=cd 程序代码： program ex4(input,output); var i,m,n,k:integer; begin for i:=1000 to 9999 do begin m:=i div 100; n:=i mod 100; k:=(m+n)*(m+N); If k=i then write(I

40、:8) end end. 补充说明： 以上用的方法也叫“枚举法”，又称“穷举法”。它是用计算机解题的一种常用的办法。它的基本思路是：一一枚举各种可能的情况，并判断哪一种可能是符合要求的解。方法虽然很笨，然而与计算机高速的处理能力相结合，也不失为一种较有用的方法,2while语句： 对于for循环有时也称为计数循环。适合用于事先知道循环次数. 当循环次数未知，只能根据某一条件来决定是否进行循环时，用while 语句实现循环要更方便。 （“当型循环”）：当条件满足时反复执行循环体。 格式：while 布尔表达式 do 语句； 执行过程： while语句的执行过程为： 判断布尔表达式的值,如果其值为

41、真,执行步骤2,否则执行步骤4; 执行循环体语句(do后面的语句); 返回步骤1; 结束循环,执行while的下一个语句。 说明： 1）为了是while循环能正常终止，布尔表达式中的变量必须在循环体中的某语句中有所改变，即有可能是布尔表达式的值为假，使循环结束，否则将出现死循环。 2）循环体中的语句一般是多条语句，用begin和end使其成为一条复合语句。,【例5】:输出1100之间的奇数。 程序代码： program ex5(input,output); var x:integer; begin x:=1; while x100 do begin write(x:5); x:=x+2 end end.,【例6】:输入若干个字符，它的终止符是#，计算输入的字符中a（A）出现的次数。 算法分析： 设计数器i，置初值为0； 出入字符； 当字符不为#时循环：如果字符为a或A，则计数器加1；读入下一个字符； 输出计数器的值，程序结束。 程序代码： program ex6(input,output); var ch:char; i:integer; begin i:=0; read(ch); while ch# do begin if (ch=a) or (ch=A) then i:=i+1; read(ch) end; writeln(i=,i) end.,repeat语