Page 54 - 33

216 A$(12)=”максимальний коефіцієнт перевищення тиску”

218 A$(13)=”максимально допустиме перевищення тиску в МПа”

220 A$(14)=”максимальну густину визначено за варіантом”
222 RETURN

У масиві індекси 1, 5 і 9 пропущено для забезпечення розділюючих
“порожніх” рядків.

Складаючи основну частину програми, слід уважно ставитись до

переводу МПа в Па і навпаки. Формально треба усі обчислення робити в Па,

але доцільніше перевід МПа в Па зробити вже на останньому етапі, при

визначенні густини. Нижче дається роздруківка повного тексту програми.

5 CLS
10 PRINT " Визначення потрiбної густини бурового розчину
15 PRINT “ =====================================
20 PRINT " Склав ст. Iванкiв В.М.
25 DIM A$(20)
30 GOSUB 200
35 G=9.810001: M=1000000!
40 INPUT "Глибина свердловини, м ",H
45 INPUT "Пластовий тиск, МПа ",PL
50 IF H<=1200 THEN K1=1.1: K2=1.15: DPD=1.5: GOTO 65
55 IF H<=2500 THEN K1=1.05: K2=1.1: DPD=2.5: GOTO 65
60 K1=1.04: K2=1.07: DPD=3.5
65 P1=PL*K1
70 P2=PL*K2
75 DP=P2-PL
80 IF DP>DPD THEN P2=PL+DPD: Z=2: GOTO 90
85 Z=1
90 R1=P1*M/(G*H)
95 R2=P2*M/(G*H)
100 A$(3)=A$(3)+STR$(H)
105 A$(4)=A$(4)+STR$(PL)
110 A$(7)=A$(7)+STR$(R1)
115 A$(8)=A$(8)+STR$(R2)
120 A$(11)=A$(11)+STR$(K1)
125 A$(12)=A$(12)+STR$(K2)
130 A$(13)=A$(13)+STR$(DPD)
135 A$(14)=A$(14)+STR$(Z)
140 FOR I=1 TO 14
145 PRINT A$(I)
150 NEXT I

54