A large commit.

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

diff --git a/sw/src/pascal/WURZEL.PS b/sw/src/pascal/WURZEL.PS
new file mode 100644 (file)
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.