Fibonacci sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,333: / Line 5,333: @@
 <syntaxhighlight lang="dibol-11">
-      START    ;First 10 Fibonacci NUmbers
+    ;     Redone to include the first two values that
+    ;     are noot computed.
+      START    ;First 15 Fibonacci NUmbers
@@ Line 5,340: / Line 5,343: @@
               FIB2,    D10,   1
               FIBNEW,  D10
-              LOOPCNT, D2,    1
+              LOOPCNT, D2,    3
        RECORD HEADER
-,            A32, "First 10 Fibonacci Numbers."
+,            A32, "First 15 Fibonacci Numbers."
        RECORD OUTPUT
@@ Line 5,356: / Line 5,359: @@
       WRITES(8,HEADER)
+;   The First Two are given.
+        FIBOUT = 0
+        LOOPOUT = 1
+      WRITES(8,OUTPUT)
+        FIBOUT = 1
+        LOOPOUT = 2
+      WRITES(8,OUTPUT)
+;   The Rest are Computed.
      LOOP,
              FIBNEW = FIB1 + FIB2
@@ Line 5,367: / Line 5,381: @@
              LOOPCNT = LOOPCNT + 1
-             IF LOOPCNT .LE. 10 GOTO LOOP
+             IF LOOPCNT .LE. 15 GOTO LOOP
              CLOSE 8
              END
 </syntaxhighlight>
 =={{header|DWScript}}==