我90分,错那个点上了,本人程序:
-----------------------------------------------
var n,i,k,l,sum,num,code:longint;
s:array[1..200]of string;
s1,s2:string;
flag:array[1..200]of boolean;
begin
readln(n);
for i:=1 to n do
readln(s[i]);
k:=1;
repeat
if flag[k]=true then begin writeln(0); exit; end;
s1:=copy(s[k],1,3);
flag[k]:=true;
if s1=jmp then
begin
l:=length(s[k]);
s2:=copy(s[k],5,l-4);
val(s2,num,code);
k:=num;
sum:=sum+1;
end
else
begin
k:=k+1;
sum:=sum+1;
end;
until k>n;
writeln(sum);
end.
------------------------------------------------
请各位高手帮忙挑错,谢谢!