175 PRINT " Діаметр обсад-^ Зазор * Зазор *"

160 PRINT " них труО,м * середній,м w міHIM.,м*"

185 PRINT n**************************-»:**'*r*-*:********"

190 PRINT "* 0.114-0.146 * 0.010-0.015 * 0.006 *"

195 PRINT "* 0.168-0.194 * 0.015-0.020 * 0,009 *"

20О PRINT n* 0.219-0.245 * 0.020-0.025 * 0.012 *"

205 PRINT "* 0.273-0.299 * 0.025-0.035 * 0.013 *"

21O PRINT "* 0.324-0.351 * 0.035-0.045 * 0.014 *"

215 PRINT "* 0.377 і > A' 0.045-0.050 * 0.015 *"

220 PRINT "**************************-********************": PRINT

225 INPUT "Введіть зазор, м - ", Dl

230 DD1(I)"DM+2*D1 : CLS

235 PRINT : PRINT " РОЗРАХУНКОВИЙ ДІАМЕТР ДОЛОТА ,M- ";DDl(I)

240 PRINT

245 PRINT "ДІАМЕТР ДОЛОТА ПОВИНЕН БУТИ БІЛЬШЕ ЗА РОЗРАХУНКОВИЙ "

250 PRINT " І ВІДКОРЕКТОВАНИЙ ПО ГОСТ 20692-75"

255 PRINT

260 PRINT n ********** СОРТАМЕНТ ДОЛІТ ************-***"

265 PRINT "* 0.0984 0.1206 0.132 0.1397 *"

270 PRINT "* 0.151 0.161 0.1905 0.2159 *"

275 PRINT "* 0.2445 0.2699 0.2953 0.32 *"

2GO PRINT "* 0.3492 0.3937 0.4445 0.49 *"

285 PRINT "***********^***************-*-**^****-)-*^*->-*т': PRINT

290 INPUT "ВВЕДІТЬ ВІДКОРЕКТОВАНЕ ЗНАЧЕННЯ ДІАМЕТРУ ДОЛОТА,М - ",DD<I>

295 IF I=N THEN 390

300 CLS

305 PRINT "Нобхідний зазор поміж долотом та внутрішнім":PRINT ..

31О PRINT " діаметром обсадноі колони знаходиться": PRINT

315 PRINT " в межах 0.005-0.010 м":PRINT

32О INPUT " Введіть вибраний Сами зазор ,м - ", DS^CLS

325 DK{I)=DD(I)+D?

330 PRINT

360 PRINT "* 0.127 0.1683 0.2731 0.351 *"

365 PRINT "* 0.1397 0.2191 0.2985 0.377

370 PRINT "************************************************************ir

375 PRINT

380 IF I=N THEN 395 ELSE 1=1+1

385 PRINT " ВВЕДІТЬ ВІДКОРЕКТОВАНИЙ ПО ГОСТ 632-80 "

387 INPUT tr ЗОВНІШНІЙ ДІАМЕТР ОВСАДНОІ КОЛОНИ, м - ",D(I)i CLS: GOTO 45

388 PRINT

390 CLS

391 PRINT

392 PRINT " ПРОМІЖНІ РЕЗУЛЬТАТИ РОЗРАХУНКУ

393 PRINT "============================================="

394 PRINT "і N 1 діаметр колони,м і діаметр долота,м і"

395 PRINT "===============================:==========''

396 FOR 1=1 ТО N

397 PRINT USING "і # і #.### і";І,DK(I-l);

398 PRINT USING n #.### :"DD1(І)

399 NEXT I

400 PRINT "=========-========================^=;======^''

401 PRINT

402 PRINT " КОНСТРУКЦІЯ СВЕРДЛОВИНИ"

405 PRINT "=================^===-==================:====:=:=============i='

410 PRINT ": N : ІНТЕРВАЛАМ ; ДОВЖИНА : ДІАМЕТР : ДІАМЕТР ОСС.:"

415 PRINT ": : від до : СЕКЦІЇ,м : ДОЛОТА,м : колони ,м :"

420 PRINT "========================================================«

425 FOR 1=1 ТО N

