Turbo Basic 1.1. Руководство пользователя



Turbo Basic 1.1. Руководство пользователя - стр. 123


           STRINGVARIABLE$="THIS IS STRING OF TEXT"
           INTEGER%=1000
           FLOATINGPOINT!=30000.1234
  когда файл создается для считывания с помощью оператора INPUT#,ис-
                    - 65 -
          
          
 пользуется оператор WRITE# ,а не PRINT#&
        
          Безразделительные последовательные файлы
          
  В  безраздилительном последовательном файле данные выглядят в точ-
  ности так,как если бы они отображались на экране  с  использованием  PRINT
  или  распечатывались  на  печатающем  устройствес использованием оператора
  LPRINT.Рассмотрим и исполним следущую программу:
  'эта программа открывает посл.файл для вывода
  'она записывает пару строк различных типов данных в файл  ,исполь-
           'зую оператор PRINT# и PRINT#USING.
           OPEN "SEQUENTI.BAS" FOR OUTPUT AS #1
           STRINGVARIABLE$="Это строка текста"
           INTEGER%=1000
           FLOATINGPOINT!=30000.1234
           PRINT# 1,STRINGVARITABLE$,INTEGER%,FLOATINGPOINT!
           STRINGVARITABLE$="Это другая строка"
           INTEGER%=-32767
           FLOATINGPOINT!=123454321
           PRINT#1,USING "#####&##.##^^^^";INTEGER%_
           STRINGVARIABLE$,FLOATINGPOINT!
           CLOSE #1
           END
  Содержимое файла SEQUENTI.BAS выглядит следущим образом:
          это строка текста 1000    30000ю12306875
           -32767другая строка 12.35E+03
  Важно обратить внимание на то ,что в данном случае существует фор-
  мат  данных,и на то как происходит считывание .Если вы попытаетесь исполь-
  зовать тот же оператор INPUT#,что и во втором примере программы,Т.Б. выда-
  ет ошибку периода прогона.Т.Б. будет считывать слово "Это"  первой  строки
  как  строчную  переменную  и попытается считать следущие два слова как две
  числовые переменные.Вместо этого вы  должны  использовать  INPUT$  илиLINE
   INPUT#.
  Следущая  программа  считывает  последовательный файл ,который был



Содержание  Назад  Вперед