頁:
[1]
幫忙看看程式(fortran)
program testlreal A1,A2,A3,B1,B2,B3,B4,c,d,e,a,b
open(12,file='aa.dat',status="old")
read(12,*)A1,A2,A3
read (12,*)B1,B2
read (12,*)B3,B4
rewind(12)
read (12,*)c
backspace(12)
read(12,*)D,E
A=A1*A2**(3./2.)
B=D+2./3.*E
write(*,*)A,B,C,D
end
都打不出什麼東西底說幫看看底說<div></div>
頁:
[1]