program project1;
var d1,d2,x,min:real;
begin
assign(output,'1.out');
rewrite(output);
min:=10000;x:=3;
while x<15 do
begin
d1:=sqrt(9+(x-3)*(x-3));
d2:=sqrt(4+(15-x)*(15-x));
if (d1+d2) <min then min:=d1+d2;
x:=x+0.001;
writeln(d1,d2,x,min);
end;
writeln(min:10:2);
close(output);
end.

模拟题，看程序写结果
很疑惑，sqrt开根号 那么d2:=sqrt(4+(15-x)*(15-x)); 可以计算吗？
测试后输出writeln(d1,d2,x,min);
1.23693168768504E+001 2.00000000000000E+000 1.50009999999973E+001 1.30000000000000E+001 这是其中一条 最后的结果是
13.00
为什么是这样的，求解释。

看成点（0，x）到（3，3）与（2，15）的距离和的最小值