作业帮NOIP普及组第三题结果很奇怪这是我的程序program missile;varx:array[1..10000]of integer;y:array[1..10000]of integer;a,b,i,n,x1,y1,x2,y2:integer;m1,m2,mincost:real;beginread(x1,y1,x2,y2);read(n);for i:=1 to n dobeginread(x[i],y[i]);end;m
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/30 19:14:32
![NOIP普及组第三题结果很奇怪这是我的程序program missile;varx:array[1..10000]of integer;y:array[1..10000]of integer;a,b,i,n,x1,y1,x2,y2:integer;m1,m2,mincost:real;beginread(x1,y1,x2,y2);read(n);for i:=1 to n dobeginread(x[i],y[i]);end;m](/uploads/image/z/13919789-29-9.jpg?t=NOIP%E6%99%AE%E5%8F%8A%E7%BB%84%E7%AC%AC%E4%B8%89%E9%A2%98%E7%BB%93%E6%9E%9C%E5%BE%88%E5%A5%87%E6%80%AA%E8%BF%99%E6%98%AF%E6%88%91%E7%9A%84%E7%A8%8B%E5%BA%8Fprogram+missile%3Bvarx%3Aarray%5B1..10000%5Dof+integer%3By%3Aarray%5B1..10000%5Dof+integer%3Ba%2Cb%2Ci%2Cn%2Cx1%2Cy1%2Cx2%2Cy2%3Ainteger%3Bm1%2Cm2%2Cmincost%3Areal%3Bbeginread%28x1%2Cy1%2Cx2%2Cy2%29%3Bread%28n%29%3Bfor+i%3A%3D1+to+n+dobeginread%28x%5Bi%5D%2Cy%5Bi%5D%29%3Bend%3Bm)
NOIP普及组第三题结果很奇怪这是我的程序program missile;varx:array[1..10000]of integer;y:array[1..10000]of integer;a,b,i,n,x1,y1,x2,y2:integer;m1,m2,mincost:real;beginread(x1,y1,x2,y2);read(n);for i:=1 to n dobeginread(x[i],y[i]);end;m
NOIP普及组第三题结果很奇怪
这是我的程序
program missile;
var
x:array[1..10000]of integer;
y:array[1..10000]of integer;
a,b,i,n,x1,y1,x2,y2:integer;
m1,m2,mincost:real;
begin
read(x1,y1,x2,y2);
read(n);
for i:=1 to n do
begin
read(x[i],y[i]);
end;
m1:=0;m2:=0;
for a:=1 to n do
begin
if (x[a]>x1) and(x1>x2) and ((sqrt(sqr(x[a]-x1)+sqr(y[a]-y1)))>m1)
then
m1:=sqrt(sqr(x[a]-x1)+sqr(y[a]-y1));
if (x[a]x2) and ((sqrt(sqr(x[a]-x2)+sqr(y[a]-y2)))>m2)
then
m2:=sqrt(sqr(x[a]-x1)+sqr(y[a]-y2));
if (x[a]>x2) and(x1m1)
then
m1:=sqrt(sqr(x[a]-x2)+sqr(y[a]-y2));
if (x[a]x2) and ((sqrt(sqr(x[b]-x1)+sqr(y[b]-y1)))>m1) and ((sqrt(sqr(x[b]-x2)+sqr(y[b]-y2)))>m2)
then
m1:=sqrt(sqr(x[b]-x1)+sqr(y[b]-y1));
m2:=sqrt(sqr(x[b]-x2)+sqr(y[b]-y2));
if ((x1m1) and ((sqrt(sqr(x[b]-x1)+sqr(y[b]-y1)))>m2))
then
m1:=sqrt(sqr(x[b]-x2)+sqr(y[b]-y2));
m2:=sqrt(sqr(x[b]-x1)+sqr(y[b]-y1));
end;
mincost:=(sqr(m1)+sqr(m2));
writeln(mincost);
end.为什么输出的是 1.0000000e+001?
NOIP普及组第三题结果很奇怪这是我的程序program missile;varx:array[1..10000]of integer;y:array[1..10000]of integer;a,b,i,n,x1,y1,x2,y2:integer;m1,m2,mincost:real;beginread(x1,y1,x2,y2);read(n);for i:=1 to n dobeginread(x[i],y[i]);end;m
因为你定义的mincost是real类型- -