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

diff --git a/sw/src/pascal/DIVIDE.PS b/sw/src/pascal/DIVIDE.PS
new file mode 100644
index 0000000..2b65279
--- /dev/null
+++ b/sw/src/pascal/DIVIDE.PS
@@ -0,0 +1,16 @@
+PROGRAM DIVISION(INPUT,OUTPUT);
+VAR A,I,B,N:INTEGER;
+BEGIN
+READ(A,B,   N);
+WRITE(A:5," :",B:5," =", A   DIV  B:5,".");
+FOR  I:=1  TO  N  DO
+     BEGIN
+     A:=(A  MOD  B)*10;
+     WRITE(A  DIV  B:1);
+     IF I MOD 50=0
+     THEN BEGIN
+          WRITELN;
+          WRITE(" ":20)
+          END
+     END
+END.