Функция INKEY$

4.6. Функция INKEY$

Функция INKEY$ действует аналогично оператору INPUT, однако

при вводе на экране не высвечивается вводимый символ и не требу-

ется нажатие клавиши "Ввод". Программа при этом не прерывает ра-

боту, как при выполнении оператора INPUT. При выполнении операто-

ра

X$ = INKEY$

символ, соответствующий нажатой клавише, присваивается перемен-

ной X$.

Рассмотрим в качестве примера программу:

PRINT "Задайте направление: 1-север, 2-юг,_

3-запад, 4-восток"

aa:

D$ = INKEY$

IF D$ = "" THEN aa

ON VAL (D$) GOTO nn, ww, ee, ss

PRINT "Неправильная клавиша" : GOTO aa

nn:

...

ww:

...

Здесь, пока не будет нажата какая-либо клавиша, 3-й и 4-й

операторы выполняются в цикле, обеспечивая режим ожидания. Когда

клавиша "1", "2", "3", или "4" нажата, соответствующее значение

присваивается переменной D$. Далее в операторе ON осуществляется

ее преобразование к числовому значению и переход к указанной мет-

ке для соответствующей обработки.

 - 31 -

5. БИБЛИОТЕКА СТАНДАРТНЫХ ПРОЦЕДУР В ТУРБО-БЕЙСИКЕ

1. Решение систем линейных алгебраических уравнений (SIMQ.BAS)

2. Интерполирование функций (ALI.BAS)

3. Обращение матрицы и вычисление определителя (MINV.BAS)

4. Умножение матриц (GMPRD.BAS)

5. Вычисление корня уравнения (RTMI.BAS)

6. Решение систем нелинейных уравнений (SNEN.BAS)

7. Вычисление корней полинома  (POLRT.BAS)

8. Вычисление производной (DCAR.BAS)

9. Вычисление интеграла (QATR.BAS)

10. Экстремум функции (FMCG.BAS)

11. Решение систем обыкновенных дифференциальных

уравнений (RKGS.BAS)

12. Сглаживание функций (SG13.BAS)

13. Аппроксимация функций (APFS.BAS)

14. Упорядочивание значений (используется при

интерполировании функций) (ATSG.BAS)

15. Вычисление полиномов Чебышева (используется

при аппроксимации функций) (APCH.BAS)

Подключение библиотечной процедуры осуществляется оператором

$INCLUDE " 1имя библиотечной процедуры 0"

Пример использования библиотечной процедуры QATR.BAS

$INCLUDE "QATR.BAS"

CLS

PRINT "ВЫЧИСЛЕНИЕ ИНТЕГРАЛА"

CALL QATR(0, 1, .0001, 24, INTEGRAL, IER%)

PRINT "ИНТЕГРАЛ =";

PRINT USING "###.####"; INTEGRAL

PRINT "КОД ОШИБКИ ="; IER%

DEF FNFCTN (X) = LOG ( 1 + X) / (1 + X * X)

END

- 32 -

6. РЕКОМЕНДУЕМЫЙ ПОРЯДОК РАБОТЫ НА ПЭВМ ПРИ СОЗДАНИИ

И ВЫПОЛНЕНИИ ПРОГРАММ НА ЯЗЫКЕ ТУРБО-БЕЙСИК

1. Войти в Турбо-Бейсик. Для этого набрать tb в командной

строке и нажать клавишу "Ввод". Еще раз нажать "Ввод".

В верхней строке экрана высвечивается главное меню.

2. Для первоначального ввода или исправления программы войти

в редактор (пункт меню EDIT).

3. После того, как программа составлена (или внесены исправ-

ления), ее необходимо записать в память на диск или дискету

(пункт главного меню FILE, подпункт SAVE или клавиша F2).

Замечание. Рекомендуется после набора каждых 10 строк запи-

сывать программу на диск (простым нажатием клавиши F2), чтобы в

случае сбоя ПЭВМ программа не пропала.

4. Выполнить программу (пункт RUN главного меню), переход на

большой экран для анализа результатов - команда ALT/F5.

5. Выйти из Турбо-Бейсика (пункт FILE, подпункт EXIT или ко-

манда ALT/X).

Замечание. В каждом режиме в нижней строке экрана указано

назначение функциональных клавиш. Например, если курсор находится

в главном меню, то нажатие клавиши F1 (Help) вызывает появление

на экране сведений по использованию соответствующего режима, пе-

реход к следующей странице - "Ввод". Нажатие F5 (Zoom) вызывает

раскрытие текущего окна на весь экран, повторное нажатие F5 -

возврат в исходное положение; F6 (Next) - переход к следующему

окну; F7 (Goto) - переход в режим редактирования; ALT/X (Exit) -

выход из Турбо-Бейсика.

В режиме редактирования: F1 - Help (см. выше), F2 - Save (за-

пись на диск или дискету); F3 - New (загрузка новой программы,

имя вводится в появившееся окно) и т.д.

Галина Ивановна Светозарова

ОСНОВЫ ПРИКЛАДНОЙ ИНФОРМАТИКИ

Раздел: Описание языка Турбо-Бейсик

Справочное пособие

──────────────────────────────────────────────────────────────

Подписано в печать

Уч.-изд.л. 1,5 Тираж 1000 экз.

Заказ Цена

──────────────────────────────────────────────────────────────

Московский институт стали и сплавов, Ленинский проспект, 4

Типография ЭОЗ МИСиС, Орджоникидзе, 8/9

_