Question

一个公式写成Fortran语言代码

求助各位专家，以上这个公式（自变量只有x），如何用Fortran语言写成代码？

Answer 1

program baidu
integer::I,J,N
real*8::Cr,T
real*8,dimension(:),allocatable ::P,X

N=3 !变量X的个数
Cr=5.0d0 !常量Cr，自己设定
T=4.0d0 !常量T，自己设定
allocate(P(N),X(N))
! =======读入变量X的值
do I=1,N
write(*,*)"请输入第 ",I," 个变量的值："
read(*,*)X(I)
enddo
! =======读入变量X的值
do I=1,N
P(I)=(-4.2d0/Cr**2*X(I)+2.9/Cr)*T
write(*,*)“第 ”,I," 个变量X对应结果：",P(I)
enddo

end