program missile; var i,j,n,a1,b1,a2,b2,x,y,k1,k2:longint; f1,f2:array[1..2] of longint; begin assign(input,'missile.in');assign(output,'missile.out');reset(input);rewrite(output); readln(a1,b1,a2,b2); readln(n); for i:= 1 to n do begin read(x,y); k1:= (x-a1)*(x-a1)+(y-b1)*(y-b1); k2:= (x-a2)*(x-a2)+(y-b2)*(y-b2); //k1,k2是距离平方 if k1 > f1[1] then f1[1]:=k1; //第一种情况 只启动第一个 if k1 > f1[2] then //第二种情况 两个都启动 if k2 > f2[2] then //k1,k2都大于当前最小距离才比较 if f1[2]+k2 >f2[2]+k1 //最小距离平方和哪一个小就是哪一个 then f1[2]:=k1 else f2[2]:=k2; if k2 >f2[1] then f2[1]:=k2; //第三种情况 只启动第二个 end; if f1[1]>f2[1] then //三种情况比大小 if f2[1]>f1[2]+f2[2] then writeln(f1[2]+f2[2]) else writeln(f2[1]) else if f1[1]>f1[2]+f2[2] then writeln(f1[2]+f2[2]) else writeln(f1[1]); close(input);close(output); end.只过7个，哪里有错？
1．奖学金
(scholar.pas／c／cpp)
【问题描述】
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学排在前面，这样，每个学生的排序是唯一确定的。
任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数：学号、总分)是：
7 279
5 279
这两行数据的含义是：总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279(总分等于输入的语文、数学、英语三科成绩之和)，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是：
5 279
7 279
则按输出错误处理，不能得分。
【输入】
输入文件scholar.in包含行n 1行：
第l行为一个正整数n，表示该校参加评选的学生人数。
第2到年n l行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1～n(恰好是输入数据的行号减1)。
所给的数据都是正确的，不必检验。
【输出】
输出文件scholar.out共有5行，每行是两个用空格隔开的正整数，依次表示前5名学生的学号和总分。
【输入输出样例l】
scholar.in scholar.out
6
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98 6 265
4 264
3 258
2 244
1 237
【输入输出样例2】
scholar.in scholar.out
8
80 89 89
88 98 78
90 67 80
87 66 91
78 89 91
88 99 77
67 89 64
78 89 98 8 265
2 264
6 264
1 258
5 258
【限制】
50％的数据满足：各学生的总成绩各不相同
100％的数据满足：6
