FORTRAN求均布荷载Q和跨中集中力Fp作用下跨多为L的简支梁,最大弯矩和最大挠度?情帮忙看一下我错在哪了INTEGERQ,L,F,EI,M,WREAD*,Q,F,L,EIFUNCTIONM1(Q,L)M1=(1/8)*Q*L**2ENDFUNCTIONW1(Q,L,EI)W1=(5*Q*L**4)/(384*EI)ENDF

Question

FORTRAN求均布荷载Q和跨中集中力Fp作用下跨多为L的简支梁,最大弯矩和最大挠度?情帮忙看一下我错在哪了
INTEGER Q,L,F,EI,M,W
READ *,Q,F,L,EI
FUNCTION M1(Q,L)
M1=(1/8)*Q*L**2
END
FUNCTION W1(Q,L,EI)
W1=(5*Q*L**4)/(384*EI)
END
FUNCTION M2(Q,L)
M2=(1/4)*F*L
END
FUNCTION W2(Q,L,EI)
W2=(F8L**3)/(48*EI)
END
M=M1+M2
W=W1+W2
PRINT *,"最大弯矩值M=",M
PRINT *,"最大挠度值W=",W
PAUSE
END

Answer 1

这问题错大了,由此基本可以认为你没有系统学习过 Fortran 的任何语法.
建议你买一本教材先看看.
随便选几个错误：
第一：Function 不能写在主程序内部,程序单元必须独立.
也就是：
主程序
结束主程序
函数 1
结束函数1
函数2
结束函数2
这样的结构.不能把函数写在其他函数的 “肚子” 里.
第二：M1,W1,M2,W2 这 4 个函数.函数倒是给出了各自的虚参.但是调用时,没有给出任何对应的实参.
你确定你的程序需要使用 function