如何解决Fortran中实型变量与字符拼接输出的报错问题？

原代码存在两个关键问题：

• 计算E的语句在读取t之前，此时t未初始化，计算结果无意义
• Fortran不支持用+运算符拼接字符常量和实型变量，必须通过格式化输出语句实现混合输出

以下是修正后的代码：

program WaterPressure
implicit none

real :: E, t
real, parameter :: E0 = 6.11

! 先提示输入并读取t的值
write(*,*) '请输入t的值:'
read(*,*) t 

! 基于输入的t计算E
E = E0 * 10**(7.5 * t/(237.3 + t))

! 方式1：指定格式化输出，精确控制格式
print '(A, F6.2, A, F8.4)', 'When t=', t, ', E=', E

! 方式2：自动格式输出，适合快速调试（编译器自动适配格式）
! print *, 'When t=', t, ', E=', E

end

关键修改说明 #

1. 调整执行顺序：将读取t的操作移到计算E之前，确保t有有效值参与计算，避免未初始化变量导致的错误结果。
2. 格式化输出：
   • 方式1的格式字符串'(A, F6.2, A, F8.4)'中：
     • A：用于输出字符串常量
     • F6.2：表示输出实型变量t，总宽度6位，保留2位小数
     • F8.4：表示输出实型变量E，总宽度8位，保留4位小数
       可根据需求调整宽度和小数位数，比如用G0.4格式符自动适配宽度，去掉多余空格：'(A, G0.4, A, G0.4)'
   • 方式2直接用print *, ...，编译器会自动选择合适的格式输出变量，写法更简洁，适合调试场景。

内容的提问来源于stack exchange，提问作者王云湖不归