fortran 初心者です。

質問

fortranでフィボナッチ数列
A0 = 0 , A1 = 1 , Ai+1 = Ai + Ai-1 (i =2,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

回答No.1

Quux · ベストアンサー

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

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

かな

お礼

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