Page 121 - 33
P. 121
ДОДАТОК А
5 CLS
10 PRINT " Дослiдження залежностi V = f(P)
15 PRINT " ===============================
20 PRINT " Склав ст. Пархоменко М.С.
25 DIM P(30), V(30)
30 INPUT " Нижня границя навантаження ", PMIN
35 INPUT " Верхня границя навантаження ", PMAX
40 INPUT " Крок прирощення навантаження ", DP
45 INPUT " а = ", A
50 INPUT " x = ", X
55 I=1
60 FOR P=PMIN TO PMAX STEP DP
65 G(I)=P: V(I)=A*G(I)^X
70 N=I
75 I=I+1
80 NEXT P
90 PRINT " Результати розрахунку
95 PRINT " ========================
100 PRINT " N n/n P, kH V,м/год
105 PRINT " ========================
110 FOR I=1 TO N
115 PRINT USING " ## ### ###.## "; I, G(I), V(I)
120 NEXT I
125 PRINT " ========================
130 INPUT " Друкувати? (Y/N) ", K$
135 IF K$="Y" OR K$="y" THEN 150
140 IF K$="N" OR K$="n" THEN 200
145 GOTO 130
121
