program yuanweizhi (input,output);
var
D1,E1,F1:integer;
D2,E2,F2:integer;
d,r1,r2:real;
a1,b1,a2,b2:real;
P,Q:real;
begin
writeln('please enter D1,E1,F1,D2,E2,F2');
readln(D1,E1,F1,D2,E2,F2);
a1:=-D1/2;
b1:=-E1/2;
a2:=-D2/2;
b2:=-E2/2;
r1:=-(D1*D1+E1*E1-4*F1)/4;
r2:=-(D2*D2+E2*E2-4*F2)/4;
d:=sqrt(sqr(a2-a1)+sqr(b2-b1));
P:=r1+r2;
Q:=abs(r1-r2);
if d>P
then writeln('xiangli')
else begin
if d=P
then writeln('waiqie')
else begin
if d>Q
then writeln('xiangjiao')
else begin
if d=Q
then writeln('neiqie')
else writeln('neihan')
end
end
end;
end.
这个程序要求圆与圆的位置关系（解析几何）
但输入-2 0 -3 -4 2 3 后显示xiangli，而应是相交？？？

初三党路过，只能说心有余而力不足。
@沈尧frank ，抽空帮忙看看？

输入数据是轨迹方程还是三点定圆。。

虽说不明觉厉，但我觉得if那边3个begin和end是无用的。。。

应该加一个for循环类根号 不然数据类型不科学阿