语言补充内容.ppt

《语言补充内容.ppt》由会员分享，可在线阅读，更多相关《语言补充内容.ppt（38页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、情况语句（情况语句（CASE语句）语句）上面我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比用if语句写程序具有更简洁、清晰之感。情况语句的一般形式：情况语句的一般形式：caseof：语句1;：语句2;:：语句n;else语句n+1;end;其中case、

2、of、end是Pascal的保留字，表达式的值必须是顺序类型，它可以是整型、布尔型及以后学习的字符型、枚举型和子界型。情况标号表是一串用逗号隔开的与表达式类型一致的常量序列。语句可以是任何语句，包括复合语句和空语句。case语句的执行过程语句的执行过程先计算表达式（称为情况表达式）的值，如果它的值等于某一个常量（称为情况常量，也称情况标号），则执行该情况常量后面的语句，在执行完语句后，跳到case语句的末尾end处。说明说明情况表达式必须是顺序类型的；情况常量是情况表达式可能具有的值，因而应与情况表达式具有相同的类型；情况常量出现的次序可以是任意的；同一情况常量不能在同一个case语句中出现两

3、次或两次以上；每个分语句前可以有一个或若干个用逗号隔开的情况常量；如果情况表达式的值不落在情况常量的范围内，则认为本case语句无效，执行case语句的下一个语句。Freepascal中增加了一个“否则”的情况,即增加一个else子句，但也是可省的。每个常量后面只能是一个语句或一个复合语句，以分号结束。例例3.9根据x的值，求函数Y的值：【分析分析】利用case语句进行程序设计,关键在于巧妙地构造情况表达式。本例中三种情况可用一个表达式区分出来：Trunc(x/100)。因为x在(0,100)之间时表达式值为0；x在100,200)时表达式值为1；其余部分可用else子句表示。源程序如下:pr

4、ogramex3_9;varx,y:real;beginwrite(Inputx:);readln(x);casetrunc(x/100)of0:y:=x+1;1:y:=x-1;elsey:=-1;end;/endofcase，每个case对应一个endwriteln(x=,x:8:2,y=,y:8:2);end.例例3.10 判断2006年,每个月份的天数。【分析分析】程序分为：输入月份,计算该月的天数,输出天数。程序如下：Programex3_10;Varmonth,days:integer;beginreadln(year,month);casemonthof1,3,5,7,8,10,1

5、2:days:=31;4,6,9,11:days:=30;2:if(yearmod400=0)or(yearmod4=0)and(yearmod1000)thendays:=29elsedays:=28;elsedays:=0;end;ifdays0thenwriteln(days);end.运行结果：输入：10输出：31例例3.11期未来临了，班长小Q决定将剩余班费X元钱，用于购买若干支钢笔奖励给一些学习好、表现好的同学。已知商店里有三种钢笔，它们的单价为6元、5元和4元。小Q想买尽量多的笔（鼓励尽量多的同学），同时他又不想有剩余钱。请您编一程序，帮小Q制订出一种买笔的方案。【分析分析】对于

6、以上的实际问题，要买尽量多的笔，易知都买4元的笔肯定可以买最多支笔。因此最多可买的笔为xdiv4支。由于小q要把钱用完，故我们可以按以下方法将钱用完：若买完xdiv4支4元钱的笔，还剩1元，则4元钱的笔少买1支，换成一支5元笔即可；若买完xdiv4支4元钱的笔，还剩2元，则4元钱的笔少买1支，换成一支6元笔即可；若买完xdiv4支4元钱的笔，还剩3元，则4元钱的笔少买2支，换成一支5元笔和一支6元笔即可。从以上对买笔方案的调整，可以看出笔的数目都是xdiv4，因此该方案的确为最优方案。程序如下：程序如下：Programex3_11;Vara,b,c:integer;/a,b,c分别表示在买笔方

7、案中，6元、5元和4元钱笔的数目x,y:integer;/x，y分别表示剩余班费和买完最多的4元笔后剩的钱beginreadln(x);/输入xc:=xdiv4;/4元笔最多买的数目y:=xmod4;/求买完c支4元笔后剩余的钱数ycaseyof0:begin a:=0;b:=0;end;1:begin a:=0;b:=1;c:=c-1;end;2:begin a:=1;b:=0;c:=c-1;end;3:begin a:=1;b:=1;c:=c-2;end;end;writeln(a,b,c);/三个数间以空格隔开end.例例3.12试编写一个根据用户键入的两个操作数和一个运算符，由计算机输

