[unix-history] / src / pascal / 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.
Commit	Line	Data
bb56dd76 BJ	1	program graph1(output);
	2	const
	3	d = 0.0625;
	4	s = 32;
	5	h = 34;
	6	c = 6.28318;
	7	lim = 32;
	8	var
	9	x,y: real;
	10	i,n: integer;
	11
	12	begin
	13	for i := 0 to lim do
	14	begin
	15	x := d*i;
	16	y := exp(-x)sin(cx);
	17	n := round(s*y) + h;
	18	writeln('*':n);
	19	end
	20	end.