2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;a:array[1..100000,1..2] of integer;c:boolean;function min(a,b:longint):longint;beginif a>b t

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 12:42:05
2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;a:array[1..100000,1..2] of integer;c:boolean;function min(a,b:longint):longint;beginif a>b t
xTn@`~$6&5kǘniEIFJQEV%!-M~]ݵ )jz>xg~!8nw, q]5sdEBQ|㨫HMVrBLؙٖǐ/E UNT h"$9TfzؒZj]s-uUb>? +i!N qZ|IV2a6 d{杸Q:Nc9 Y5WN' )3oZV[{qik1 Gsc|hhEgN_}!r4m//ZCSY p`M+,r4l

2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;a:array[1..100000,1..2] of integer;c:boolean;function min(a,b:longint):longint;beginif a>b t
2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）
var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;
a:array[1..100000,1..2] of integer;
c:boolean;
function min(a,b:longint):longint;
begin
if a>b then min:=b
else min:=a;
if min=b then c:=false;
end;
function max(a,b:longint):longint;
begin
if a>b then max:=a
else max:=b;
end;
function ju(a1,a2,b1,b2,c1,c2:integer):longint;
var q,p:longint;
begin
q:=(a1-b1)*(a1-b1)+(a2-b2)*(a2-b2);
p:=(a1-c1)*(a1-c1)+(a2-c2)*(a2-c2);
ju:=min(q,p);
end;
begin
read(x1,x2,y1,y2);//此处定义与题目不同,认真看
read(n);
for i:=1 to n do
begin
c:=true;
read(a[i,1],a[i,2]);
j:=ju(a[i,1],a[i,2],x1,x2,y1,y2);
if c then ans1:=max(ans1,j)
else ans2:=max(ans2,j);
end;
write(ans1+ans2);
end.

2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;a:array[1..100000,1..2] of integer;c:boolean;function min(a,b:longint):longint;beginif a>b t
看的不是太懂.一楼很好笑啊,自己找数据￥

自己找测试数据测啊

2010niop普及组复赛导弹拦截 请高手帮我检测我这道题是否正确（程序有没错,时间有没超）var x1,x2,y1,y2,i,j,ans1,ans2,n:longint;a:array[1..100000,1..2] of integer;c:boolean;function min(a,b:longint):longint;beginif a>b t 2010年noip复赛第三题导弹拦截答案（Pascal语言）请给我思路和标准程序（标程可以省略,但思路情讲清晰, noip2010普及组复赛 程序+导弹拦截问题 求noip2011普及组复赛试题 noip2012复赛试题（普及组） 谁知道复赛NOIP2010普及组的题目? NOIP2010普及组复赛答案紧急啊 noip2008复赛题目求noip2008普及组复赛解题报告 2008noip普及组复赛题谁有2008年NOIP普及组复赛试题? noip2011普及组复赛浙江所有人的成绩 noip2011普及组复赛成绩什么时候出啊 2008noip普及组复赛解题报告第四题(pascal) noip2012复赛（普及组）第三题的数据范围? 求2008年NOIP普及组复赛试题 谁有noip2010 普及组 复赛 可以发我邮箱. noip2010普及组NOIP2010普及组东莞市要多少分才可以进复赛?复赛一等奖大概要多少分? NOIP2008普及组复赛第4题标程大神们帮帮忙求NOIP2008普及组复赛第4题标程