Question

Pascal题目：1014精挑细选 答案

精 挑 细 选

Time Limit:1000MS Memory Limit:65536K
Total Submit:422 Accepted:196

Description

小王是公司的仓库管理员，一天，他接到了这样一个任务：从仓库中找出一根钢管。这听起来不算什么，但是这根钢管的要求可真是让他犯难了，要求如下：
1、 这根钢管一定要是仓库中最长的；
2、 这根钢管一定要是最长的钢管中最细的；
3、 这根钢管一定要是符合前两条的钢管中编码最大的（每根钢管都有一个互不相同的编码，越大表示生产日期越近）。
相关的资料到是有，可是，手工从几百份钢管材料中选出符合要求的那根……
要不，还是请你编写个程序来帮他解决这个问题吧。

Input

第一行为一个整数 n （1 <= n <= 1000 ），表示仓库中所有钢管的数量。
之后 行，每行三个整数，分别表示一根钢管的长度（以毫米为单位）、直径（以毫米为单位）和编码（一个9位整数）。

Output

文件中只有一个9位整数，表示选出的那根钢管的编码。

Sample Input

4
3000 50 872198442
3000 45 752498124
2000 60 765128742
3000 45 652278122

Sample Output

752498124

Source

2008年北京市小学生邀请赛（3）

Answer 1

var
a:array[1..1000,1..2] of longint;
b:array[1..1000] of 100000000..999999999;
c:set of 100000000..999999999;
t:boolean;
answer:100000000..999999999;
n,x,y:1..1000;
max,min:longint;
begin
readln(n);
for x:=1 to n do
readln(a[x,1],a[x,2],b[x]);
max:=a[1,1];
min:=a[1,2];
c:=a[1,3];
for x:=2 to n do
begin
if max<a[x,1] then
begin
c:=[a[x,3]];
max:=a[x,1];
min:=a[x,2];
end;
if max=a[x,1] then
begin
if min>a[x,2] then
begin
c:=[a[x,3]];
min:=a[x,2];
end;
if min=a[x,2] then
c:=c+[a[x,3]];
end;
end;
t:=true;
for answer:=1000000000..999999999 do
if t then
if answer in c then
begin
write(answer);
t:=false;
end;
end.

Answer 2

var
a:array[0..100,1..3] of longint;
n:longint;
procedure init;
var
i:Longint;
begin
readln(n);
for i:=1 to n do
readln(a[i,1],a[i,2],a[i,3]);
end;
procedure print;
begin
writeln(a[1,3]);
end;
procedure sort;
var
i,j:longint;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[j,1]>a[i,1]) or ((a[j,1]=a[i,1]) and (a[j,2]<a[i,2]))
or ((a[j,1]=a[i,1]) and (a[j,2]=a[i,2]) and (a[j,3]>a[i,3]))
then
begin a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0]; end;
end;
begin
init;
sort;
print;
end.