sw/src/pascal/PSEUDO.PS

   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.