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.