* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
94 Языки Бейсик Чтение файла прямого доступа CLS TYPE T e s t R e c o r d 'Определяем переменную пользователя c h i s l o AS STRING * 2 'так же, как и в программе, которая создавала d e n n e d AS STRING * 2 'этот файл c o l t i m e AS INTEGER f i o AS STRING * 20 END TYPE DIM u c h e t AS T e s t R e c o r d 'определяем тип переменной 'открываем файл OPEN "FINAL1.DAT" FOR RANDOM AS # 1 LEN = L E N ( u c h e t ) PRINT "длина файла="; LOF(1) PRINT "длина записи="; L E N ( u c h e t ) PRINT "число записей="; LOF(1) / L E N ( u c h e t ) c h z a p % = LOF(1) / L E N ( u c h e t ) 'Высчитываем число записей a 1 : INPUT "Введите номер записи"; nom% 'запрашиваем номер записи I F nom%>chzap% THEN PRINT "Запись не существует": GO TO a 1 GET # 1 , nom%, u c h e t 'читаем запрошенную запись 'Печатаем прочитанную запись PRINT "Число:-"; u c h e t . c h i s l o PRINT "день недели:-"; u c h e t . d e n n e d PRINT "кол-во часов:-"; u c h e t . c o l t i m e PRINT "Преподаватель:-"; u c h e t . f i o PRINT " " PRINT "будете еще читать(д,н)?"; 'запрос на окончание da$ = INPUT$(1) PRINT da$ 'проверка конца работы I F UCASE$(da$) = " L " OR da$ = "Д" OR da$ = "д" GOTO a 1 CLOSE 'закрытие файла Необходимость создания файлов прямого доступа возникает тогда, когда по¬ следовательная обработка файла и недостаточные ресурсы оперативной памя¬ ти приводят к тому, что время обработки файла становится значительным для пользователя, что происходит все реже и реже в связи с увеличением произво¬ дительности компьютеров. В силу этого задача ускорения обработки данных из чисто прикладной задачи, которую приходилось решать и автору, все боль¬ ше становится системной (решается на уровне написания систем программи¬ рования) или даже технической (увеличивается производительность "желе за"). 10.15. Ф у н к ц и я L O C Функция LOC(LOCation-определение позиции) позволяет получить сведения о количестве записей последовательного и произвольного файлов, считанных с диска, начиная с момента его открытия. Формат записи функции: LOC(номер_файла%)