您所在位置：主题：奇怪的程序错误，能让你癫狂。恳请解疑。
jyz8125226
[专家分：50] 发布于 2009-11-07 22:50:00
有这么一个“很简单”的题。
打印 sin x ,cos x,tan x。其中x为0°,10°,20°,30°,....,180°.
这里附上程序。
程序：
Var
i: Byte;
n: Real;
Begin
For i:=0 To 18 Do
Begin
n:=i*10*pi/180;
WriteLn(Sin(n):0:5,Cos(n):14:5,Sin(n)/Cos(n):14:5)
End
End.
一切都似乎很完美.....
但是，运行过后......suprise———在90°的时候，tan出了大问题了。
具体如何，大家运行过后便知。
如果结果是不对的，那么，求正确解。
如果这个结果是对的，那么，为什么对了？
打印 sin x ,cos x,tan x。其中x为0°,10°,20°,30°,....,180°.
这里附上程序。
程序：
Var
i: Byte;
n: Real;
Begin
For i:=0 To 18 Do
Begin
n:=i*10*pi/180;
WriteLn(Sin(n):0:5,Cos(n):14:5,Sin(n)/Cos(n):14:5)
End
End.
一切都似乎很完美.....
但是，运行过后......suprise———在90°的时候，tan出了大问题了。
具体如何，大家运行过后便知。
如果结果是不对的，那么，求正确解。
如果这个结果是对的，那么，为什么对了？
