Jump anywhere: Difference between revisions
Content added Content deleted
m (→{{header|TXR}}: Fixed unfinished </code> tag) |
(PascalABC.NET) |
||
Line 2,430: | Line 2,430: | ||
PARI inherits C's ability to <code>goto</code> or <code>longjmp</code>; the latter is used extensively in the library. |
PARI inherits C's ability to <code>goto</code> or <code>longjmp</code>; the latter is used extensively in the library. |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
label finish; |
|||
begin |
|||
var a := MatrRandomInteger(3,4); |
|||
var found := False; |
|||
for var i:=0 to a.RowCount-1 do |
|||
for var j:=0 to a.ColCount-1 do |
|||
if a[i,j] = 10 then |
|||
begin |
|||
found := True; |
|||
goto finish; |
|||
end; |
|||
finish: |
|||
Print(found); |
|||
end. |
|||
</syntaxhighlight> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |