Re: [問題] 發問移動平均的問題
※ 引述《wtapin (大餅先生)》之銘言：
: 如題 我想寫一個1~5的移動平均
: 他發生的情形有2個一組或3個一組4個一組或5個一組
: 如:12 23 34 45 分別平均
: 123 234 345 分別平均
: 1234 2345 分別平均
: 12345 分別平均
: 有大大可以指導一下嗎??
: 原諒小弟的無知....
program test96
implicit none
integer i,j,k,imin,imax,ivar,isum
parameter (imin=1,imax=5)
dimension ivar(imax)
do i=1,imax
ivar(i)=i
enddo
do i=imin+1,imax
print*, 'number :',i
do j=imin,imax
if(i+j-1 .LE. imax)then
print'(A11,I2,A1,I2)', ' process :',i-1,'-',j
isum=0
do k=j,j+i-1
isum=ivar(k)+isum
c print'(I2)', k
enddo
print*, ' sum=',isum
endif
enddo
enddo
stop
end
--
應該是這樣~~
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.137.32.160
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
