Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 02:56, 14 October 2023
, 7 months ago→{{header|Amazing Hopper}}
Line 255:
iterar grupo( --i, i, #( int(s ^2 / 1000 % 1000000) ) \
---copiar en 's'---, NL, imprimir )
terminar
</syntaxhighlight>
{{out}}
<pre>
idem.
</pre>
<p>Version 4:</p>
<syntaxhighlight lang="c">
#include <basico.h>
algoritmo
s=675248, i=5
rareti( i--, #( int(s ^2 / 1000 % 1000000) ) \
---copiar en 's'---, NL, imprimir )
terminar
</syntaxhighlight>
|