|贴子

2023-03-21
qbasic代码10basic吧
SATPRESS: p0=7.8617-2644.1*(1/tsat(i))- 173690#*(1/tsat(i))^2 p0=132.89*10^p0 &#...
2023-03-21
qbasic代码9basic吧
machfunc: IF mg > Iimmach THEN GOTO endloop2 IF (2!-bdum*mg^2)/( 2!-bdum*Mfix...
2023-03-21
qbasic代码8basic吧
ncount2=1 jj=0 mg=M1 GOTO machfunc it3cont1: ncount2=ncount2+1 jj=1 xsav=xdum M2...
2023-03-21
qbasic代码7basic吧
poode: p0=7.8617#-2644.1#*(1/ts)-173690#*(1/ts)^2 p0=132.89#*10^p0 ' [N/m^2...
2023-03-21
qbasic代码basic吧
table: pinc=nprint+pinc PRINT USING" #.###";z(i); PRINT USING" ##...
2023-03-21
qbasic代码basic吧
FOR i = 1 TO nn STEP nprint WRITE #1, CSNG(z(i)) WRITE #2, CSNG(mdot(i)/mdot(1))...
2023-03-21
qbasic代码basic吧
rho1=(rg*tsat(i )/g) ^-1 : pmean=(p(i+1)+p(i))/2 bigx(i)=2*muu(i) /(pmean*di*SQR...
2023-03-21
qbasic代码basic吧
#qbasic# PRINT " q(1), mdot(1) , P(1)"; PRINT USING" ##.#####^^^^...
2023-03-21
qbasic代码basic吧
#qbasic# executor: INPUT" ",ss$ OPEN "zdat" FOR OUTPUT AS #1...
2023-03-21
qbasic代码basic吧
#qbasic##qbasic# di=.62*.0254:dout=.87*.0254 tsink=27+273.13 emiss=.45 hbar=2.9*...
2023-03-21
求助有没大佬会qbasic语言，转成Python，c，Javabasic吧
#qbasic# DEFINT i-j : DEFINT n: DEFDBL a-h : DEFDBL k-m: DEFDBL o-z OPTION BASE ...