Page 40 - 33
P. 40
185 GOTO 170
190 FOR I=1 TO 8
195 PRINT A$(I)
200 NEXT I
205 FOR I=9 TO 12
210 PRINT A$(I)
215 NEXT I
220 INPUT “ Рахуватиме далі? (Y/N) “, K$
225 IF K$ =”Y” OR K$=”y” THEN 240
230 IF K$=”N” OR K=”n” THEN 250
235 GOTO 220
240 GOSUB 515
245 GOTO 65
250 PRINT “ К І Н Е Ц Ь “
255 END
500 A$(2)= ” Вхідні дані “
505 A$(3)=” Вартість 1 години експлуатації, у.о./год. “
510 A$(4)=” Час допоміжних операцій, год “
515 A$(5)=” Проходка за рейс, м “
520 ... ... ...
… … … …
550 RETURN
Декілька коментарів до наведеного фрагмента програми.
Його призначення – організація діалогу і вивід на принтер відібраної
користувачем інформації. Блок операторів 190-200 забезпечує вивід лише
вхідних даних, блок 205-215 – результатів розрахунку. Якщо користувач
погоджується на вивід результатів із вхідними даними, вивід починається з
оператора 190, а якщо ж без них – з оператора 205, обминаючи блок 190-200
виводу вхідних даних.
40
