1樓：天河流紋石
real a,b,c,d,e,f,x,y,z,l,m,n
改為real a,b,c,d,e,f,x(num),y(num),z(num),l(num),m(num),n(num)
陣列的定義，必須給出具體大小。
2樓：
陣列 x(i),y(i),z(i) 沒有定義
error: constants and expressions are invalid in read-only i/o lists. [x]
read (fileid,*)x(i),y(i),z(i)
---------------^
program main
implicit none
integer,parameter :: fileid=10
integer,parameter :: num=8000
integer i,error
!real a,b,c,d,e,f,x,y,z,l,m,n 這隻定義了型別，變數可以這麼幹，陣列不可以；
！下面這樣可以
！dimension x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
！real a,b,c,d,e,f,x,y,z,l,m,n
！下面這樣可以也可以
real x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
real a,b,c,d,e,f
！下面這樣可以也可以
！real a,b,c,d,e,f,x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
！下面這樣可以也可以
！real a,b,c,d,e,f,x( num),y(num),z(num),l(num),m(num),n(num)
！還有一種方法f90的
！real,dimension :: x(1: num),y(1:num),z(1:num),l(1:num),m(1:num),n(1:num)
!real a,b,c,d,e,f
a=-0.574213
b=53.0742
c=-0.574213
d=53.0742
e=-0.573119
f=52.9731
open(fileid,file="file.txt",status="old",iostat=error)
if(error/=0)then
write(*,*)"open file.txt fail."
stop
end if
do i=1,num
read (fileid,*)x(i),y(i),z(i)
l(i)=(2*x(i)-a-b)/(b-a)
m(i)=(2*y(i)-c-d)/(d-c)
n(i)=(2*z(i)-e-f)/(f-e)
end do
do i=1,num
write (*,"(f8.6)" l(i),m(i),n(i)
end do
stop
end program
另外 "(f8.6)" 也可以用了嗎？？
新人學C 用什麼編譯器好
最常用的是vs2003和vs2005 2008目前還沒什麼公司使用，多半是個人。另外2003在裝的時候經常出現莫名其妙的問題就裝不起。2005不會，並且2005有很多方便的熱鍵可以用，不過2005帶有智慧感知，可以幫你補充上你可能需要的資料。但是如果你使用va外掛幫助程式設計的話，會比2005自帶的...
怎麼用麵粉，玉米麵製作魚餌，新人請教怎麼用玉米麵和白麵做魚餌
用玉米麵為主料,製成各種氣味獨特的麵食,是垂釣各種淡水魚的基礎餌料。先將玉米麵用細羅過篩,羅上的粗料和糠皮,可作為制糟食的賦形劑,篩下的細粉。 陳lian合 取玉米粉800克 白糖100克，加入適量的開水，攪拌成糊狀，取鍋一口，放入清水，鍋內放上蒸菗，墊上紗布，將攪拌好的玉米粉放在紗布上攤成1.5公...
請問哪裡可以買到新人結婚時用的宣誓簿， 5
請問 可以買到新人結婚時用的宣誓簿，這應該去婚慶用品店看看，他們那裡這些東西最全。那些拍婚紗照的地方應該也有的 你可以去問一下。求 向老婆結婚時的宣言！長相守 共白頭。一生不多 一世不久。老婆 以後死了進我家祖墳。要結婚了 在婚禮上新郎對新娘的宣言 不用說話，直接親下去，用你的眼神和嘴唇融化她！不論...