81e70d48 PH |
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. |