[unix-history] / tests / t03.p

program graph2(output);
const
	d = 0.0625;
	s = 32;
	h1 = 34;
	h2 = 68;
	c = 6.28318;
	lim = 32;
var
	i,j,k,n: integer;
	x,y: real;
	a: array[1..h2] of char;
begin
	for j := 1 to h2 do
		a[j] := ' ';
	for i := 0 to lim do
	begin
		x := d*i;
		y := exp(-x)*sin(c*x);
		a[h1] := ':';
		n := round(s*y) + h1;
		a[n] := '*';
		if n < h1 then
			k := h1 else
			k := n;
		for j := 1 to k do
			write(a[j]);
		writeln;
		a[n] := ' ';
	end
end.
Commit	Line	Data
fde98a2d BJ	1	program graph2(output);
	2	const
	3	d = 0.0625;
	4	s = 32;
	5	h1 = 34;
	6	h2 = 68;
	7	c = 6.28318;
	8	lim = 32;
	9	var
	10	i,j,k,n: integer;
	11	x,y: real;
	12	a: array[1..h2] of char;
	13	begin
	14	for j := 1 to h2 do
	15	a[j] := ' ';
	16	for i := 0 to lim do
	17	begin
	18	x := d*i;
	19	y := exp(-x)sin(cx);
	20	a[h1] := ':';
	21	n := round(s*y) + h1;
	22	a[n] := '*';
	23	if n < h1 then
	24	k := h1 else
	25	k := n;
	26	for j := 1 to k do
	27	write(a[j]);
	28	writeln;
	29	a[n] := ' ';
	30	end
	31	end.