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: 运行错误|无效浮点操作