一个公式写成Fortran语言代码
发布网友
发布时间：2022-05-29 23:37
共1个回答
热心网友
时间：2024-09-16 06:03
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
