Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 651: | Line 651: | ||
432883 |
432883 |
||
</pre> |
</pre> |
||
=={{header|Delphi}}== |
|||
{{works with|Delphi|6.0}} |
|||
{{libheader|SysUtils,StdCtrls}} |
|||
<syntaxhighlight lang="Delphi"> |
|||
var Seed: int64 = 675248; |
|||
function MiddleSquareRandom: int64; |
|||
var S: string; |
|||
begin |
|||
S:=IntToStr(Seed * Seed); |
|||
while Length(S)<12 do S:='0'+S; |
|||
Seed:=StrToInt(MidStr(S, 4, 6)); |
|||
Result:=Seed; |
|||
end; |
|||
procedure ShowMiddleSqrRandom(Memo: TMemo); |
|||
var I: integer; |
|||
begin |
|||
for I:=1 to 5 do |
|||
Memo.Lines.Add(IntToStr(MiddleSquareRandom)); |
|||
end; |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
959861 |
|||
333139 |
|||
981593 |
|||
524817 |
|||
432883 |
|||
Elapsed Time: 5.610 ms. |
|||
</pre> |
|||
=={{header|dc}}== |
=={{header|dc}}== |