September 2017 Update
This commit is contained in:
parent
bba7bfd280
commit
ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
1
Task/Program-termination/ALGOL-W/program-termination.alg
Normal file
1
Task/Program-termination/ALGOL-W/program-termination.alg
Normal file
|
|
@ -0,0 +1 @@
|
|||
if anErrorOccured then assert( false );
|
||||
|
|
@ -1 +1 @@
|
|||
10 IF 1 THEN END
|
||||
IF TRUE THEN END 42
|
||||
|
|
|
|||
|
|
@ -1,3 +1 @@
|
|||
10 LET a = 1: LET b = 1
|
||||
20 IF a = b THEN GO TO 9995
|
||||
9995 STOP
|
||||
10 IF 1 THEN END
|
||||
|
|
|
|||
|
|
@ -0,0 +1,3 @@
|
|||
10 LET a = 1: LET b = 1
|
||||
20 IF a = b THEN GO TO 9995
|
||||
9995 STOP
|
||||
11
Task/Program-termination/Gambas/program-termination-1.gambas
Normal file
11
Task/Program-termination/Gambas/program-termination-1.gambas
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
Public Sub Form_Open()
|
||||
Dim siCount As Short
|
||||
|
||||
Do
|
||||
If siCount > 1000 Then Break
|
||||
Inc siCount
|
||||
Loop
|
||||
|
||||
Me.Close
|
||||
|
||||
End
|
||||
11
Task/Program-termination/Gambas/program-termination-2.gambas
Normal file
11
Task/Program-termination/Gambas/program-termination-2.gambas
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
Public Sub Main()
|
||||
Dim siCount As Short
|
||||
|
||||
Do
|
||||
If siCount > 1000 Then Break
|
||||
Inc siCount
|
||||
Loop
|
||||
|
||||
Quit
|
||||
|
||||
End
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
// version 1.0.6
|
||||
|
||||
fun main(args: Array<String>) {
|
||||
val problem = true
|
||||
if (problem) System.exit(1) // non-zero code passed to OS to indicate a problem
|
||||
println("Program terminating normally") // this line will not be executed
|
||||
}
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
if problem:
|
||||
quit(QuitFailure)
|
||||
|
|
@ -1 +0,0 @@
|
|||
:Stop
|
||||
3
Task/Program-termination/Zkl/program-termination.zkl
Normal file
3
Task/Program-termination/Zkl/program-termination.zkl
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
if (die) System.exit();
|
||||
if (die) System.exit(1);
|
||||
if (die) System.exit("dumping core");
|
||||
Loading…
Add table
Add a link
Reference in a new issue