您所在位置：主题：Name That Number
worm.
[专家分：180] 发布于 2008-10-16 23:05:00
Name That Number 命名那个数字
描述
在威斯康辛州奶牛牧场经营者之中，都习惯于请会计部门用连续数字给母牛打上烙印。但是,母牛在称呼同伴时并没感到这个系统的便利,它们更喜欢用它们喜欢的名字来呼叫它们的同伴，而不是用像这个的语句"C'mon, #4734, get along."。
请写一个程序来帮助可怜的牧牛工将一只母牛的烙印编号翻译成一个可能的名字。因为母牛们现在都有手机了，使用那标准的按键的排布来把收到从数目翻译成文字 除了"Q" 和 "Z"之外)
2: A,B,C 5: J,K,L 8: T,U,V
3: D,E,F 6: M,N,O 9: W,X,Y
4: G,H,I 7: P,R,S
可接受的名字都被放在这样一个叫作"dict.txt"(点击查看) 的文件中，它包含一连串的少于 5,000个可接受的牛名字。 (所有的名字都是大写的)收到母牛的编号返回那些能从编号翻译出来并且在字典中的名字（并且已经按照升序排列）。
举例来说,编号 4734 能产生的下列各项名字:
GPDG GPDH GPDI GPEG GPEH GPEI GPFG GPFH GPFI GRDG GRDH GRDI
GREG GREH GREI GRFG GRFH GRFI GSDG GSDH GSDI GSEG GSEH GSEI
GSFG GSFH GSFI HPDG HPDH HPDI HPEG HPEH HPEI HPFG HPFH HPFI
HRDG HRDH HRDI HREG HREH HREI HRFG HRFH HRFI HSDG HSDH HSDI
HSEG HSEH HSEI HSFG HSFH HSFI IPDG IPDH IPDI IPEG IPEH IPEI
IPFG IPFH IPFI IRDG IRDH IRDI IREG IREH IREI IRFG IRFH IRFI
ISDG ISDH ISDI ISEG ISEH ISEI ISFG ISFH ISFI
碰巧，81个中只有一个"GREG"是有效的(在字典中)。
写一个程序来对给出的编号打印出所有的有效名字，如果没有则输出NONE。编号可能有12位数字。
提示：题目中要求编号最多是12位，可以考虑用Int64来进行处理。
[编辑] 格式
PROGRAM NAME: namenum
INPUT FORMAT:
(file namenum.in)
单独的一行包含一个编号(长度可能从1到12)。
OUTPUT FORMAT:
(file namenum.out)
以字典顺序输出一个有效名字的不负列表，一行一个名字。
[编辑] SAMPLE INPUT
4734
[编辑] SAMPLE OUTPUT
GREG
我的程序是：
{
ID:mr-troj1
PROG:namenum
LANG:PASCAL
}
program namenum;
var
st :array[1..5000]of string;
a :array[1..5000]of int64;
n :int64;
w,q :integer;
y :boolean;
procedure fill;
var
i,j,k :longint;
h :array[1..12]of integer;
begin
for i:=1 to w do
begin
k:=length(st[i]);
for j:=1 to k do
case st[i][j] of
'A','B','C':h[j]:=2;
'D','E','F':h[j]:=3;
'G','H','I':h[j]:=4;
'J','K','L':h[j]:=5;
'M','N','O':h[j]:=6;
'P','R','S':h[j]:=7;
'Y','U','V':h[j]:=8
else h[j]:=9
end;
a[i]:=h[1];
for j:=2 to k do
a[i]:=a[i]*10+h[j];
end;
end;
begin
w:=0;
assign(input,'dict.txt');
reset(input);
while not(eof(input)) do
begin
w:=w+1;
readln(input,st[w]);
end;
close(input);
assign(input,'namenum.in');
reset(input);
read(n);
close(input);
fill;
y:=false;
for q:=1 to w do
if a[q]=n then
begin
y:=true;
break;
end;
assign(output,'namenum.out');
rewrite(output);
if y then
writeln(output,st[q])
else
writeln(output,'NONE');
close(output);
end.
前两组都过了
但是第三组： 5747867437 这个数据却没过
我的输出是 NONE
可能是越界
但是具体错在哪里却不知道
请大家帮一下忙
请不要告诉我你的程序 我想知道我错在哪里
描述
在威斯康辛州奶牛牧场经营者之中，都习惯于请会计部门用连续数字给母牛打上烙印。但是,母牛在称呼同伴时并没感到这个系统的便利,它们更喜欢用它们喜欢的名字来呼叫它们的同伴，而不是用像这个的语句"C'mon, #4734, get along."。
请写一个程序来帮助可怜的牧牛工将一只母牛的烙印编号翻译成一个可能的名字。因为母牛们现在都有手机了，使用那标准的按键的排布来把收到从数目翻译成文字 除了"Q" 和 "Z"之外)
2: A,B,C 5: J,K,L 8: T,U,V
3: D,E,F 6: M,N,O 9: W,X,Y
4: G,H,I 7: P,R,S
可接受的名字都被放在这样一个叫作"dict.txt"(点击查看) 的文件中，它包含一连串的少于 5,000个可接受的牛名字。 (所有的名字都是大写的)收到母牛的编号返回那些能从编号翻译出来并且在字典中的名字（并且已经按照升序排列）。
举例来说,编号 4734 能产生的下列各项名字:
GPDG GPDH GPDI GPEG GPEH GPEI GPFG GPFH GPFI GRDG GRDH GRDI
GREG GREH GREI GRFG GRFH GRFI GSDG GSDH GSDI GSEG GSEH GSEI
GSFG GSFH GSFI HPDG HPDH HPDI HPEG HPEH HPEI HPFG HPFH HPFI
HRDG HRDH HRDI HREG HREH HREI HRFG HRFH HRFI HSDG HSDH HSDI
HSEG HSEH HSEI HSFG HSFH HSFI IPDG IPDH IPDI IPEG IPEH IPEI
IPFG IPFH IPFI IRDG IRDH IRDI IREG IREH IREI IRFG IRFH IRFI
ISDG ISDH ISDI ISEG ISEH ISEI ISFG ISFH ISFI
碰巧，81个中只有一个"GREG"是有效的(在字典中)。
写一个程序来对给出的编号打印出所有的有效名字，如果没有则输出NONE。编号可能有12位数字。
提示：题目中要求编号最多是12位，可以考虑用Int64来进行处理。
[编辑] 格式
PROGRAM NAME: namenum
INPUT FORMAT:
(file namenum.in)
单独的一行包含一个编号(长度可能从1到12)。
OUTPUT FORMAT:
(file namenum.out)
以字典顺序输出一个有效名字的不负列表，一行一个名字。
[编辑] SAMPLE INPUT
4734
[编辑] SAMPLE OUTPUT
GREG
我的程序是：
{
ID:mr-troj1
PROG:namenum
LANG:PASCAL
}
program namenum;
var
st :array[1..5000]of string;
a :array[1..5000]of int64;
n :int64;
w,q :integer;
y :boolean;
procedure fill;
var
i,j,k :longint;
h :array[1..12]of integer;
begin
for i:=1 to w do
begin
k:=length(st[i]);
for j:=1 to k do
case st[i][j] of
'A','B','C':h[j]:=2;
'D','E','F':h[j]:=3;
'G','H','I':h[j]:=4;
'J','K','L':h[j]:=5;
'M','N','O':h[j]:=6;
'P','R','S':h[j]:=7;
'Y','U','V':h[j]:=8
else h[j]:=9
end;
a[i]:=h[1];
for j:=2 to k do
a[i]:=a[i]*10+h[j];
end;
end;
begin
w:=0;
assign(input,'dict.txt');
reset(input);
while not(eof(input)) do
begin
w:=w+1;
readln(input,st[w]);
end;
close(input);
assign(input,'namenum.in');
reset(input);
read(n);
close(input);
fill;
y:=false;
for q:=1 to w do
if a[q]=n then
begin
y:=true;
break;
end;
assign(output,'namenum.out');
rewrite(output);
if y then
writeln(output,st[q])
else
writeln(output,'NONE');
close(output);
end.
前两组都过了
但是第三组： 5747867437 这个数据却没过
我的输出是 NONE
可能是越界
但是具体错在哪里却不知道
请大家帮一下忙
请不要告诉我你的程序 我想知道我错在哪里