您所在位置：主题：为什么啊？我是初学者大哥大姐告诉我吧谢谢··
AIR宏
[专家分：0] 发布于 2010-05-11 22:35:00
REAL i, n, m
WRITE(*,*)'ENTER i ,n,m,h,b=?'
READ(*,*)i,n,m,b,h,Q
A=(b+m*h)*h
X=b+2*h*SQRT(1+m**2)
R=A/X
C=R**(1.0/6.0)/n
Q=A*C*SQRT(R*i)
WRITE(*,*)'Q= ',Q
END
ENTER i ,n,m,h,b=?
1/6500,0.03,1.5,2.7,34
? Error: REAL Indefinite (uninitialized or previous error)
Error Code 2136
PC = 0000: 000A; SS = 0E1F, FP = 0B36, SP = 1068
WRITE(*,*)'ENTER i ,n,m,h,b=?'
READ(*,*)i,n,m,b,h,Q
A=(b+m*h)*h
X=b+2*h*SQRT(1+m**2)
R=A/X
C=R**(1.0/6.0)/n
Q=A*C*SQRT(R*i)
WRITE(*,*)'Q= ',Q
END
ENTER i ,n,m,h,b=?
1/6500,0.03,1.5,2.7,34
? Error: REAL Indefinite (uninitialized or previous error)
Error Code 2136
PC = 0000: 000A; SS = 0E1F, FP = 0B36, SP = 1068
