程序设计语言原理principleofprogramminglanguage

程序设计语言原理principleofprogramminglanguage内容摘要：

2020/11/17 程序设计语言原理 第 16页 元素的类型为 STRINGTYPE，由 STRING(1..10)派生。 内部文件名为： STRINGFILE. 存放文件基本元素的变量为 STRINGVAR. CREAT创建的新文件名为” ”（外部文件） WRITE将字符串” tenletter”写入文件 STRINGFILE CLOSE将 WRITE写入的内容写入外部文件中，并使内外文件脱离 OPEN打开外部文件 READ将外部文件中的类容写入变量 STRINGVAR中。 PUT显示这一变量的值 由于用到了正文输出，所以引入 TEXTIO. 第 8章 2020/11/17 程序设计语言原理 第 17页 （ 2） DIRECTIO: 用于对直接文件的操作。 直接存取文件的特点： 又叫随机存取文件，文件可以看作是以线性次序占有连续位置的元素的集合，元素的位置可以由它的索引给出，规定第一个元素的索引为 1，文件中现有元素的个数称为文件的当前尺寸，可以对它的任何元素直接存取或修改，一般放在块结构存储设备上，为 磁盘文件。 顺序存取文件中的元素不能根据位置随机存取，只能顺序存放。 第 8章 2020/11/17 程序设计语言原理 第 18页 DIRECTIO与 SEQENTIALIO的不同： SEQENTLAIIO的 READ( )和 WRITE( )为 Procedure READ(FILE: in FileType。 ITEM:out ElementType)。 Procedure WRITE(FILE: in FileType。 Item:inElementType)。 没有直接存取的作用，只能顺序存取。 DIRECTIO的 READ( )和 WRITE( )为： Procedure READ (File:in FileType。 Item:out ELEMENTTYPE。 FROM:POSITIVECOUNT)。 Procedure WRITE (FILE: in FILETYPE。 Item: in ELEMENTTYPE。 TO: POSITIVECONUT)。 FROM和 TO指出文件存取的当前位置（当前索引指针） 第 8章 2020/11/17 程序设计语言原理 第 19页 另外， DIRECTI0中增加了以下的过程和函数： type COUNT is rang 0..具体实现定义； subtype POSITIVECOUNT is COUNT rang1..COUNT‟LAST。 procedure READ ( )。 procedure WRITE ( )。 procedure SETINDEX(FILE: in FILETYPE。 TO: in POSITIVECOUNT)。 设置索引位置 Function INDEX(FILE: in FILETYPE) return POSITIVECOUNT。 返回当前行索引值 Function SIZE(FILE: in FILETYPE) Return COUNT。 返回现存元素的个数 第 8章 2020/11/17 程序设计语言原理 第 20页 区别小结： ★ SEQENTIALIO的文件模式只有 infile和 outfile,即只能只读或只写。 而 DIRECT_IO的文件模式有三种，增加 INOUTFILE,即可同时读写。 ★ 直接存取的文件，设有一个显式索引指针，用来指明下一个要传递的元素的位置，文件打开时，索引显示为 1，可以显示读写文件的任一元素。 ★ 顺序存取文件不能根据位置随机存取，只能顺序存取。 第 8章 2020/11/17 程序设计语言原理 第 21页 第 8章 直接文件的输入输出实例： 作用是将文件的第三个记录的内容读到 TEN变量中。 with DIRECTIO。 procedure POWEROFTEN is package TENIO is new DIRECTIO (NATURAL)。 类属实例化 use TENIO。 TEN: NATURAL:=10。 POWER: NATURAL。 TENFILE: FILE_TYPE。 Begin CREAT(TENFILE, INOUTFILE, ””)； 创建一个直接文 件，内部文件名为 TENFILE，外部文件名为 For POWER in 0..5 loop WRITE(TENFILE, TEN **POWER)。 将 TEN 的 0到 5次平方的值写入到 文件中。 End loop。 RESET(TENFILE)。 重置文件 READ(TENFILE, TEN, 3 ):将文件中第三个元素的值写入到变量 TEN中， 即 TEN :=102 End POWEROFTEN。 2020/11/17 程序设计语言原理 第 22页。