File: UGURT.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

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.

---