一段源程序,大家解释解释
program main
intrinsic sin, cos
integer y
write(*,*)'y='
read*,y
x=3.14159/y
y1=triangle(sin,cos,x)
y2=triangle(cos,sin,x)
print *,'x=',x
write(*,100)'tan(',x*180/3.14159,')=',y1
write(*,100)'ctn(',x*180/3.14159,')=',y2
100 format(6x,a,f6.2,a,e13.6)
pause
end
function triangle(f1,f2,x)
triangle=f1(x)/f2(x)
end
intrinsic sin, cos
integer y
write(*,*)'y='
read*,y
x=3.14159/y
y1=triangle(sin,cos,x)
y2=triangle(cos,sin,x)
print *,'x=',x
write(*,100)'tan(',x*180/3.14159,')=',y1
write(*,100)'ctn(',x*180/3.14159,')=',y2
100 format(6x,a,f6.2,a,e13.6)
pause
end
function triangle(f1,f2,x)
triangle=f1(x)/f2(x)
end