诡异的编译失败…请大牛帮忙

编译失败...|错误号:1

Prog90702.pas(1,5) Fatal: Syntax error, "identifier" expected but "ordinal const" found Fatal: Compilation aborted 

帮忙看下偶的程序,在自己的机子上跑得都好好的

Type        Hashtype=Array[0..99991]Of Longint;        Ptype=Array[0..10000]Of String;Var        C:Array[1..6,1..2]Of String;        Hash1,Hash2:Hashtype;        P1,P2:Ptype;        Dis1,Dis2:Array[0..10000]Of Longint;        N:Longint;        A,B:String;Procedure Init;Var        I:Longint;        T:String;Begin        Readln(T);        A:=Copy(T,1,Pos(' ',T)-1);        B:=Copy(T,Pos(' ',T)+1,Length(T)-Pos(' ',T));        While Not Eof Do                Begin                        Readln(T);                        Inc(N);                        C[N,1]:=Copy(T,1,Pos(' ',T)-1);                        C[N,2]:=Copy(T,Pos(' ',T)+1,Length(T)-Pos(' ',T));                End;End;Procedure Print(Ans:Longint);Begin        Writeln(Ans);        Halt;End;Function ElfHash(S:String):Longint;Var        H,G,I:Longint;Begin        H:=0;        For I:=1 To Length(S) Do                Begin                        H:=H Shl 4 + Ord(S);                        G:=H And $f0000000;                        If G0 Then H:=H Xor (G Shr 24);                        H:=H And (Not G);                End;        H:=H Mod 99991;        Exit(H);End;Function New_Hash(S:String;Var Hash:Hashtype):Longint;Var        H:Longint;Begin        H:=ElfHash(S);        While Hash[H]0 Do Inc(H);        Exit(H);End;Function Find_Hash(S:String;Var Hash:Hashtype;Var P:Ptype):Longint;Var        H:Longint;Begin        H:=ElfHash(S);        While (Hash[H]0) And (P[Hash[H]]S) Do Inc(H);        If Hash[H]=0 Then Exit(0);        Exit(H);End;Procedure Get(Var A,P,Q,B:String;Var Flag:Longint);//Here can be betterVar        Po:Longint;Begin        Po:=Pos(P,A);        If Po=0 Then                Begin Flag:=0;Exit;End;        Flag:=1;        B:=A;        Delete(B,Po,Length(P));        Insert(Q,B,Po);End;Procedure Main;Var        I,T,Head1,Tail1,Head2,Tail2:Longint;        Next1,Next2:String;Begin        Fillchar(Hash1,Sizeof(Hash1),0);        Fillchar(Hash2,Sizeof(Hash2),0);        Fillchar(Dis1,Sizeof(Dis1),0);        Fillchar(Dis2,Sizeof(Dis2),0);        For I:=1 To 10000 Do                Begin                        P1:='';                        P2:='';                End;        Head1:=1;Tail1:=1;        Head2:=1;Tail2:=1;        P1[1]:=A;P2[1]:=B;        Hash1[New_Hash(A,Hash1)]:=1;Hash2[New_Hash(B,Hash2)]:=1;        While Dis1[Head1]+Dis2[Head2]

2 条评论

  • @ 2009-10-12 23:15:26

    果然……

    换了IE就……60分了……

  • @ 2009-10-12 23:12:19

    偶刚刚看了这帖,才发现问题……

    估计是chrome的问题…

  • 1

信息

ID
1124
难度
7
分类
搜索 | 搜索与剪枝 点击显示
标签
递交数
3887
已通过
785
通过率
20%
被复制
14
上传者