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

diff --git a/sw/src/pascal/ZWEIER.PS b/sw/src/pascal/ZWEIER.PS
new file mode 100644
index 0000000..df59a45
--- /dev/null
+++ b/sw/src/pascal/ZWEIER.PS
@@ -0,0 +1,24 @@
+PROGRAM ZWEIERPOTENZEN(OUTPUT);
+CONST NMAX=30;
+VAR   A,REST,N,W,S:INTEGER;
+BEGIN A:=1;
+FOR N:=1 TO NMAX DO
+    BEGIN A:=A*2;
+    W:=1; S:=10;
+    WHILE S<=A DO BEGIN W:=W+1; S:=S*10 END;
+    WRITE(" ":20-W - W DIV 3);
+    FOR W:=W DOWNTO 1 DO
+        BEGIN IF (W MOD 3 = 0) THEN WRITE(" ");
+        S:=S DIV 10; WRITE((A DIV S) MOD 10 :1)
+        END;
+    WRITE(N:5,"   0.");
+    W:=1;
+    REST:=10;
+    REPEAT IF (W MOD 3 = 0) THEN WRITE(" ");
+           W:=W+1;
+           WRITE(REST DIV A :1);
+           REST:=(REST MOD A)*10
+    UNTIL REST=0;
+    WRITELN
+    END
+END.