8、出运算结果的程序。【分析】只考虑加（+）、减（-）、乘（*）、除（/）四种运算，利用Case语句。Programex3_12;Varresult,x,y:real;ch:char;beginreadln(x,y);/分二行输入，第一行是二个操作数readln(ch);/第二行是运算符result:=0;casechof+:result:=x+y;-:result:=x-y;*:result:=x*y;/:ify0then/考虑被0除的特殊情况result:=x/yelsewriteln(error!);end;writeln(result:0:2);end.运行结果：输入：153+输出18.0

9、0输入：50/输出：error!直到循环（直到循环（REPEAT语句）语句）用while语句可以实现“当型循环”，用repeat-until语句可以实现“直到型循环”。repeat-until语句的含义是：“重复执行循环，直到指定的条件为真时为止”。直到循环语句的一般形式:Repeat;:;until;其中Repeat、until是Pascal保留字，repeat与until之间的所有语句称为循环体。说明：说明：repeat语句的特点是：先执行循环，后判断结束条件，因而至少要执行一次循环体。repeat-until是一个整体，它是一个（构造型）语句，不要误认为repeat是一个语句，until

10、是另一个语句。repeat语句在布尔表达式的值为真时不再执行循环体，且循环体可以是若干个语句，不需用begin和end把它们包起来，repeat和until已经起了begin和end的作用。while循环和repeat循环是可以相互转化的。例例4.13 求两个正整数求两个正整数m和和n的最大公约数。程序的最大公约数。程序采用采用repeat-until循环实现。循环实现。Programex4_13;varm,n,r:integer;beginreadln(m,n);repeat/辗转相除法r:=mmodn;m:=n;n:=r;untilr=0;writeln(m);end.例例4.14 校体操

11、队到操场集合校体操队到操场集合,排成每行排成每行2人人,最后多出最后多出1人人;排成每行排成每行3人人,也多出也多出1人人;分别按每行排分别按每行排4,5,6人人,都多出都多出1人人;当排成每行当排成每行7人时人时,正好不多。求校体操队正好不多。求校体操队至少是多少人至少是多少人?【分析分析】设校体操队为X人,根据题意X应是7的倍数,因此X的初值为7,以后用inc(x,7)改变X值；为了控制循环,用逻辑变量yes为真(True)使循环结束；如果诸条件中有一个不满足,yes的值就会为假(false)，就继续循环。Programex4_14;varx:integer;yes:boolean;beg

12、inx:=0;repeatyes:=true;inc(x,7);ifxmod21thenyes:=false;ifxmod31thenyes:=false;ifxmod41thenyes:=false;ifxmod51thenyes:=false;ifxmod61thenyes:=false;untilyes;/直到yes的值为真writeln(All=,x);readlnend.程序中对每个X值，都先给Yes赋真值，只有在循环体各句对X进行判断时，都得到“通过”（此处不赋假值）才能保持真值。例例4.15 求求1992个个1992的乘积的末两位数是多少？的乘积的末两位数是多少？【分析分析】积的

13、个位与十位数只与被乘数与乘数的个位与十位数字有关，所以本题相当于求1992个92相乘，而且本次的乘积主下一次相乘的被乘数，因此也只需取末两位参与运算就可以了。Programex4_15;vara,t:integer;Begina:=1;t:=0;repeatt:=t+1;a:=(a*92)mod100;untilt=1992;writeln(a);Readln;End.例例4.16 利用格里高公式求利用格里高公式求。/4=1-1/3+1/5-1/7+，直到最，直到最后一项的值小于后一项的值小于10-6为止为止.【分析分析】解本题的关键就是求右边数值序列的和，序列有明显的特点：分母是从1开始的奇

14、数，加、减号轮流出现，因此，我们可以用m=n+2表示序列数值的变化，用f=-f来设置它们知项的符号位。Programex4_16;varf:integer;n,t,pai:real;beginpai:=0;t:=1;n:=1;f:=1;repeatpai:=pai+t;n:=n+2;f:=-f;t:=f/n;untilabs(t)1e-6;pai:=pai*4;writeln(pai:10:8);end.运行结果：3.14159066以上我们已介绍了三种循环语句。一般说来，用for循环比较简明，只要能用for循环，就尽量作用for循环。只在无法使用for循环时才用while循环和repeat-

15、until循环，而且while循环和repeat-until循环是可以互相转化的，具体用哪个，还要看个人喜好，但他们也存在细微区别，那就是while语句的循环体有可能一次都不会被执行，而repeat语句中循环体至少执行一次。for循环在大多数场合也能用while和repeat-until循环来代替。一般for循环用于有确定次数循环，而while和repeat-until循环用于未确定循环次数的循环。记录类型记录类型 在程序中对于组织和处理大批量的数据来说，数组是一种十分方便而又灵活的工具，但是数组在使用中有一个基本限制，这就是：一个数组中的所有元素都必须具有相同的类型。但在实际问题中可能会遇到

16、另一类数据，它是由性质各不相同的成份组成的，即它的各个成份可能具有不同的类型。例如，有关一个学生的数据包含下列项目：学号字符串类型姓名字符串类型年龄整型性别字符型成绩实型数组Pascal给我们提供了一种叫做记录的结构类型。在一个记录中，可以包含不同类型的并且互相相关的一些数据。w记录类型的定义记录类型的定义 在pascal中，记录由一组称为“域”的分量组成，每个域可以具有不同的类型。记录类型定义的一般形式：record:;:;:;end;说明：说明：域名也称域变量标识符，应符合标识符的语法规则。在同一个记录中类型中，各个域不能取相同的名，但在不同的记录类型中，两个类型中的域名可以相同。记录类型

17、的定义和记录变量可以合并为一个定义，如：typedate=recordyear:1900.1999;month:1.12;day:1.31end;varx:date;可以合并成:varx:recordyear:1900.1999;month:1.12;day:1.31end;对记录的操作,除了可以进行整体赋值，还能对记录的分量域变量进行。域变量的表示方法如下：记录变量名.域名如前面定义的记录X,其3个分量分别为:x.year，x.month，x.day。域变量的使用和一般的变量一样,即域变量是属于什么数据类型，便可以进行那种数据类型所允许的操作。w记录的嵌套记录的嵌套当一个记录类型的某一个域类

18、型也是记录类型的时候，我们说发生了记录的嵌套，看下面的例子：例例7.5 某人事登记表可用一个记录表示某人事登记表可用一个记录表示,其中各项数据具有不同的其中各项数据具有不同的类型，分别命名一个标识符。而其中的类型，分别命名一个标识符。而其中的“出生年月日出生年月日”又包括三项又包括三项数据，还可以用一个嵌套在内层的记录表示。数据，还可以用一个嵌套在内层的记录表示。具体定义如下:typesexs=(male,female);date=recordyear:1900.1999;month:1.12;day:1.31;end;personal=recordname:string15;sex:sexs

19、;birthdate:date;home:string40;end;例例7.6 设计一个函数比较两个设计一个函数比较两个dates日期类型记录日期类型记录变量的迟早。变量的迟早。设函数名、形参及函数类型定义为：AearlyB(A,B:dates):boolean;函数的形参为两个dates类型的值参数。当函数值为true时表示日期A早于日期B,否则日期A迟于日期B或等于日期B。显然不能对、两个记录变量直接进行比较，而要依具体的意义逐域处理。程序如下：程序如下：programex7_6;typedates=recordyear:1900.1999;month:1.12;day:1.31end;v

20、arx,y:dates;functionAearlyB(A,B:dates):boolean;varearln:boolean;beginearly:=false;if(A.yearB.year)thenearly:=true;if(A.year=B.year)and(A.monthB.month)thenearly:=true;if(A.year=B.year)and(A.month=B.month)and(A.dayB.day)thenearly:=true;AearlyB:=early;end;ofAearlyBBEGINwrite(InputDATEX(mm-dd-yy):)readl

21、n(X.month,X.day,X.year);write(InputDATEY(mm-dd-yy):)readln(Y.month,Y.day,Y.year);ifAearlyB(X,Y)thenwriteln(DateXearly!)elsewriteln(DateXnotearly!);END.w开域语句开域语句 在程序中对记录进行处理时，经常要引用同一记录中不同的域，每次都按例例7.6的格式引用，非常乏味。为此Pascal提供了一个with语句，可以提供引用域的简单形式。开域语句一般形式:withdo功能:在do后的语句中使用with后的记录的域时,只要直接写出域名即可，即可以省略例例

22、7.6的记录变量名和“.”。说明说明:一般在with后只使用一个记录变量名。如：write(Inputyear:);readln(x.year);write(Inputmonth:);readln(x.month);write(Inputday:);readln(x.day);可以改写成:withxdobeginwrite(Inputyear:);readln(year);write(Inputmonth:);readln(month);write(Inputday:);readln(day);end;设x,y是相同类型的记录变量，下列语句是非法的：withx,ydo.;with后接若干个记录

