Page 37 - 33
P. 37
Нумерацію індексів почнемо з номера 2. Одиницю залишимо незайнятою,
що дозволить нам пропускати рядок перед виводом на екран або принтер. Такі
ж самі наслідки викличе і пропуск дев’ятого номера (див. нижче)
500 A$(2)=” Вхідні дані ”
505 A$(3)=” Вартість 1 години експлуатації БУ,у.о./год ”
510 A$(4)=” Час допоміжних операцій ”
515 A$(5)=” Проходка за рейс ”
520 A$(6)=” Проходка на долото ”
525 A$(7)=” Механічна швидкість буріння ”
530 A$(8)=” Вартість долота ”
535 A$(10)=” Результати розрахунку ”
540 A$(11)=” Рейсова швидкість буріння ”
545 A$(12)=” Вартість 1м буріння ”
550 RETURN
При програмуванні підпрограми слід пам’ятати, що вона обов’язково
повинна закінчуватись командою RETURN (повернення). Оскільки до
більшості даних у масиві будуть додаватись числа, закриття лапок теж
обов’язкове.
Після формування масиву продовжимо складання основної програми
25 DIM A$(20)
2525
30 GOSUB 500
Після читання масиву, спричиненого зверненням до підпрограми
(оператор 30), можна користуватися символьними змінними. Для вводу вхідних
даних будемо застосовувати відому нам команду INPUT, але оператор у
вигляді
35 INPUT А$(3), CE
GWBASIC не сприймає. Тому доведеться його розділити на два окремих:
PRINT і INPUT.
37
