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/05/30 17:23:25
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
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题标程