|
CreateMatri.m2 |
MODULE CreateMatrix; FROM Arguments IMPORT InitArgs, FetchCard, AllArgs; FROM InOut IMPORT WriteCard, WriteLn; FROM RandomGenerator IMPORT Random; VAR n: CARDINAL; i, j: CARDINAL; distance: CARDINAL; BEGIN InitArgs("squarelen"); FetchCard(n); AllArgs; FOR i := 1 TO n DO FOR j := 1 TO n DO IF i = j THEN distance := 0; ELSE distance := Random(1, 9); END; WriteCard(distance, 2); END; WriteLn; END; END CreateMatrix. |
Random liefert einen ganzzahligen Wert gleichverteilt
aus dem gegebenen Intervall.
|
Copyright © 1999 Andreas Borchert, in HTML konvertiert am 13.01.1999 |