(来学网)有程序：INTEGER F
F(X，Y)=X／Y+X
A=-2．0
B=4．0
B=B+F(A，B)
WRITE(*，20)B
20 FORMAT(1X，F4．1)
END
此程序的运行结果是：