X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FPSEUDO.PS;fp=sw%2Fsrc%2Fpascal%2FPSEUDO.PS;h=b68ba0431b719e368af052f2df9138d22b543cf6;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/PSEUDO.PS b/sw/src/pascal/PSEUDO.PS
new file mode 100644
index 0000000..b68ba04
--- /dev/null
+++ b/sw/src/pascal/PSEUDO.PS
@@ -0,0 +1,17 @@
+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.