langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Loops-Nested/PureBasic/loops-nested.purebasic
+++ b/Task/Loops-Nested/PureBasic/loops-nested.purebasic
@ -0,0 +1,17 @@
+; Creating and filling array
+Dim Value(10, 5)
+For a = 0 To 10
+  For b = 0 To 5
+    Value(a, b) = Random(19) + 1
+  Next
+Next
+; iterating trough array
+For a = 0 To 10
+  For b = 0 To 5
+    Debug Value(a, b)
+    If Value(a, b) = 20
+      ; 2 indicates, that there are two nested lopps to break out
+      Break 2
+    EndIf
+  Next
+Next