Program PKU1002;

Var
  A:Array [-1..9999999] of Word;
  Help:Word;
  n,I,J,save:Longint;

Function Change(S:String):Longint;
var
  ii:integer;
  F:Boolean;
begin
  Change:=0;
  F:=False;
  save:=-1;
  {For ii:=1 to Length(S) do
    if S[i] in 

['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','R','S','T','U','V',

'W','X','Y'] THEN
    F:=True;}
//If F then
//begin
  If Change<=999999 then
  For ii:=1 to Length(S) do
  begin
    Case S[ii] of
    '0':            Change:=Change*10;
    '1':            Change:=Change*10+1;
    '2','A','B','C':Change:=Change*10+2;
    '3','D','E','F':Change:=Change*10+3;
    '4','G','H','I':Change:=Change*10+4;
    '5','J','K','L':Change:=Change*10+5;
    '6','M','N','O':Change:=Change*10+6;
    '7','P','R','S':Change:=Change*10+7;
    '8','T','U','V':Change:=Change*10+8;
    '9','W','X','Y':Change:=Change*10+9;
    end;
  end;
//end
//else 
  if Change=0 then
    for ii:=1 to Length(S) do
      if S[ii]='0' then break
      else Change:=-1;
end;

procedure Init;
Var
  S:string;
  Result:Longint;
begin
  FillChar(A,SizeOf(A),0);
  Readln(n);
  For i:=1 to n do
  begin
    Readln(S);
    Result:=Change(S);
  If A[Result]<60000 then Inc(A[Result])
  else begin
    help:=59999;
    A[Result]:=2;
    save:=Result;
  end;
  end;
end;

procedure Main;
begin

end;

procedure Print;
var
  S:String;
  Find:Boolean;
begin
  Find:=False;
  For i:=0 to 9999999 do
  begin
  if A[i]>1 then
  begin
    Find:=True;
    Str(i,S);
    While Length(S)<7 do
      Insert('0',S,1);
    For j:=1 to 3 do write(S[J]);
    write('-');
    For j:=4 to 7 do write(S[J]);
    write(' ');
    if i=save then writeln(A[i]+help)
    else writeln(A[i]);
  end;
  end;
  if Not Find then Writeln('No duplicates.');
end;

begin
  Init;
  Main;
  Print;
end.

• 把程序写成这样。。。 (2146) isotope 2006-01-16 11:11:55
  • 样子看着不错了，至少比我见过某二牛的pascal容易看懂多了 (0) frkstyc 2006-01-16 11:14:48
    • 看了一个学期C++，果然比PASCAL牛多了。。。 (0) isotope 2006-01-16 11:32:23
      • 不过，C++的编译器挺汗的。。。 (0) isotope 2006-01-16 11:33:39