projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
A large commit.
[pdp8.git]
/
sw
/
src
/
pascal
/
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.