Page 66 - 33
P. 66

105 PRINT "           Такого варiанту немає!    ":  GOTO 40
                      120 INPUT "Дiаметр бурильних труб, м (для закiнчення - 0)  ",DBT
                      125 IF DBT=0  THEN  PRINT  "ТРИВАЛIСТЬ  РУХУ  В  БУР. КОЛОНI,  хв. ";
                              TS1/60: GOTO 40
                      130 INPUT "Товщина стiнки труби, м ", TBT
                      135 INPUT "Довжина секцiї∙, м       ", LBT
                      140 D1=DBT-2*TBT
                      145 D2=0
                      150 L=LBT
                      155 GOSUB 500
                      160 TS1=TS1+T
                      165 GOTO 120
                      200 INPUT "Дiаметр долота, м  ",DD
                      205 INPUT "Коефiцiєнт кавернозностi (для закiнчення -0)  ",KAV
                      210 IF KAV=0 THEN PRINT "ТРИВАЛ. РУХУ  В  НЕЗАКРIПЛ. IНТЕРВ., хв.";
                                    TS2/60: GOTO 40
                      215 INPUT "Зовнiшнiй дiаметр бурильних труб, м       ",DBT
                      220 INPUT "Довжина дiлянки незакрiпленого iнтервалу, ",LD
                      225 D1=DD*KAV
                      230 D2=DBT
                      235 L=LD
                      240 GOSUB 500
                      245 TS2=TS2+T:GOTO 205
                      250 INPUT "Зовнiшнiй дiаметр обсадної труби, м  ", DOT
                      255 INPUT "Дiаметр бурильної труби, (для закiнчення - 0)  ", DBT
                      260 IF DBT=0  THEN  PRINT  " ТРИВАЛ.  РУХУ  В  ЗАКРIПЛ.  IНТЕРВ., хв.";
                                     TS3/60: GOTO 40
                      265 INPUT "Товщина стiнки обсадної труби, м   ", TOT
                      270 INPUT "Довжина секцiї обсадної колони, м  ", LOT
                      275 D1=DOT-2*TOT
                      280 D2=DBT
                      285 L=LOT
                      290 GOSUB 500
                      295 TS3=TS3+T:  GOTO 255
                      300 INPUT " Об'єм розчину в ємкостях на поверхнi, куб.м  ", WN
                      305 TN=WN/Q
                      310 TS=TS+TN
                      315 PRINT " ЧАС  НА  ВИКАЧУВАННЯ  РОЗЧИНУ  З  ЄМКОСТЕЙ,  хв. " ;
                                    TN/60:  GOTO 40
                      320 CLS:PRINT :PRINT "          Результати розрахунку
                      325 PRINT "Сумарний час руху бур. розчину      "; TS/60; "хв."
                      330 PRINT "  у т.ч.  в бурильнiй колонi    "; TS1/60; "хв."
                      335 PRINT "          в незакрiпл. iнтерв.  "; TS2/60; "хв."
                      340 PRINT "          в закрiпл. iнтервалi  "; TS3/60; "хв."
                      345 PRINT "          час на викачуван. з ємкостей "; TN/60; "хв."

                                                              66
   61   62   63   64   65   66   67   68   69   70   71