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


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


  путем вычитания некоторой константы  из  значения,  возвращаемого  функцией
  ENDMEN.
  MEMSET сконструировано для установки отдельной памяти для подпрограммы
  на языке ассемблера. Если Турбо-Бейсик не в состоянии удолетворить запрос в
  силу  либо  неподходящего аргумента, либо недостаточности памяти, возникает
  ошибка 7 периода прогона, вне памяти.
       См. также ENDMEN
  Пример PRINT FRE (-1) 'отобразить наличное пространство для массивoв
                                     -141 -
          
          
      --------
       'хранить 128 байтов в верхней части памяти
       MEMSET ENDMEN - &H80
       PRINT FRE (-1)  'отобразить наличную память
       END              'конец программы
      
       Заявление MID$
       --------------
      
       Функция MID$ возвращает литерную строку.
       ------------
       Синтаксис S$=MID$ (строчное выражение, n[,m] )
       ----------
  Замечания n и m - это числовые переменные или выражения, которые могут
  лежать в диапазоне от 1 до 32767 и от щ до 32767 соответственно.
  MID$ как функция, возвращает m-литерную строку, начиная с n-ой  литеры
  строчного  выражения. Если m опускается или справа от n-ой литеры строчного
  выражения менее m литер,  выдаются  остальные  литеры  строчного  выражения
  вплоть  до  n-ой и включая ее.Если n больше длины строчного выражения ,MID$
  возвращает нуль-строку.
       См. также     LEFT$
                     Заявление MID$
                     RIGHT$
       Пример    INPUT 'Ввести строку:", Пустая стр$
      --------   Врем.Стр$ = Пустая Стр$
                 PRINT Пустая Стр $
   'резервировать порядок литер, используя функцию и  заявление
  MID$ одновременно.
   FOR I% = 1 TO LEN (Пустая стр%)
  MIDS (Пустая Стр %, I%,1) = MIDS (Врем Стр $,- (LEN (ВремСтр
  $)- I%) + 1,1)
   NEXT I%
   PRINT Пустая Стр%
   END    'конец программы
      
       Заявление MID$
     -----------------
      
       Функция MIDS замена литеры строки



Начало  Назад  Вперед



Книжный магазин