60£® Ìõ¼þÕýÈ·µÄINDEPENDENT ¶ÏÑÔʵÀý |
![]() ![]() |
!µ±RermatµÄLast TheoremÎªÕæÊ±ÕýÈ·
!HPF$ INDEPENDENT, NEW(ix, iy, n, z, zi)
¡¡¡¡¡¡¡¡DO i = 1, 10
¡¡¡¡¡¡¡¡forever: DO
¡¡¡¡¡¡¡¡¡¡¡¡READ (i, '(2I12,I3') ix, iy, n
¡¡¡¡¡¡¡¡¡¡¡¡IF (ix<=0 .OR. n<=2) &
¡¡¡¡¡¡¡¡¡¡ ¡¡¡¡EXIT forever
¡¡¡¡¡¡¡¡ ¡¡¡¡z = (ix**n + iy**n) ** (1.0/n)
¡¡¡¡¡¡¡¡¡¡¡¡WRITE (i+10, '(E18.6)') z
¡¡¡¡¡¡¡¡¡¡¡¡zi = FLOOR( z )
¡¡¡¡¡¡¡¡¡¡¡¡IF (zi == z) THEN
¡¡¡¡¡¡¡¡¡¡¡¡¡¡PRINT *, 'Fermat was wrong!'
¡¡¡¡¡¡¡¡¡¡¡¡¡¡PRINT *, 'Notify Andrew Wiles!'
¡¡¡¡¡¡¡¡¡¡¡¡¡¡GOTO 100
¡¡¡¡¡¡¡¡¡¡¡¡END IF
¡¡¡¡¡¡¡¡¡¡END DO
¡¡¡¡¡¡¡¡END DO
100¡¡¡¡ CONTINUE
Copyright: NPACT | ![]() ![]() |