Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
| Line 255: | Line 255: | ||
iterar grupo( --i, i, #( int(s ^2 / 1000 % 1000000) ) \ |
iterar grupo( --i, i, #( int(s ^2 / 1000 % 1000000) ) \ |
||
---copiar en 's'---, NL, imprimir ) |
---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 |
terminar |
||
</syntaxhighlight> |
</syntaxhighlight> |
||