Commit | Line | Data |
---|---|---|
1 | PROGRAM PSEUDOZUFALL(OUTPUT); | |
2 | VAR I,N: INTEGER; | |
3 | R: REAL; | |
4 | Z: ARRAY[0..9] OF INTEGER; | |
5 | ||
6 | BEGIN | |
7 | FOR I := 0 TO 9 DO Z[I] := 0; | |
8 | FOR N := 1 TO 1000 DO | |
9 | BEGIN | |
10 | R := RANDOM; I := TRUNC(10*R); | |
11 | WRITE(R:16:10); Z[I] := Z[I] + 1; | |
12 | IF N MOD 5 = 0 THEN WRITELN | |
13 | END; | |
14 | WRITELN; WRITELN("KLASSENHAEUFIGKEITEN":50); | |
15 | FOR I := 0 TO 9 DO WRITE(Z[I]:8); | |
16 | WRITELN | |
17 | END. |