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

NEXT i

'poisk optimal'nix poter' davleniay

FOR k=1 TO 6

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

press(i)=press(i)-dP

w=Cost()

loop until w>c

press(i)=press(i)+dP

NEXT i

IF c0=c THEN dP=0.5*dP

NEXT k

PRINT "pipeline ";" length ";" flux ";" press "

FOR i=1 TO N

PRINT "i = ";i,USING("####.#",length(i)),USING("###.###",flux(i)),USING("####.##",press(i))

NEXT i

PRINT:PRINT "cost = ";USING("#####.#",Cost())

'programma vichesleniya F(dp1,...,dp5)

FUNCTION Cost()