0_0_8474923_23259\Main.java:1: 需要为 class、interface 或 enum
Program hdu2222;
^
0_0_8474923_23259\Main.java:3: 需要为 class、interface 或 enum
Const
^
0_0_8474923_23259\Main.java:4: 空字符字面值
infile = '';
^
0_0_8474923_23259\Main.java:4: 未结束的字符字面值
infile = '';
^
0_0_8474923_23259\Main.java:5: 空字符字面值
outfile = '';
^
0_0_8474923_23259\Main.java:5: 未结束的字符字面值
outfile = '';
^
0_0_8474923_23259\Main.java:9: 需要为 class、interface 或 enum
obj1 = Record
^
0_0_8474923_23259\Main.java:11: 需要为 class、interface 或 enum
next:Array['a'..'z']Of link;
^
0_0_8474923_23259\Main.java:11: 浮点字面值不规则
next:Array['a'..'z']Of link;
^
0_0_8474923_23259\Main.java:12: 需要为 class、interface 或 enum
num:Longint;
^
0_0_8474923_23259\Main.java:13: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:15: 需要为 class、interface 或 enum
Var
^
0_0_8474923_23259\Main.java:17: 需要为 class、interface 或 enum
ch,ch1:char;
^
0_0_8474923_23259\Main.java:18: 需要为 class、interface 或 enum
str1:String;
^
0_0_8474923_23259\Main.java:19: 需要为 class、interface 或 enum
tree,p,p1:link;
^
0_0_8474923_23259\Main.java:20: 需要为 class、interface 或 enum
data:Array[1..500000]Of link;
^
0_0_8474923_23259\Main.java:21: 需要为 class、interface 或 enum
mch:Array[1..1000000]Of Char;
^
0_0_8474923_23259\Main.java:23: 需要为 class、interface 或 enum
Procedure buildtree;
^
0_0_8474923_23259\Main.java:25: 需要为 class、interface 或 enum
Var
^
0_0_8474923_23259\Main.java:27: 需要为 class、interface 或 enum
fail:link;
^
0_0_8474923_23259\Main.java:29: 需要为 class、interface 或 enum
Begin
^
0_0_8474923_23259\Main.java:30: 需要为 class、interface 或 enum
l := 0;r := 1;
^
0_0_8474923_23259\Main.java:31: 需要为 class、interface 或 enum
data[1] := tree;
^
0_0_8474923_23259\Main.java:32: 需要为 class、interface 或 enum
While l < r Do Begin
^
0_0_8474923_23259\Main.java:34: 需要为 class、interface 或 enum
p1 := data[l];
^
0_0_8474923_23259\Main.java:35: 需要为 class、interface 或 enum
For ch := 'a' To 'z' Do
^
0_0_8474923_23259\Main.java:38: 需要为 class、interface 或 enum
While (fail <> Nil)And(fail^.next[ch] = Nil) Do fail := fail^.fail;
^
0_0_8474923_23259\Main.java:39: 需要为 class、interface 或 enum
If fail = Nil Then p1^.next[ch]^.fail := tree
^
0_0_8474923_23259\Main.java:43: 需要为 class、interface 或 enum
Inc(r);
^
0_0_8474923_23259\Main.java:44: 需要为 class、interface 或 enum
data[r] := p1^.next[ch];
^
0_0_8474923_23259\Main.java:45: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:46: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:47: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:49: 需要为 class、interface 或 enum
Begin
^
0_0_8474923_23259\Main.java:51: 需要为 class、interface 或 enum
Reset(input);
^
0_0_8474923_23259\Main.java:52: 需要为 class、interface 或 enum
Assign(output,outfile);
^
0_0_8474923_23259\Main.java:53: 需要为 class、interface 或 enum
Rewrite(output);
^
0_0_8474923_23259\Main.java:54: 需要为 class、interface 或 enum
ReadLn(t);
^
0_0_8474923_23259\Main.java:55: 需要为 class、interface 或 enum
For ii := 1 To t Do Begin
^
0_0_8474923_23259\Main.java:57: 需要为 class、interface 或 enum
ReadLn(n);New(tree);
^
0_0_8474923_23259\Main.java:58: 需要为 class、interface 或 enum
For ch := 'a' To 'z' Do tree^.next[ch] := Nil;tree^.fail :=Nil;
^
0_0_8474923_23259\Main.java:58: 需要为 class、interface 或 enum
For ch := 'a' To 'z' Do tree^.next[ch] := Nil;tree^.fail :=Nil;
^
0_0_8474923_23259\Main.java:59: 需要为 class、interface 或 enum
tree^.num := 0;
^
0_0_8474923_23259\Main.java:61: 需要为 class、interface 或 enum
For i := 1 To n Do Begin
^
0_0_8474923_23259\Main.java:62: 需要为 class、interface 或 enum
ReadLn(str1);p := tree;
^
0_0_8474923_23259\Main.java:63: 需要为 class、interface 或 enum
For j := 1 To Length(str1) Do
^
0_0_8474923_23259\Main.java:67: 需要为 class、interface 或 enum
For ch := 'a' To 'z' Do p1^.next[ch] := Nil;
^
0_0_8474923_23259\Main.java:68: 需要为 class、interface 或 enum
p1^.fail := Nil;
^
0_0_8474923_23259\Main.java:69: 需要为 class、interface 或 enum
p1^.num := 0;
^
0_0_8474923_23259\Main.java:70: 需要为 class、interface 或 enum
p^.next[str1[j]] := p1;
^
0_0_8474923_23259\Main.java:71: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:72: 需要为 class、interface 或 enum
p := p^.next[str1[j]];
^
0_0_8474923_23259\Main.java:73: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:74: 需要为 class、interface 或 enum
Inc(p^.num);
^
0_0_8474923_23259\Main.java:75: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:78: 需要为 class、interface 或 enum
buildtree;
^
0_0_8474923_23259\Main.java:81: 需要为 class、interface 或 enum
l := 0;
^
0_0_8474923_23259\Main.java:82: 需要为 class、interface 或 enum
While not eoln Do Begin
^
0_0_8474923_23259\Main.java:84: 需要为 class、interface 或 enum
Read(mch[l]);
^
0_0_8474923_23259\Main.java:85: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:86: 需要为 class、interface 或 enum
ReadLn;
^
0_0_8474923_23259\Main.java:87: 需要为 class、interface 或 enum
ans := 0;p1 := tree;
^
0_0_8474923_23259\Main.java:87: 需要为 class、interface 或 enum
ans := 0;p1 := tree;
^
0_0_8474923_23259\Main.java:88: 需要为 class、interface 或 enum
For i := 1 To l Do Begin
^
0_0_8474923_23259\Main.java:90: 需要为 class、interface 或 enum
While (p1^.next[ch1] = Nil)And(p1 <> tree) Do p1 := p1^.fail;
^
0_0_8474923_23259\Main.java:91: 需要为 class、interface 或 enum
p1 := p1^.next[ch1];
^
0_0_8474923_23259\Main.java:92: 需要为 class、interface 或 enum
If p1 = Nil Then p1 := tree;
^
0_0_8474923_23259\Main.java:94: 需要为 class、interface 或 enum
p := p1;
^
0_0_8474923_23259\Main.java:95: 需要为 class、interface 或 enum
While (p <> tree)And(p^.num <> 0) Do Begin
^
0_0_8474923_23259\Main.java:97: 需要为 class、interface 或 enum
p^.num := 0;
^
0_0_8474923_23259\Main.java:98: 需要为 class、interface 或 enum
p := p^.fail;
^
0_0_8474923_23259\Main.java:99: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:100: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:101: 需要为 class、interface 或 enum
WriteLn(ans);
^
0_0_8474923_23259\Main.java:102: 需要为 class、interface 或 enum
End;
^
0_0_8474923_23259\Main.java:104: 需要为 class、interface 或 enum
Close(input);
^
0_0_8474923_23259\Main.java:105: 需要为 class、interface 或 enum
Close(output);
^
0_0_8474923_23259\Main.java:106: 需要为 class、interface 或 enum
End.
^
78 错误
|
