Question

我是Fortran 77学习者，我是新手，所以对Fortran一无所知。我们的教授给了我们一份功课。我们假设编写一个计算cos（x ** 2）的程序。它有一个泰勒扩展，所以我试着写一些东西，但它给了我这个错误：

   term = term*((-1)**i)*x**2*i)/fac(2*i)                          
   1
错误：（1）
处的不可分类陈述

洞程序是：

        PROGRAM COSX_SQUARE
        IMPLICIT NONE
        INTEGER x, n, i
        REAL partial_sum, term

20      PRINT*, 'INPUT THE DEGREE'
        READ*, x
        x = x*180/3.1415

        PRINT*, 'INPUT THE CORRECTION VALUE '
        PRINT*, 'AS A NATURAL NUMBER'

        READ*, n

        i= -1
        term = 1
        partial_sum = term

10      i=i+1
        term = term*((-1)**i)*x**2*i)/fac(2*i)

        partial_sum = partial_sum + term

        IF (i .LT. n) THEN
        GO TO 10
        ELSE
        PRINT*, 'COS', x, 'SQUARE IS = ', partial_sum
        END IF

        GO TO 20

        END

我错在哪里？这个计划会运作良好吗？提前谢谢。

Answer 1

你的表达中缺少一个括号！

它可能应该是：

term = term*(((-1)**i)*x**2*i)/fac(2*i)

FORTRAN 77'错误：（1）'的不可分类陈述

1 个答案: