Page 68 - 33

нього. Це можна зробити кількома способами. Пояснимо на прикладі оператора
125.

125 IF DBT =0 THEN PRINT “Тривалість руху в бур. колоні, хв.”;
TS1/60: GOTO 40

Один із способів полягає в тому, що праву частину оператора, починаючи
з команди PRINT, можна розмістити за підпрограмою (500-520), тоді ті самі

функції будуть виконуватися такими операторами:

125 IF DBT=0 THEN 530

... ... ... ... ... ... ... ... ... ... ...

... ... ... ... ... ... ... ... ... ... ...

530 PRINT “Тривалість руху в бур. колоні, хв.”; TS1/60

535 GOTO 40

При цьому до команди GOTO 40 можна розмістити будь-який обсяг

іншої інформації. Це своєрідні операторні дужки.

Другий спосіб відображено в наступному фрагменті:

125 IF DBT<>0 then 130

126 PRINT “Тривалість руху в бур.колоні, хв”; TS1/60

127 GOTO 40

130 INPUT “Товщина стінки труби, м”, TBT

Нагадаємо, що символи “< >” означають “не рівно”. Як бачимо, у цьому

варіанті всі необхідні оператори знаходяться в основній програмі і фрагменти

поза програмою відсутні.

Слід звернути увагу ще на одну особливість програми – її відміну від

блок-схеми, яка робить роботу з програмою зручнішою для користувача.

Йдеться про ввід даних для перших трьох варіантів розрахунку. На блок-схемі

ввід даних показано в одному структурному елементі. Ознакою закінчення

розрахунків за даним варіантом є нуль. Тоді згідно з блок-схемою для

закінчення треба було б вводити три нулі. В програмі передбачено роздільне

введення даних, що дозволяє для закінчення обмежитись вводом лише одного

нуля.

68