qbasic代码

FOR i = 1 TO nn STEP nprint
WRITE #1, CSNG(z(i))
WRITE #2, CSNG(mdot(i)/mdot(1))
WRITE #3, CSNG(tsat(i)/tsat(1))
WRITE #4, CSNG(p(i)/p(1))
WRITE #5, CSNG(rho(i)/rho(1))
WRITE #6,CSNG(mach(i)/math(1))
WRITE #7, CSNG(bigx(i))
WRITE #10, CSNG(tsat(i))
WRITE #11, CSNG(t(i))
NEXT i
WRITE #8,w1$:WRITE #8,w2$:WRITE #8,w3$:WRITE #8,w4$:WRITE #8,W5$
WRITE #8,w7$:WRITE #8, w8$:WRITE #8,fluid$
WRITE #9, tsink:WRITE #9,dout/.0254:WRITE #9,di/.0254:WRITE #9,hbar
WRITE #9,t(0): WRITE #9,q(1):WRITE #9,qsum
CLOSE #1 :CLOSE #2: CLOSE#3: CLOSE #4: CLOSE#5:CLOSE#6: CLOSE #7
CLOSE #8: CLOSE #9:CLOSE #10:CLOSE #11
nprint=4*nprint
qsum=0:pinc=nprint:PRINT"nn=",nn
PRINT" Z(m) T(K) hfg(J/kg) dq(W) q(W) X Mach No."
FOR i=1 TO nn
qsum=qsum+delq(i)
IF i=1 THEN GOTO table
IF i=pinc OR i=nn THEN GOTO table
GOTO looper