Return to t01.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

BSD 4.3reno

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 := 1 to lim do
	begin
		x := x/i;
		y := exp(-x)*sin(c*x);
		n := round(s*y) + h;
		repeat
			write(' ');
			n := n-1;
		until n=0;
		writeln('*')
	end
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.