国产www,少妇把腿扒开让我爽爽视频,亚洲AV人无码综合在线观看

填空題 下列程序的運(yùn)行結(jié)果是（）。
Program main
implicit none
integer, target :: a=1
integer, pointer :: p
p=>a
p=3
write(*,*)a
end

參考答案： 3

您可能感興趣的試卷

你可能感興趣的試題

1.填空題 下列程序的運(yùn)行結(jié)果是（）。
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

參考答案：2,3

2.填空題 下列程序的運(yùn)行結(jié)果是（）。
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

參考答案：30

3.填空題 下列程序的運(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

參考答案：12000

4.填空題 下列程序的運(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

參考答案：10302

5.填空題 下列程序的運(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

參考答案：76.0,2.0