5 函数子程序: ②主程序:④ function y(x) write (*, Asinput x if(xgt. 0.o)then le read(", "x y=1.0 wrte()y=’,y(x) else if(x.eg. 0.0)then end 0.0 else y=-1.0 end if end ④4 51子程序 2021/2/245 2021/2/24 function y(x) if(x.gt.0.0) then y=1.0 else if(x.eq.0.0) then y=0.0 else y=-1.0 end if end write(* , *)‘input x’ read(* , *)x write(* , *)‘y=’, y(x) end 函数子程序： 主程序： §1 子程序 ② ① ③ ④