こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

fortran 初心者です。

fortranでフィボナッチ数列
A0 = 0 , A1 = 1 , Ai+1 = Ai + Ai-1 (i =2,3...)
を計算するプログラムを作っています。
得られた値が奇数の時には、数値の右横に*をつけ、奇数かつ3の倍数なら**をつけます。
が、以下のようにプログラムしましたが、*印がつきません。どこが、間違っているのか、アドバイスよろしくお願いします。
C Question
A0 = 0.0
A1 = 1.0
A2 = 1.0
WRITE(6,*)'A0 = 0.0'
WRITE(6,*)'A1 = 1.0'
DO 10 I = 2,10,1
A2 = A1 + A0
N = A2-(A2/2)*2
M = A2-(A2/3)*3
IF ( M .NE. 0 .AND. N .NE.0) THEN
WRITE(6,*)'A',I,'=' ,A2,'*'
ELSE IF ( M .NE. 0.AND. N .EQ.0)THEN
WRITE(6,*)'A',I,'=' ,A2,'**'
ELSE
WRITE(6,*) 'A',I,'=' ,A2
END IF
A0 = A1
A1 = A2
10 CONTINUE
STOP
END

投稿日時 - 2007-05-16 23:39:49

QNo.3006264

すぐに回答ほしいです

質問者が選んだベストアンサー

× N = A2-(A2/2)*2
× M = A2-(A2/3)*3

○ N = A2-INT(A2/2)*2
○ M = A2-INT(A2/3)*3

かな

投稿日時 - 2007-05-17 00:23:40

お礼

わかりました!!!!ありがとうございました。

投稿日時 - 2007-05-18 15:38:03

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問