* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
Глава X. Ф а й л ы д а н н ы х
83
PRINT USING b $ ; a; b 5.800 48.127 результат Вывод по шаблону чисел с фиксированной т о ч к о й a = 1 5 8 : b = 4 7 PRINT USING "Цена=####Руб. ##Коп."; a; b Цена= 158Руб. 47Коп. результат Пример 10.6.5: создать последовательный файл с п о м о щ ь ю оператора P R I N T U S I N G OPEN " c : \ c h i s . b a s " FOR OUTPUT AS #2 'открытие файла для записи данных a 1 : INPUT "ввести числовые данные:"; a, b , c, d, e INPUT "Ввод данных закончился(да,нет)?"; konec$ PRINT # 2 , USING " ###.## "; a; b ; c; d ; e 'запись данных на диск I F UCASE$(konec$) = " Н " OR UCASE$(konec$) = "Y" THEN GOTO a 1 'проверка на окончание CLOSE #2 END П р и р а б о т е п р о г р а м м ы вводятся числа 123.45,456.7,5.68,0.12,7 и 0.23,5.5,4.57,6,2.78 Пример 10.6.6: считать с п о м о щ ь ю о п е р а т о р а I N P U T последовательный файл, созданный в примере 10.6.5 OPEN " c : \ c h i s . b a s " FOR INPUT AS #2 'открытие файла для чтения Жданных GOSUB s h a p k a 'печать шапки документа на экране a2: INPUT # 2 , a, b , c, d , e 'чтение данных из файла PRINT a, b , c, d, e 'вывод прочитанного на экран дисплея в 'зонном формате I F EOF(2) THEN PRINT L $ : END 'проверка конца файла GOTO a2 shapka: 'формирование шапки таблицы PRINT SPACE$(20); "Таблица данных" L$ = STRING$(65, 4 5 ) : PRINT L$ 'формирование и вывод на экран линии 'вывод на экран монитора наименование граф P R I N T " A ! B ! C ! D ! E " PRINT L$ 'формирование и вывод на экран линии RETURN Результат выполнения п р о г р а м м ы Т а б л и ц а данных A ! B ! C!D !E