【USACO】name that number

{
ID: anniel11
PROG: namenum
LANG: PASCAL
}
Program namenum;
var
  i,n,l:integer;
  s,s2:string;
  dicl:array[1..12] of integer;
  dic:array[1..12,1..2000] of integer;
function transs(c:char):string;
var
  trans:integer;
begin
  case c of
  'A','B','C':trans:=2;
  'J','K','L':trans:=5;
  'T','U','V':trans:=8;
  'D','E','F':trans:=3;
  'M','N','O':trans:=6;
  'W','X','Y':trans:=9;
  'G','H','I':trans:=4;
  'P','R','S':trans:=7;
  end;

  str(trans,transs);
end;
begin
  assign(input,'dict.txt');
  while not eof do
  begin
    readln(s);
    inc(dicl[length(s)]);
    t1:=0;
    s2:='';
    for i:=1 to length(s) do s2:=s2+transs(s[i]);
    val(s2,dic[length(s),dicl[length(s)]]);
  end;
  close(input);
  assign(input,'namenum.in');
  assign(output,'namebum.out');
  reset(input);rewrite(output);

  readln(n);
  str(n,s);
  l:=length(s);

  close(input);close(output);

end.

 

转载于:https://www.cnblogs.com/OmegaIota/p/3966752.html