USACO 1.2 Name That Number(namenum) 程序
描述
在威斯康辛州奶牛牧场经营者之中，都习惯于请会计部门用连续数字给母牛打上烙印。但是,母牛在称呼同伴时并没感到这个系统的便利,它们更喜欢用它们喜欢的名字来呼叫它们的同伴，而不是用像这个的语句"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位数字。 格式
PROGRAM NAME: namenum
INPUT FORMAT:
(file namenum.in)
单独的一行包含一个编号(长度可能从1到12)。
OUTPUT FORMAT:
(file namenum.out)
以字典顺序输出一个有效名字的不负列表，一行一个名字。
SAMPLE INPUT
4734
SAMPLE OUTPUT
GREG
我的程序
{
ID:ceeji
PROB:namenum
LANG:PASCAL
}
Program namenum;
Const
fin='namenum.in';
fou='namenum.out';
Var
dict:array[0..5000]of string;
s,ss:string;
f:text;
b:boolean;
i,j,l:longint;
Function isOK(p,c:char):boolean;
begin
if (c='Q')or(c='Z') then exit(false);
if (p='2')and(c>='A')and(c<='C') then exit(true);
if (p='3')and(c>='D')and(c<='F') then exit(true);
if (p='4')and(c>='G')and(c<='I') then exit(true);
if (p='5')and(c>='J')and(c<='L') then exit(true);
if (p='6')and(c>='M')and(c<='O') then exit(true);
if (p='7')and(c>='P')and(c<='S') then exit(true);
if (p='8')and(c>='T')and(c<='V') then exit(true);
if (p='9')and(c>='W')and(c<='Y') then exit(true);
exit(false);
end;
begin
assign(input,fin); reset(input);
assign(f,'dict.txt'); reset(f);
assign(output,fou); rewrite(output);
readln(s);
l:=length(s);
j:=0;
close(input);
while eof(f)=false do
begin
readln(f,ss);
if length(ss)<>l then continue;
b:=false;
for i:=1 to l do
begin
if isOK(s[i],ss[i])=false then begin b:=true; break; end;
end;
if b=false then begin inc(j); writeln(ss); end;
end;
close(f);
if j=0 then writeln('NONE');
close(output);
end.
题外话：我帮你整理了包括 AI 写作、绘画、视频（自媒体制作）零门槛 AI 课程 + 国内可直接顺畅使用的软件。想让自己快速用上 AI 工具来降本增效，辅助工作和生活？限时报名。
© 转载需附带本文链接，依据 CC BY-NC-SA 4.0 发布。