fortranでフィボナッチ数列A0 = 0 , A1 = 1 , Ai+1 = Ai + Ai-1 (i =2,3...)を計算するプログラムを作っています。 得られた値が奇数の時には、数値の右横に＊をつけ、奇数かつ３の倍数なら＊＊をつけます。以下のようにプログラムしましたが、＊印が偶数時にもついてしまい、また＊＊の付け方にも困っています。どこが、間違っているのか、アドバイス手本よろしくお願いします。 IMPLICIT REAL (A-H,O-Z) A0 = 0 A1 = 1 A2 = 1 WRITE(6,*)'A 0 = 0' WRITE(6,*)'A 1 = 1' DO 20 L = 2,20,1 A2 = A1 + A0 I = A2-INT(A2/2)*2 J = A2-INT(A2/3)*3 IF(J.NE.O.AND.I.NE.O) THEN WRITE(6,*) 'A',L,'=',A2,'*' ELSE IF(J.NE.O.AND.I.EQ.O) THEN WRITE(6,*) 'A',L,'=',A2,'*' ELSE WRITE(6,*) 'A',L,'=',A2 END IF A0 = A1 A1 = A2 20 CONTINUE STOP END 結果 A 0 = 0 A 1 = 1 A 2= 1.* A 3= 2.* A 4= 3.* A 5= 5.* A 6= 8.* A 7= 13.* A 8= 21.* A 9= 34.* A 10= 55.* A 11= 89.* A 12= 144.* A 13= 233.* A 14= 377.* A 15= 610.* A 16= 987.* A 17= 1597.* A 18= 2584.* A 19= 4181.* A 20= 6765.*
