sw/src/pascal/UGURT.PS

   1 PROGRAM UNTERGURT(OUTPUT);
   2
   3   CONST R=168.3;
   4         S=188.1;
   5
   6   VAR   X,Y,R2,WKONST: REAL;
   7
   8 BEGIN
   9     R2 := R*R;
  10     WKONST := SQRT(R2-S*S/4);
  11
  12     X := 0;
  13     REPEAT
  14         Y := SQRT(R2-X*X) - WKONST;
  15         WRITELN(X :10:2, Y :10:2);
  16         X := X + 10
  17     UNTIL X>90
  18 END.