Курсовая работа: Технологические энергоносители предприятий

FOR i=1 TO N

READ b

length(i)=b

READ b

flux(i)=b

READ b

press(i)=b

NEXT i

DATA 250, 0.111, 0.9

DATA 400, 0.069, 0.7

DATA 150, 0.069, 0.5

DATA 250, 0.055, 0.5

FOR i=1 TO N

A(i)=(length(i)^1.21)*(flux(i)^0.368)

NEXT i

'poisk optimal'nix poter' davleniay

FOR k=1 TO 5

c0=Cost()

w=c0

FOR i=1 TO M

DO

c=w

press(i)=press(i)+dP

w=Cost()

loop until w>c

press(i)=press(i)-dP

w=c

DO

c=w