NOIP普及组第三题结果很奇怪

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/26 00:36:17

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?

因为你定义的mincost是real类型- -

2008noip普及组复赛题 NOIP 2009 普及组初赛阅读程序题 2008noip普及组复赛解题报告求2008年NOIP普及组复赛试题求试题,17届NOIP（C语言）普及组初赛试题谁有第十届,第十一届,第十二届NOIP竞赛普及组C语言选择题答案? 2010NOIP提高初赛问题求解第三题求证明! 2010年noip复赛第三题导弹拦截答案（Pascal语言）我想问一下,noip普及组复赛常考的题型大概有哪几类?还有如果考动态规划,大概是什么难度?还有复赛可以带U盘吗? Noip提高组pascal题目 NOIP2007的普及组题和答案第14题求解,怎么都觉得数字算出来很奇怪.还有第15题的第三小题.