projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e7824a049ae11f93b9d1ff3502de929e95f44913
[pdp8.git]
/
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.