填空题
下列程序的运行结果是（）。
Program main
implicit none
integer, target :: a=1
integer, pointer :: p
p=>a
p=3
write(*,*)a
end
【参考答案】
3
点击查看答案
相关考题
-
填空题
下列程序的运行结果是（）。 Program main implicit none integer ::a=1 integer ::b=2 call add ( a ) Call add ( b) Write(*,*) a , b Stop end Subroutine add (sum) Implicit none integer :: sum sum=sum+1 Return end -
填空题
下列程序的运行结果是（）。 Program test Implicit none Integer,parameter:: limit=10 Integer counter Integer:: ans=0 Counter=2 do while(counter<=limit) ans=ans+counter counter=counter+2 end do Wrte(*,*)ans end -
填空题
下列程序的运行结果是（）。 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
