等比数列の和

 等比数列について10項までを出力し、その和を求めるプログラムを書いた。


program ex1_12
implicit none
real(8):: a=16.0d0,r=0.8d0
real(8) b(10),S(10),SS(10)

integer n

do n=1,10
b(n)=a*r**(n-1)
write(*,*)'a(',n,')',b(n)
enddo

S(1)=a
write(*,*)'S(1)=',S(1)
do n=1,9
S(n+1)=b(n+1)+S(n)
write(*,*)'S(',n+1,')',S(n+1)
enddo

do n=1,10
SS(n)=a*(1-r**n)/(1-r)
write(*,*)'S(',n,')',SS(n)
enddo
end program ex1_12

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック