A large commit.

[pdp8.git] / sw / src / pascal / BUCHST.PS

diff --git a/sw/src/pascal/BUCHST.PS b/sw/src/pascal/BUCHST.PS
new file mode 100644 (file)
index 0000000..4435998
--- /dev/null
+++ b/sw/src/pascal/BUCHST.PS
@@ -0,0 +1,17 @@
+PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT);
+    VAR BUCHST: CHAR;
+        ZAEHLER: ARRAY["A".."Z"] OF INTEGER;
+BEGIN
+  FOR BUCHST := "A" TO "Z"  DO ZAEHLER[BUCHST] := 0;
+  WHILE NOT EOF DO
+    BEGIN
+      WHILE NOT EOLN DO
+        BEGIN
+          READ(BUCHST); WRITE(BUCHST);
+          IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN
+                ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1
+        END;
+      READLN; WRITELN
+    END;
+  FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST])
+END.