Главная » Basic » ДИСКОВАЯ СИСТЕМА ВВС

0

Для работы с гибкими дисками система ВВС использует дисковую файловую систему. В  части программирования работа с последовательным дисковым файлом очень похожа на описанную ранее работу с кассетным файлом. Операторами OPENIN и OPENOUT можно пользоваться так же, как и ранее,  но  теперь  OPENIN  позволяет  выполнять  как  чтение,  так  и  прямой  доступ  к  файлу,  a OPENOUT — последовательную запись в файл.

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

M=OPENIN M=OPENOUT INPUT #M, PRINT #M, X=BGET#(M) BPUT #M, CLOSE #M

Пусть последовательный файл TELEPHONE состоит из записей, содержащих фамилии и телефонные номера. Приведенная ниже программа должна

просмотреть файл в поисках фамилии, совпадающей с введенной, и при обнаружении  изобразить номер телефона.

Структограмма окончательного плана программы такова:

Ее воплощением служит следующая программа:

10 REM ДЕМОНСТРАЦИЯ РАБОТЫ С ПРОСТЫМ ФАЙЛОМ

20 M=OPENIN("TELEPHONE")

30 INPUT "ВВЕДИТЕ ТРЕБУЕМУЮ ФАМИЛИЮ, ПОЖАЛУЙСТА";QUERY$

40 FOUND=8                    :REM ЛОЖЬ

50 REPEAT

60   INPUT#M.NAM$,NUMB$

70   IF NAM$<>QUERY$ THEN 100

80   FOUND=-1       :REM ИСТИНА

90   PRINT "НОМЕР ТЕЛЕФОНА: ";NUMB$

100 UNTIL (EOF#M OR FOUND)

110 IF NOT FOUND THEN PRINT "ФАМИЛИЯ НЕ НАЙДЕНА"

120 CLOSE#M

Источник: Уолш Б.    Программирование на Бейсике: Пер. с англ. М.: Радио и связь, 1988. 336 с: ил.

По теме:

  • Комментарии