主题:求大家帮忙啦!!!快快,谢谢
program test2
implicit none
real::k1,k2,k3,w
real::a1,a2
real::n,m,c
real::i,j
c=1000
n=800
m=800
do 10 i=0,n
a2=i/10
do 20 j=0,m
a1=j/10
k1=sqrt(2.0)*a1*(1-a1)/(2a1-1)
k2=2**0.5*(1-a1)/2
k3=3*sqrt(2.0)*a1**2/(4-6a1)
if(a2.ge.k1)then
if(a2.ge.k2)then
if(a2.ge.k3)then
w=2*2**0.5*a1+a2
c=min(c,w)
endif
endif
endif
20 continue
10 continue
print*,w
endprogram test2
这个程序不能运行,不知道哪有问题,希望大家给看看,谢谢!
implicit none
real::k1,k2,k3,w
real::a1,a2
real::n,m,c
real::i,j
c=1000
n=800
m=800
do 10 i=0,n
a2=i/10
do 20 j=0,m
a1=j/10
k1=sqrt(2.0)*a1*(1-a1)/(2a1-1)
k2=2**0.5*(1-a1)/2
k3=3*sqrt(2.0)*a1**2/(4-6a1)
if(a2.ge.k1)then
if(a2.ge.k2)then
if(a2.ge.k3)then
w=2*2**0.5*a1+a2
c=min(c,w)
endif
endif
endif
20 continue
10 continue
print*,w
endprogram test2
这个程序不能运行,不知道哪有问题,希望大家给看看,谢谢!