Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Pseudo-random-numbers-Middle-square-method/FreeBASIC/pseudo-random-numbers-middle-square-method.basic
+++ b/Task/Pseudo-random-numbers-Middle-square-method/FreeBASIC/pseudo-random-numbers-middle-square-method.basic
@ -0,0 +1,17 @@
+Dim Shared seed As Integer = 675248
+Dim i As Integer
+Declare Function Rand As Integer
+For i = 1 To 5
+	Print Rand
+Next i
+Sleep
+
+Function Rand As Integer
+	Dim s As String
+	s = Str(seed ^ 2)
+	Do While Len(s) <> 12
+		s = "0" + s
+	Loop
+	seed = Val(Mid(s, 4, 6))
+	Rand = seed
+End Function