A large commit.

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

diff --git a/sw/src/pascal/UGURT.PS b/sw/src/pascal/UGURT.PS
new file mode 100644 (file)
index 0000000..e7824a0
--- /dev/null
+++ b/sw/src/pascal/UGURT.PS
@@ -0,0 +1,18 @@
+PROGRAM UNTERGURT(OUTPUT);
+
+  CONST R=168.3;
+        S=188.1;
+
+  VAR   X,Y,R2,WKONST: REAL;
+
+BEGIN
+    R2 := R*R;
+    WKONST := SQRT(R2-S*S/4);
+
+    X := 0;
+    REPEAT
+        Y := SQRT(R2-X*X) - WKONST;
+        WRITELN(X :10:2, Y :10:2);
+        X := X + 10
+    UNTIL X>90
+END.