Add README.md
[pdp8.git] / sw / src / pascal / KURVE.PS
... / ...
CommitLineData
1PROGRAM KURVE(OUTPUT);
2CONST PI = 3.1415926535;
3VAR X,Y: REAL;
4BEGIN X := -3*PI;
5REPEAT IF X=0 THEN Y := 1
6 ELSE Y := SIN(X)/X;
7 WRITELN("*":ROUND(40*Y)+20);
8 X := X + PI/10
9UNTIL X>3*PI
10END.