讨论 - 发个PASCAL的

讨论 / 发个PASCAL的

lemontree712 2013-11-05 05:36:32

点我顶贴收藏删除

var a,b,c,d,x:real;

begin

read(a,b,c,d);

x:=-(sqrt(b)*c+sqrt(d)*a)/(sqrt(b)+sqrt(d));

writeln(sqrt((x+a)*(x+a)+b)+sqrt((x+c)*(x+c)+d):0:3);

end.

查看更多回复

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0029	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.