Закрытие файла

После окончания работы с файлом - чтения или записи его необходимо закрыть. Закрытие фала осуществляется оператором CLOSE.

Синтаксис: CLOSE {# номер_файла }

Оператор закрывает файл с указанным номером. Если номер опустить, то оператор закроет все файлы, открытые в данный момент в программе. При отсутствии оператора CLOSE все открытые файлы закрываются оператором END.

Пример. Открытие файла прямого доступа, запись в него и закрытие файла:

‘Определение пользовательского типа данных – содержит две переменных разных типов

TYPE TestRecord

Student AS STRING * 20

Score AS SINGLE

END TYPE

‘резервируем в памяти переменную заданного выше типа

DIM MyClass AS TestRecord

OPEN "FINAL.DAT" FOR RANDOM AS #1 LEN = LEN(MyClass)

MyClass.Student = "Олег Дворченко"

MyClass.Score = 99

PUT #1, 1, MyClass

CLOSE #1

OPEN "FINAL.DAT" FOR RANDOM AS 1 LEN = LEN(MyClass)

GET #1, 1, MyClass

PRINT "СТУДЕНТ:", MyClass.Student

PRINT "СЧЕТ:", MyClass.Score

CLOSE #1

KILL "FINAL.DAT"

Проверка достижения конца файла.

Достижение конца файла можно определить при помощи функции EOF. При достижении конца файла она возвращает "истинно" (не ноль).

Синтаксис функции: EOF <#номер_файла > ,

где #номер_файла - номер открытого файла.

Пример:

CLS

OPEN "ТЕСТ.ДАН" FOR OUTPUT AS #1

FOR i% = 1 TO 10

WRITE #1, i%, 2 * i%, 5 * i%

NEXT i%

CLOSE #1

OPEN "ТЕСТ.ДАН" FOR INPUT AS #1

DO

LINE INPUT #1, a$

PRINT a$

LOOP UNTIL (EOF(1))

Удаление файлов

Удалить файл или группу файлов можно оператором KILL.

Синтаксис оператора: KILL <список файлов>

В списке файлов могут быть полные имена файлов. Допустимо применять символы-заменители ? и * для выделения группы файлов.

CLOSE

OPEN n$ FOR INPUT AS #1

INPUT #1, a$

PRINT "Чтение из файла: "; a$

CLOSE

Лекция 14 Приемы модульного программирования

Разработка сложной программы, состоящей из десятков тысяч, а то и сотен тысяч операторов – очень непростая задача. Для решения сложной задачи ее обычно разделяют на ряд более простых задач. Разделение сложной задачи на ряд подзадач, решение которых может выполняться отдельными подпрограммами, имеет много достоинств:

• позволяет организовать разработку программы коллективом специалистов,

• делает задачу создания сложной программы обозримой для управления ее разработкой,

• снижается трудоемкость отладки программы путем предварительной отладки ее отдельных подпрограмм,

• снижается общая трудоемкость разработки программ за счет многократного использования отдельных ее подпрограмм.

Свойства подпрограмм:

• они отделены от основной программы,

• они могут использовать локальные переменные, используемые только внутри подпрограммы,

• они могут получать информацию из основной программы в виде параметров и возвращать некоторые значения.

Все достаточно сложные программы обычно состоят из подпрограмм - программных модулей. Модулем называется часть программы, допускающая независимое написание и отладку. Программа может состоять из одного, из нескольких или из большого числа модулей. Один из модулей называется главным, с него начинается выполнение программы.

Первым шагом к модульному построению программы является выделение в ней процедур и процедур-функций.

Процедура – часть программы, расположенная отдельно от основной программы и допускающая многократное обращение к ней из различных мест основной программы.

Процедура-функция – это процедура, имеющая следующие ограничения:

- имя ее должно иметь спецификатор, определяющий тип данных функции (является ли она текстовой, целой, одинарной точности и т.д.);

- процедура-функция должна обязательно возвращать результат в основную программу.

Отличие процедуры-функции от стандартной функции в том, что она создается самим программистом.