USACO 1.2-Name That Number

題目

依次讀入字典文件中的名字然後判斷是否可行，

首先是名字的長度，然後依次判斷各位是否合法，不合法直接跳過，合法則輸出。

如果total爲0則輸出NONE。

代碼如下：

{ ID:asdcyt01 PROB:namenum LANG:PASCAL } program namenum(input,output); var n,i,total:longint; data:text; ch:array[1..12]of integer; str:string; flag:boolean; c:char; begin assign(input,'namenum.in');reset(input); assign(output,'namenum.out');rewrite(output); assign(data,'dict.txt');reset(data); n:=0; total:=0; while not eoln do begin inc(n); read(c); ch[n]:=ord(c)-ord('0'); end; while not eof(data) do begin readln(data,str); if length(str)<>n then continue; flag:=false; for i:=1 to n do case ch[i] of 2:if (str[i]<>'A')and(str[i]<>'B')and(str[i]<>'C')then begin flag:=true;break;end; 3:if (str[i]<>'D')and(str[i]<>'E')and(str[i]<>'F')then begin flag:=true;break;end; 4:if (str[i]<>'G')and(str[i]<>'H')and(str[i]<>'I')then begin flag:=true;break;end; 5:if (str[i]<>'J')and(str[i]<>'K')and(str[i]<>'L')then begin flag:=true;break;end; 6:if (str[i]<>'M')and(str[i]<>'N')and(str[i]<>'O')then begin flag:=true;break;end; 7:if (str[i]<>'P')and(str[i]<>'R')and(str[i]<>'S')then begin flag:=true;break;end; 8:if (str[i]<>'T')and(str[i]<>'U')and(str[i]<>'V')then begin flag:=true;break;end; 9:if (str[i]<>'W')and(str[i]<>'X')and(str[i]<>'Y')then begin flag:=true;break;end; end; if flag then continue; writeln(str); inc(total); end; if total=0 then writeln('NONE'); close(input);close(output); end .