File: PSEUDO.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM PSEUDOZUFALL(OUTPUT);
  VAR I,N: INTEGER;
        R: REAL;
        Z: ARRAY[0..9] OF INTEGER;

BEGIN
    FOR I := 0 TO 9 DO Z[I] := 0;
    FOR N := 1 TO 1000 DO
        BEGIN
            R := RANDOM; I := TRUNC(10*R);
            WRITE(R:16:10); Z[I] := Z[I] + 1;
            IF N MOD 5 = 0 THEN WRITELN
        END;
    WRITELN; WRITELN("KLASSENHAEUFIGKEITEN":50);
    FOR I := 0 TO 9 DO WRITE(Z[I]:8);
    WRITELN
END.

---