求助IF循环语句

916115735 · 发表于 2021-4-10 11:09:38

在程序中的IF语句，得到的Cv只是最后的1.362E9，初始温度为30℃，为什么不进行循环

[Fortran] 纯文本查看 复制代码

Cv  材料比热容（mJ/（t*K)）
      IF (TEMP .LT. 410.0)THEN
          Cv=(0.8228+0.0028*(TEMP-273))*1E9
      ELSE IF (TEMP .LE. 550.0)THEN
          Cv=(1.078+0.001*(TEMP-273))*1E9
      ELSE
          Cv=1.362E9
      END IF

vvt · 发表于 2021-4-10 13:05:27

因为 If 是判断语句，并不是循环语句。

916115735 · 发表于 2021-4-12 09:25:00

vvt 发表于 2021-4-10 13:05
因为 If 是判断语句，并不是循环语句。

是我表达错了我的意思是这段程序中IF的判断结果都是1.362E9并不会根据当前温度选择其他的比热容

vvt · 发表于 2021-4-12 17:44:18

下断点调试一下就知道了。

vvt · 发表于 2021-4-12 17:53:36

我试了一下简单的代码。

[Fortran] 纯文本查看 复制代码

Program Main
  real :: temp = 30 , cv
   IF (TEMP .LT. 410.0)THEN
          Cv=(0.8228+0.0028*(TEMP-273))*1E9
      ELSE IF (TEMP .LE. 550.0)THEN
          Cv=(1.078+0.001*(TEMP-273))*1E9
      ELSE
          Cv=1.362E9
      END IF
write(*,*) cv      
End Program Main

执行的是第一个分支，结果是 1.4240003E+08

并没有出现你说的，结果是 1.362E9

[流程控制] 求助IF循环语句

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章