* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
90 Языки Бейсик INPUT "будете еще вводить(д,н)?"; da$ I F da$ = " д " OR da$ = " Д " GOTO a 1 'проверка конца работы CLOSE # 1 'закрытие файла В качестве альтернативного варианта автор приводит текст п р о г р а м м ы , кото¬ рая делает то же самое, но не пользуется буфером обмена, а использует пере¬ менную пользователя. Пример 10.13.2: Создание файла п р я м о г о доступа с использованием переменной пользовате¬ льского типа CLS TYPE T e s t R e c o r d 'Определение переменной пользовательского типа c h i s l o AS STRING * 2 denned 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 'Определение типа переменной, как 'пользовательской nom% = 1 'начальное значение номера записи OPEN "FINAL.DAT" FOR RANDOM AS # 1 LEN = L E N ( u c h e t ) a 1 : INPUT "Ввести число (дд):"; u c h e t . c h i s l o INPUT "Ввести день недели (нн):", u c h e t . d e n n e d INPUT "Ввести кол-во часов (чч):", u c h e t . c o l t i m e INPUT "Ввести ФИО преподавателя:", u c h e t . f i o PUT # 1 , nom%, u c h e t 'помещаем запись на диск nom% = nom% + 1 'увеличиваем номер записи PRINT "будете еще вводить(д,н)?"; da$ = INPUT$(1) 'ожидание нажатия клавиши PRINT da$ 'проверка конца работы I F UCASE$(da$) = " L " OR da$ = "Д" OR da$ = "д" GOTO a 1 : CLOSE 'закрытие файла В качестве же комментария достаточно заметить, что в т о р о й вариант п р о граммыполучилсяболеесмысловойихотяпрограммирование—оченьспецифическое занятие, но делать из п р о г р а м м ы своего рода "черный я щ и к " — за¬ нятие неблагодарное и к а к правило возвращается бумерангом к автору "про¬ изведения". Результат выполнения п р о г р а м м ы . Ввести Ввести Ввести Ввести будете Ввести Ввести Ввести число (дд): 19 день недели (нн): пн кол-во часов (чч): 13 ФИО преподавателя: Иванов И.И. еще вводить(д н)? д число (дд): 20 день недели (нн): вт кол-во часов (чч): 11