Курсовая работа: Оптико-механічні маніпулятори

90 READ T

100 H = T / Q * (1 - (ph / P0) ^ .19028)

110 PRINT "Habs=", H

105 PRINT "Ph=", ph

120 NEXT ph

130 DATA 50,45,40,35,30,25,20,15,10,5,0,-5,-10

140 INPUT "Для того, щоб побудувати графік, натиснiть Enter", a

150 CLS

160 SCREEN 11

170 LINE (0, 200)-(600, 200), 1

180 LINE (0, 0)-(0, 400), 1

190 FOR ph = 167 TO 765 STEP 52

200 READ T

210 H = T / Q * (1 - (ph / P0) ^ .19028)

220 ph1 = ph - 176

230 h1 = 200 - (H * 100)

240 IF ph > 167 + 52 THEN LINE (x, y)-(ph1, h1), 2

242 x = ph1: y = h1

250 NEXT ph

260 DATA 50,45,40,35,30,25,20,15,10,5,0,-5,-10

270END

2.4 Результати виконання програми

Курсова робота з дисциплiни IНФОРМАТИКА

Варiант №15: Розрахувати i побудувати графiк змiни висоти вiд статичного тиску атмосфери для висот до 11000м по заданiй формулi

Habs= 1.926848

Ph= 167

Habs= 1.459493

Ph= 219

Habs= 1.096405