* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
92 Языки Бейсик c l % = C V I ( c t $ ) 'преобразование символа c t $ в число PRINT "Число:-"; c$ PRINT "день недели:-"; d$ PRINT "кол-во часов:-"; c l % PRINT "Преподаватель:-"; f $ PRINT "будете еще читать(д,н)?"; 'запрос на окончание da$ = INPUT$(1) 'снимаем один символ с клавиатуры PRINT da$ 'проверка конца работы I F UCASE$(da$) = " L " OR da$ = "Д" OR da$ = "д" GOTO a 1 CLOSE END Пример 10.14.2: Чтение файла прямого доступа с использованием переменной пользователя, созданного в примере 10.13.2 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 "FINAL.DAT" FOR RANDOM AS # 1 LEN = L E N ( u c h e t ) a 1 : INPUT "Введите номер записи"; nom% 'запрашиваем номер записи 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 "будете еще читать(д,н)?"; 'запрос на окончание da$ = INPUT$(1) 'снимаем один символ с клавиатуры PRINT da$ 'проверка конца работы I F UCASE$(da$) = " L " OR da$ = "Д" OR da$ = "д" GOTO a 1 CLOSE 'закрытие файла Н а б л ю д а т е л ь н ы й читатель может отметить, ч т о в выражении, где проверяется конец р а б о т ы п р о г р а м м ы , функция UCASES (преобразовать маленькие буквы в большие) применяется п р и сравнении с символом L , и не применяется с сим¬ волом Д, на что существует т а к о й ответ: в двух вариантах Бейсика, которые стояли на компьютере автора, функция UCASES с кириллицей не р а б о т а л а . В версии V I S U A L BASIC 5.0, к о т о р о й пользуется автор, таких проблем нет. Результат выполнения п р о г р а м м ы . Введите номер записи 1 Число: — 19