Flow-control structures: Difference between revisions

Added Algol W
(Added Algol W)
Line 153:
etc...
</pre>
 
=={{header|ALGOL W}}==
As well as structured flow-control structures (loops, if-then-else, etc.) Algol W has a goto statement. A goto can lead out of the current procedure, which can be used for error handling. Goto can be written as "goto" or "go to".
<lang algolw>begin
integer i;
integer procedure getNumber ;
begin
integer n;
write( "n> " );
read( i );
if i< 0 then goto negativeNumber;
i
end getNumber ;
 
i := getNumber;
write( "positive or zero" );
go to endProgram;
negativeNumber:
writeon( "negative" );
endProgram:
end.</lang>
 
=={{header|AutoHotkey}}==
3,028

edits