下列程序的運(yùn)行結(jié)果是()。
Program test
Implicit none
Integer::i
Integer::a(5)=(/ (i, i=1,5) /)
Integer::b(5)=0
Where (a<3)
b=a
End where
Write(*,”(5(i3,1x))”) b
end
下列程序的運(yùn)行結(jié)果是()。
Program test
Implicit none
Integer::sum,i
sum=0.0
do i=1,203,2
sum=sum+i
end do
write(*,*) i
end
下列程序的運(yùn)行結(jié)果為()。
Program main
Implicit none
Real :: a, b, m
A=2.0
B=76.0
If(a M=a
A=b
B=m
End if
Write(*,*) “a=”,a “b=”,b
end