Операционные системы: Windows 10 Компилятор: Xstart
program sort a
implicit none
REAL :: InitialHeight, Height, InitialVelocity, Velocity, &
Acceleration = -9.80665, &
Time
InitialHeight = 100.0
Height = 0.5 * Acceleration * Time ** 2 &
+ InitialVelocity * Time + InitialHeight
Velocity = Acceleration * Time + InitialHeight
Velocity = Acceleration * Time * InitialVelocity
InitialVelocity = 90.0
Time = 4.5
print *, "At time", Time, "seconds"
print *, "the vertical velocity is", Velocity, "m/sec"
print *, and the height is", Height, "meters"
end program sort a
Когда я запускаю приведенный выше код, результат выглядит следующим образом. В момент времени 4.500000 секунд вертикальная скорость равна 0,000000 м / с, а высота равна 100,0000 метров
Что я могу сделать, чтобы получить желаемый результат?