※ 引述《darrenmm (mm)》之銘言：
: 我的程式碼如下:
: ==============================================
: program Q1
: implicit none
: real,parameter :: n=30
^^^^^
: real(kind=8) :: a(n)
^^^ <-- 這裡該餵他個integer吧
: integer i
: real :: AA=0.0
: do i=1,n
: a(i)=AA*3**i-0.4*(1/2)**i-0.1*i-0.05
: write(*,*) a(i)
: end do
: stop
: end
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.201.102