讨论 / 【P358 线段】什么是无效浮点操作……
fts96 2012-08-24 07:20:00
点我顶贴 收藏 删除
式子是自己推的……MS是对的但是……

代码:

program rq358;

var

x1,y1,r1,x2,y2,r2:double;

procedure work;

var disc:double;

cosa,sina:double;

ans:double;

begin

readln(x1,y1,r1);

readln(x2,y2,r2);

disc:=sqrt(sqr(x1-x2)+sqr(y1-y2));

cosa:=(r1*r1+r2*r2-disc*disc)/(2*r1*r2);

sina:=sqrt(1-cosa*cosa);

ans:=sqrt(sqr(2*r1-2*r2*cosa)+sqr(2*r2*sina));

writeln(ans:0:6);

end;

begin

work;

end.

状态: Unaccepted

测评机: Xeost[5]

得分: 70分

提交日期: 2012-8-24 21:38:00

有效耗时: 1140毫秒

测试结果1: 运行错误|无效浮点操作

测试结果2: 通过本测试点|有效耗时172ms

测试结果3: 运行错误|无效浮点操作

测试结果4: 通过本测试点|有效耗时172ms

测试结果5: 通过本测试点|有效耗时156ms

测试结果6: 通过本测试点|有效耗时156ms

测试结果7: 通过本测试点|有效耗时156ms

测试结果8: 通过本测试点|有效耗时172ms

测试结果9: 通过本测试点|有效耗时156ms

测试结果10: 运行错误|无效浮点操作

#1 l94312@2012-08-24 07:20:00
回复 删除
估计是不是出现了0除0这种情况。。
查看更多回复
提交回复