Fortran 符号没有隐式类型

我通过fortran 90运行这段代码

   Program Projectile
! This Program Calculates the Velocity and Height of a
! Projectile
! Given its Initial Height, Initial Velocity and Constant
! Acceleration.
Implicit None
Real :: Initial_Hight, Height, Initial_Velocity, Velocity, &
Time, Acceleration = -9.807
! Obtain Values for Initial Height, Initial Velocity and
! Time
Print*, "Enter the Initial Height and Velocity:"
Read*, Initial_Height, Initial_Velocity
Print*, "Enter Time at Which to Calculate Height and &
Velocity:"
Read*, Time
! Calculate the Height and Velocity
Height = 0.5 * Acceleration * Time ** 2 + Initial_Velocity &
* Time + Initial_Height
Velocity = Acceleration * Time + Initial_Velocity
! Display Velocity and Height
Print*, "At Time", Time, "The Vertical Velocity is", Velocity
Print*, "and the Height is", Height
End Program Projectile

---

但我经常遇到这样的错误：错误符号“initial_height”没有隐式类型，在删除隐式无行之后，我不能使用实数，因为实数会导致另一个错误，您能帮我解决吗？

您的代码中有一个输入错误：

Real :: Initial_Hight, Height, Initial_Velocity, Velocity, &
  Time, Acceleration = -9.807

应该读哪个

Real :: Initial_Height, Height, Initial_Velocity, Velocity, &
  Time, Acceleration = -9.807

---

您的代码中有一个输入错误：

Real :: Initial_Hight, Height, Initial_Velocity, Velocity, &
  Time, Acceleration = -9.807

应该读哪个

Real :: Initial_Height, Height, Initial_Velocity, Velocity, &
  Time, Acceleration = -9.807

你有两个问题

正如Gilles指出的，您现有的代码中有一个输入错误

第二个问题是您不理解FORTRAN隐式类型规则。除非另有声明，否则名称以I、J、K、L、M或N开头的变量都是隐式整数。除非另有声明，否则所有其他变量都是隐式实数

初始高度是隐式整数，除非您声明它为实，而您没有这样做。您声明初始高度为真，未声明初始高度。通常，它会隐式地变为整数，这会导致barf的实数赋值。因为您完全禁用了隐式类型，通过隐式无，初始高度没有类型

这就是编译器试图告诉您的。

您有两个问题

正如Gilles指出的，您现有的代码中有一个输入错误

第二个问题是您不理解FORTRAN隐式类型规则。除非另有声明，否则名称以I、J、K、L、M或N开头的变量都是隐式整数。除非另有声明，否则所有其他变量都是隐式实数

初始高度是隐式整数，除非您声明它为实，而您没有这样做。您声明初始高度为真，未声明初始高度。通常，它会隐式地变为整数，这会导致barf的实数赋值。因为您完全禁用了隐式类型，通过隐式无，初始高度没有类型

---

这就是编译器试图告诉您的。

这非常令人困惑。这真的只是一个打字错误。@VladimirF，你是对的，他的基本问题是打字错误。然而，为了解释编译器的错误信息，他必须理解FORTRAN隐式类型规则。这是非常令人困惑的。这真的只是一个打字错误。@VladimirF，你是对的，他的基本问题是打字错误。然而，为了解释编译器错误消息，他必须理解FORTRAN隐式类型规则。