ДИСКОВА СИСТЕМА ВВС

Для роботи з гнучкими дисками система ВВС використовує дискову файлову систему У частині програмування робота з послідовним дисковим файлом дуже схожа на описану раніше роботу з касетним файлом Операторами OPENIN і OPENOUT можна користуватися так само, як і раніше, але тепер OPENIN дозволяє виконувати як читання, так і прямий доступ до файлу, a OPENOUT – послідовну запис у файл

Будь-яких спеціальних параметрів, що дозволяють відрізнити послідовні дискові файли від файлів прямого доступу, не існує, проте зверніться до коментарю в підрозділ 863 з приводу подальшого розвитку системи При роботі з послідовними дисковими файлами можна користуватися наступними операторами:

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

Нехай послідовний файл TELEPHONE складається з записів, що містять прізвища та телефонні номери Наведена нижче програма повинна

переглянути файл у пошуках прізвища, що збігається з введеною, і при виявленні зобразити номер телефону

Структограмма остаточного плану програми така:

Її втіленням служить наступна програма:

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

20 M=OPENIN(&quotTELEPHONE&quot)

30 INPUT Введіть необхідну ПРІЗВИЩЕ, БУДЬ ЛАСКА; QUERY $

40 FOUND = 8: REM БРЕХНЯ

50 REPEAT

60   INPUT#MNAM$,NUMB$

70   IF NAM

Для роботи з гнучкими дисками система ВВС використовує дискову файлову систему. У частині програмування робота з послідовним дисковим файлом дуже схожа на описану раніше роботу з касетним файлом. Операторами 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 с: ил.

lt&gtQUERY$ 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 с: ил

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*