反復演算

 自然数の累乗の和を計算するプログラムとフィボナッチ数列を求めるプログラムを作成した。ガウスの公式のところで割り算を最後に持ってこないとエラーになる。(sumを整数型で定義しているから)

program ruijowa
implicit none
integer k,n,wa1,sum
n=10
!ガウスの公式
sum=0
sum=n*(n+1)/2
write(*,*)'wa = ',sum

wa1=0
do k=1,n
wa1=wa1+k
enddo
write (*,*)'wa = ',wa1

sum=0
sum=n*(n+1)*(2*n+1)/6
write(*,*)'wa = ',sum

wa1=0
do k=1,n
wa1=wa1+k**2
enddo
write (*,*)'wa = ',wa1
sum=0
sum=n**2*(n+1)**2/4
write(*,*)'wa = ',sum

wa1=0
do k=1,n
wa1=wa1+k**3
enddo
write (*,*)'wa = ',wa1
end program ruijowa


program fib
integer a(10),i
a(1)=1
a(2)=2
do i=3,10
a(i)=a(i-1)+a(i-2)
enddo

write(*,*)'a(1) = ',a(1)
write(*,*)'a(2) = ',a(2)
write(*,*)'a(3) = ',a(3)
write(*,*)'a(4) = ',a(4)
write(*,*)'a(5) = ',a(5)
write(*,*)'a(6) = ',a(6)
write(*,*)'a(7) = ',a(7)
write(*,*)'a(8) = ',a(8)
write(*,*)'a(9) = ',a(9)
write(*,*)'a(10) = ',a(10)
end program fib

ブログ気持玉

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

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

→ログインへ

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

気持玉数 : 0

この記事へのコメント

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