23、名时,应是嵌套的关系。如有记录说明：varx:recordi:integer;y:recordj:0.5;k:real;end;m:realend;可以使用:withxdobeginread(i);withydoread(j,k);readln(m);end;或简写为:withx,ydoreadln(i,j,k,m);例例7.7 输入输入40个学生记录（每个学生记录包括学号、姓名、年龄、成绩），组成记录数组，个学生记录（每个学生记录包括学号、姓名、年龄、成绩），组成记录数组，然后按成绩由高到低的次序排序，输出排序后的全部学生记录。然后按成绩由高到低的次序排序，输出排序后的全部学生记录。程序如下

24、：程序如下：Programex7_7;constn=40;typestudent=recordnum:integer;name:string8;sex:char;age:5.100;score:real;end;varstu:student;temp;student;i,j:integer;beginfori:=1tondowithstuidoreadln(sex,num,age,score,name);fori:=1ton-1do/选择排序forj:=i+1tondoifstui.scorestuj.scorethenbegintemp:=stui;stui:=stuj;stuj:=temp

25、;end;writeln(num:8,name:10,sex:14,age:10,score:8);/输出fori:=1tondowithstuidobeginwrite(num:8,name:18);ifsex=mthenwrite(maLe:8)elsewrite(femaLe:8);writeln(age:8,score:8:1);end;end.例例7.8 读入读入10个日期，再对每个日期输出第二天的日期。输个日期，再对每个日期输出第二天的日期。输入日期的格式是月、日、年。入日期的格式是月、日、年。例如：例如：9301993，输出的格式为，输出的格式为10/1/1993。【分析分析】可

26、用一个记录变量today表示日期。知道一个日期后要更新为第二天的日期，应判断输入的日期是否为当月的最后一天，或当年的最后一天。programex7_8;typedate=recordmonth:1.12;day:1.31;year:1900.1999;end;vartoday:array1.10ofdate;i:integer;maxdays:28.31;beginfori:=1to10dowithtodayidoreadln(month,day,year);ifday=maxdaysthenbeginday:=1;ifmonth=12thenbeginmonth:=1;year:=year+

27、1;endelsemonth:=month+1;endelseday:=day+1;writeln(month,/,day,/,year);end;end.fori:=1to10dowithtodayido/求第i个日期中月份最后一天maxdaysbegincasemonthof1,3,5,7,8,10,12:maxdays:=31;4,6,9,11:maxdays:=30;2:if(yearmod400=0)or(yearmod4=0)and(yearmod1000)thenmaxdays:=29elsemaxdays:=28;end;文件操作文件操作在程序设计中，常常需要从键盘输入大量数据

28、，操作相当麻烦、也很容易出错；同时，在程序运行后也往往会产生大量的输出数据（结果），这给验证结果的正确性和测试程序的对错也带来了很大的麻烦。能不能有一种方法，让程序自动从某个地方读取数据运行，再将程序的运行结果保存到指定的地方呢？当然可以，这就是Pascal中的“文件”类型。文件在使用时必须在程序内部以一定的语句与实际文件联系起来，建立一一对应的关系，用内部文件的逻辑名对实际文件进行操作。使用文件大致有以下几个步骤；（）在使用文件前，必须对文件类型和变量进行说明；（）建立内部文件(程序中的文件)与外部文件(磁盘上的实际文件)的联系；（）打开文件，为文件读写作准备；（）对文件进行读、写操作；（）

29、在使用完文件后，一定要记住关闭文件，确保文件的完整性和可靠性，否则会引起文件处理错误。切记切记！FreePascal将文件分为三类：文本文件（顺序）、有类型文件（顺序或随机）和无类型文件（顺序或随机）。下面只对竞赛中用到的文本文件及其操作进行介绍。文本文件又称为正文文件或行文文件，可供人们直接阅读，是人机通信的基本数据形式之一。文本文件可用文字编辑程序（如记事本、word等）直接建立、阅读和编辑，也可以由Pascal程序在运行过程中建立。w文本文件的定义：文本文件的定义：文本文件的类型为TEXT，它是由ASCII字符组成的，是Pascal提供的标准文件之一。标准文件TEXT已由Pascal说明

30、如下：typetext=fileofchar;因此，TEXT同标准类型Integer、real、char等一样可以直接用于变量说明之中，无需再由用户说明。例如：varf1，f2：text；这里定义了两个文本文件变量F1和F2。w写入文本文件写入文本文件文本文件内容写入操作步骤为：定义文本文件变量；把一外部文件名赋于文本文件变量，使该文本文件与一相应外部文件相关联；命令格式：assign(f，name)f为定义的文本文件变量name为实际文件文件名如：assign(f1,file1.in)或：assign(f1,pas/file1.out)这样在程序中对文本文件变量F1的操作，也就是对外部实际文

