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

diff --git a/sw/src/pascal/WURZEL.PS b/sw/src/pascal/WURZEL.PS
new file mode 100644
index 0000000..f396d9d
--- /dev/null
+++ b/sw/src/pascal/WURZEL.PS
@@ -0,0 +1,11 @@
+PROGRAM QUADRATWURZEL(OUTPUT);
+
+   VAR  X,Y: REAL;
+
+BEGIN   X := 1.0;
+        WHILE X<=10.0 DO
+                BEGIN   Y := SQRT(X);
+                        WRITELN(X :10:2, Y);
+                        X := X + 1.0
+                END
+END.