projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
19f3e0b9901a03f7db0cdf309ac152b7b13f5ff5
[pdp8.git]
/
KURVE.PS
1
PROGRAM KURVE(OUTPUT);
2
CONST PI = 3.1415926535;
3
VAR X,Y: REAL;
4
BEGIN X := -3*PI;
5
REPEAT IF X=0 THEN Y := 1
6
ELSE Y := SIN(X)/X;
7
WRITELN("*":ROUND(40*Y)+20);
8
X := X + PI/10
9
UNTIL X>3*PI
10
END.