31、件File1.in或File1.out的操作。上例中文件File1.in是存贮在当前目录中，而文件File1.out则是存贮在PAS子目录中。打开文本文件，准备写；命令格式：Rewrite(f)功能：创建并打开新文件准备写，若已有同名文件则删除再创建命令格式：Append(f)功能：打开已存在的文件并追加(即文件中的原有信息不丢失),这在竞赛中不会用到。对文件进行写操作；命令格式：Write(f，)或：Writeln(f，)功能：将项目内容写入文件f中，Write和Writeln的用法与写在屏幕上一样。文件操作完毕后，关闭文件。命令格式：Close(f)例例7.9 从键盘上读入如下的数据，把它

32、们写入名为从键盘上读入如下的数据，把它们写入名为b.txt的文件中。的文件中。34293050608090707560507045Programex7_9;vari,j,n,m,x:integer;f:text;beginreadln(n,m);assign(f,b.txt);rewrite(f);/准备写操作writeln(f,n:4,m:4);fori:=1tondo/共n行内容beginforj:=1tomdo/每行有m个值beginread(x);write(f,x:4);end;readln;/输入时屏幕换行writeln(f);/把回车符写入输出文件中end;close(f);en

33、d.w读取文本文件读取文本文件文本文件内容读出操作步骤：定义文本文件变量；用Assign(f，name)命令，将内部文件f与实际文件name联系起来；当需要从文件中读取数据（输入）到内存时，应先调用reset过程打开该文件，再用read或readln将数据读入到内存变量中，且只能从文件的开头读数据；命令格式：reset(f)；read(f，)或readln(f，)文件操作完毕，用Close(f)命令关闭文件。例例7.10 读出例读出例7.9建立的文本文件，并输出在屏幕。建立的文本文件，并输出在屏幕。Programex7_10;vari,j,n,m,x:integer;f:text;begina

34、ssign(f,b.txt);reset(f);/关联并准备读操作readln(f,n,m);writeln(n:4,m:4);fori:=1tondo/共有n行内容beginforj:=1tomdo/每行有m个值beginread(f,x);write(x:4);end;writeln;end;close(f);readln;/起暂停作用end.由于文本文件是以ASCII码的方式存储，故查看文本文件的内容是极为方便。w行结束和文件结束函数行结束和文件结束函数除了上述几个重要的过程外，在文本文件的使用过程中还经常用到两个重要的函数。Eoln函数函数：行结束函数，函数值为布尔型，当文件指针指向回

35、车换行符时，函数值为真（true），否则为假（false）。Eoln函数一般用在从一个已打开的文件中读取数据时判断一行的数据是否读完。如果文件是以写状态打开的，则Eoln函数的值总是假。Eoln函数的调用形式为：Eoln（f）；一般可以省略参数（包括括号）。Eof函数函数：文件结束函数，函数值为布尔型，当文件指针指向文件结束标志（ctrl+z）时，函数值为真（true），否则为假（false）。Eof函数一般用在从一个已打开的文件中读取数据时判断文件是否结束。Eof函数的调用形式为：Eof（f）；也可省略参数。w文本文件的特点文本文件的特点文本文件的每一个元素均为字符型，但在将文件元素读入到一

36、个变量（整型，实型或字符串型）中时，Pascal会自动将其转换为与变量相同的数据类型。与此相反在将一个变量写入文本文件时，也会自动转换为字符型。文件的读写操作，有一个非常实用的技巧，就是利用input和output这两个变量，input是FreePascal默认的输入设备，事先不更改，指的是键盘。output是FreePascal默认的输出设备，事先不更改，指的是显示器。这两个设备变量，我们可以更改它们的值，让它们和我们所要求的文件相关联，利用这一特性，就可以达到更加灵活的编程风格。下面几个例子，读写操作全用input和output这两个变量，同学们仔细体会。例例7.11 将文本文件将文本文件in.txt中的内容复制到一个新的文本文件中的内容复制到一个新的文本文件out.txt中。中。程序如下：程序如下：programex7_11;varch:char;beginassign(input,in.txt);assign(output,out.txt);reset(input);rewrite(output);whilenoteofdobeginwhilenoteolndobeginread(ch);write(ch);end;readln;writeln;end;close(input);close(output);end.