Page 39 - 33

Порівняно з попередньою задачею в цьому обчислювальному блоці
передбачено зрощування. Оскільки це зовсім окремі оператори, то в рядку вони

розділяються двокрапкою. Вивід на екран результатів розрахунку робимо в
циклі, починаючи з індексу 9 (пропуск рядка) до індекса 12.

135 FOR I=9 TO 12
140 PRINT A$(I)

145 NEXT I

Якщо припустити, що визначена рейсова швидкість дорівнює 1,5 м/год, а

вартість 1 м складає 95,2 у.о./м, то після виконання цих операторів на екран

буде виведено:

Результати розрахунку

Рейсова швидкість буріння, м/год 1.5

Вартість 1 м буріння, у.о./м 95.2

Переходимо до програмування сервісних блоків. Згідно з блок-схемою

(див. рис. 3.5) передбачається можливість вибору виводу на друк результатів із

вхідними даними чи без них. Тому вивід на принтер повинен складатись з двох

циклів. Першим циклом виводяться вхідні дані (індекси 2-8), другим -

результати розрахунку (індекси 10-12). Доцільно також передбачити пропуск

рядків шляхом використання “порожніх” індексів, наприклад, 1-го, 9-го, 13-го.

З урахуванням вищесказаного цей фрагмент програми виглядатиме так:

150 INPUT “ Друкувати ? (Y/N) “, K$

155 IF K$=”Y” OR K$=”y” THEN 170

160 IF K$=”N” OR K$=”n” THEN 220

165 GOTO 150

170 INPUT “ З вхідними даними? (Y/N) “, K$

175 IF K$=”Y” OR K$=”y” THEN 190

180 IF K$=”N” OR K$=”n” THEN 205

39