BSD 1 development

[unix-history] / tests / t17.p

program graph1(output);
const
       d = 0.0625;
       s = 32;
       h = 34;
       c = 6.28318;
       lim = 32;
var
       x,y: real;
       i,n: integer;

begin
       for i := 0 to lim do
       begin
               x := d*i;
               y := exp(-x)*sin(c*x);
               n := round(s*y) + h;
               writeln('*':n);
       end
end.