graph1 in Pascal
procedure graph1;
var d:real; s:integer; h:integer; c:real;
lim:integer; x:real; y:real; i:integer;
n:integer;
begin
d := 0.0625;
s := 32;
h := 34;
c := 6.28318;
lim := 32;
x := 0.0;
y := 0.0;
i := 0;
n := 0;
for i := 0 to lim + 1 - 1 do
begin
x := d * i;
y := exp((- x)) * sin(c * x);
n := round(s * y) + h;
while (n > 0) do
begin
write(' ');
n := n - 1
end;
write('*');
writeln
end
end; {graph1}