[pdp8.git] / sw / src / pascal / KURVE.PS

PROGRAM KURVE(OUTPUT);
CONST   PI = 3.1415926535;
VAR     X,Y: REAL;
BEGIN   X := -3*PI;
REPEAT  IF X=0  THEN Y := 1
                ELSE Y := SIN(X)/X;
        WRITELN("*":ROUND(40*Y)+20);
        X := X + PI/10
UNTIL   X>3*PI
END.
Commit	Line	Data
	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(40Y)+20);
	8	X := X + PI/10
	9	UNTIL X>3*PI
	10	END.