代码大全

}

}

return(Found);

Ada for

Pascal

SafetyCounter := 0;
repeat
Node := NodeˆNext;
...
safetyCounter := SafetyCOunter+1;
if(SafetyCounter>=SAFETY_LIMIT)
begin
PrintErrorMsg("Internal Error : Safety-Counter Violation.");
exit(Error)
end;
...

until( Nodeˆ.Next = Nil );

Pascal

15.2.4 break continue

break break
break C break Pascal
exit break goto
continue break continue
continue if then

break continue break
break

break
continue break

while break while