Data update

Task/EKG-sequence-convergence/FreeBASIC/ekg-sequence-convergence.basic

@@ -0,0 +1,52 @@
+Const limite = 30
+Dim Shared As Integer n, A(limite + 1)
+
+Function Used(m As Integer) As Boolean      'Return 'True' if m is in array A
+    For i As Integer = 1 To n - 1
+        If m = A(i) Then Return True
+    Next i
+    Return False
+End Function
+
+Function MinFactor(num As Integer) As Integer   'Return minimum unused factor
+    Dim As Integer factor, valor, min
+
+    factor = 2
+    min = &H7FFFFFFF
+    Do
+        If num Mod factor = 0 Then     'found a factor
+            valor = factor
+            Do
+                If Used(valor) Then
+                    valor+ = factor
+                Else
+                    If valor < min Then min = valor
+                    Exit Do
+                End If
+            Loop
+            num \= factor
+        Else
+            factor += 1
+        End If
+    Loop Until factor > num
+    Return min
+End Function
+
+Sub EKG(m As Integer)               'Calculate and show EKG sequence
+    A(1) = 1: A(2) = m
+    For n = 3 To limite
+        A(n) = MinFactor(A(n - 1))
+    Next n
+    Print Using "EKG(##):"; m;
+    For i As Integer = 1 To limite
+        Print Using "###"; A(i);
+    Next i
+    Print
+End Sub
+
+Dim starts(4) As Integer = {2, 5, 7, 9, 10}
+For i As Integer = 0 To 4
+    EKG(starts(i))
+Next i
+
+Sleep