430 PRINT '*':" ТАВ (З" І ТАВ (5) ":" ТАВ (б) НІ (Г) ТАВ (ІЗ'*' "-" ТАБ (ІЗ) Н2 п

435 PRINT TAB (19)":" ТАВ (24) L(I> TAB (ЗІ) ":" ТАВ (33) DD(I) TAB (42) ": "

440 PRINT ТАВ (45) D(I) ТАВ (56) ": "

445 NEXT I

450 PRINT " =========;==================:;==========i==:==:=:=:==:==:=:=r=:=:=:=r=r"

455 PRINT

460 INPUT " ЧИ БУДЕТЕ ДРУКУВАТИ РЕЗУЛЬТАТИ ? (Y/N) - ", U$

4G5 IF U$^"Y" OR U?""y" THEN 497

470 IF U§="N" OR U$="n" THEN 480

475 BEEP: PRINT : PRINT " БУДЬТЕ УВАЖНІ ":PRINT :GOTO 460

4SO PRINT

485 INPUT " ЧИ БУДЕТЕ КОРИСТУВАТИСЬ ПРОГРАМОЮ (Y/N) - гг, U$

490 IF и$г'="У" OR U$="y" THEN CLS: GOTO ЗО

495 IF U$="M" OR IJ$""n" THEN 565

496 BEEP: PRINT : PRINT " ВУДЬТЕ VEMK.111 ": PRINT : GOTO 485

497 LPRINT

498 LPRINT " РОЗРАХУНОК КОНСТРУКЦІЇ СВЕРДЛОВИНИ "

500 LPRINT " *********************************************

501 LPRINT

502 LPRINT " ПРОМІЖНІ РЕЗУЛЬТАТИ РОЗРАХУНКУ

504 LPRINT "і N і Діаметр колони,и 1 Діаметр долота,м ;"

505 LPRINT "=========================================================:="

506 FOR 1=1 ТО N

507 LPRINT USING "; # : #.### :";Т, DK(1-1)

508 LPRINT USING " ^.^#^ :";DDl(I)

509 NEXT I

510 LPRINT "====^============================:======================:-=-»

511 LPRINT

512 LPRINT »

513 LPRINT " КОНСТРУКЦІЯ СВЕРДЛОВИНИ"

514 LPRINT "==========================================zr=r.=:=^^=:=====z==:=^=:e»

515 LPRINT ": N : ІНТЕРВАЛ,м : ДОВЖИНА : ДІАМЕТР : ДІАМЕТР ОВС.;" 520 LPRIMT ": : ВІД ДО : СЕКЦІЇ,м : ДОЛОТА, м : КОЛОНИ ,н ;" 525 LPRINT "================================-=========================:==''

53О FOR I"l TO N

535 LPRINT **':" ТАВ (2) . І ТАВ (3) ";» ТАВ (б) НІ (і) TAB (IZ'" "-:г ТАБ (ІЗ) Н2

54О LPRINT ТАВ (23)":" ТАВ (23) L(I) ТАВ (ЗІ) ":" ТАВ (33) DD(I) ТАВ (42) т

545 LPRINT TAB (45) D(I) TAB (66) ";"

55О NEXT I

560 GOTO 45O

565 END

РОЗРАХУНОК КОНСТРУКЦІЇ СВЕРДЛОВИНИ

********^*^^-А'-Л--(--*--(^-*--*- + -А--<гт^-*:-»-'*--*-^-^-'*--*.^-н^чи^. + ^^^.^+.^.

ПРОМІЖНІ РЕЗУЛЬТАТИ РОЗРАХУНКУ 1 W..! Діаметр колони,м..! Яіаь^тр долота,м !

і 1 і 0.000 ! 0.179 !

і 2 і 0.196 і 0.310 і

і 3 ! 0.300 і 0.421 і

КОНСТРУКЦІЯ СВЕРДЛОВИНИ

і N і ІНТЕРВАЛ,м і ДОВЖИНА ! ДІАМЕТР * ДІАМЕТР ОБС.і і і ВІД ДО ! СЕКЦІЇ,м ! ДОЛОТА,!.: і КОЛОНИ ,м і

і 1 1 0 -3960 1 3960 і .1905 1 .14 і

121 0 -2800 і 2800 і .2953 і .245 І

131 0 -200 і 200 і .3937 і .324 І

10 REM - . . . ; ' :..,.,:.'.:*. . '

:: ;:Т :"* - , ..**::-.:

tG 1 . . . '*

:* ;..: : * :; ''..** : ' .= -**'" ?''**'-''

1 ** .**'*'.

]_; ._ ...... ..,:..:.,.. . :; ..-.. :. , ...

1:: "::*:::": * '.Л ' ... ; ,,.....,. : . . . _ _ *...:.-/..*:.;

І * * . . -

1 .' . . . ' - '.'... :

j_ '- . ... . -

L '**'.* .. Г '... -

It:: L:-: - - .' *"- --'**:,;.** ,:.'.-'

17 r. PT-VI:. *--