语言补充内容case,repeat.ppt

情况语句（CASE语句） 例3.10 判断2006年,每个月份的天数。 直到循环（REPEAT语句） 记录类型 记录类型的定义 记录的嵌套 开域语句 文件操作 文本文件的定义： 写入文本文件 读取文本文件 行结束和文件结束函数 文本文件的特点 　　文本文件的类型为TEXT，它是由ASCII字符组成的，是Pascal提供的标准文件之一。标准文件 TEXT已由Pascal说明如下： 　 　type text=file of char; 　　因此，TEXT同标准类型Integer、real、char等一样可以直接用于变量说明之中，无需再由用户说明。 例如： var f1，f2：text； 　　这里定义了两个文本文件变量F1和F2。 　文本文件内容写入操作步骤为： 　　①定义文本文件变量； 　　②把一外部文件名赋于文本文件变量，使该文本文件与一相应外部文件相关联； 　　 命令格式：assign(f，name) 　　 f为定义的文本文件变量 　　 name为实际文件文件名 　　 如：assign(f1,file1.in’) 　　 或：assign(f1, pas/file1.out’) 　　 这样在程序中对文本文件变量F1的操作，也就是对外部实际文件 File1.in’或 File1.out’的操作。上例中文件 File1.in’是存贮在当前目录中，而文件File1.out’则是存贮在PAS子目录中。 　　③打开文本文件，准备写； 　　 命令格式１：Rewrite(f) 　　 功能：创建并打开新文件准备写，若已有同名文件则删除再创建 　　 命令格式２：Append(f) 　　 功能：打开已存在的文件并追加(即文件中的原有信息不丢失),这在竞赛中不会用到。 　　④对文件进行写操作； 　　 命令格式：Write(f，项目名) 　　 或：Writeln(f，项目名) 　　 功能：将项目内容写入文件f中，Write和Writeln的用法与写在屏幕上一样。 　　⑤文件操作完毕后，关闭文件。 　　 命令格式：Close(f) 例7.9 从键盘上读入如下的数据，把它们写入名为b.txt的文件中。 3 4 　　　29 30 50 60 　　　80 90 70 75 　　　60 50 70 45 Program ex7_9; var i,j,n,m,x : integer; f : text; begin readln(n,m); assign(f,‘b.txt’); rewrite(f); //准备写操作 writeln(f,n:4,m:4); for i : =1 to n do //共n行内容 begin for j : =1 to m do //每行有m个值 begin read(x); write(f,x:4); end; readln; //输入时屏幕换行 writeln(f); //把回车符写入输出文件中 end; close(f); end. 文本文件内容读出操作步骤： 　　①定义文本文件变量； 　　②用Assign(f，name)命令，将内部文件f与实际文件name联系起来； ③当需要从文件中读取数据（输入）到内存时，应先调用reset过程打开该文件，再用read或readln将数据读入到内存变量中，且只能从文件的开头读数据； 命令格式：reset(f)； read(f，变量名表)或readln(f，变量名表) 　　④文件操作完毕，用Close(f)命令关闭文件。 * * 上面我们知道可以用嵌套的if语句实现多分支的选择结构。但是如果分支越来越多时，用嵌套的if语句实现多分支就显得繁杂。当多分支选择的各个条件由同一个表达式的不同结果值决定时，可以用case语句实现。它的选择过程，很象一个多路开关，即由case语句的选择表达式的值，决定切换至哪一语句去工作。因此在分支结构程序设计中，它是一种强有力的手段。在实现多路径分支控制时，用case对某些问题的处理和设计，比