program graph (input,output,fi);
const wid=50;
sh0=40;
var i,n,m,bound,j:integer; scale,dx,x:real;
fi:text;
function f(x:real):real;
const eps=1e-5;
begin
if abs(x) f:=exp(-x)*sin(2*x)
end;
function g(x:real):real;
const eps=1e-5;
begin
if abs(x) g:=exp(-x)
end;
begin
assign(fi,'fi');
rewrite(fi);
writeln('‡˜ §˜¨˜©«ž©à š¨˜­ ¡˜ « ª ©¬¤˜¨«ž©žs f(x)=exp(-x)*sin(2*x) ¡˜ ');
writeln('g(x)=exp(-x)');
writeln('ƒ¦©œ « s ©¬¤«œ«˜š£œ¤œª «à¤ ˜¥¦¤à¤, xoy');
readln(bound);
writeln('Dose thn klimaka');
readln(scale);
writeln('ƒ¦©œ «¦ ™ž£˜');
readln(dx);
x:=-bound;
for i:=-bound to bound do
begin
n:=round(scale*f(x));
m:=round(scale*g(x));
if i=0 then
begin
for j:=1 to 2*sh0 do write(fi,'-')
end;

if abs(n)>wid then writeln(fi,'|':sh0) else
if n<0 then writeln(fi,'*':n+sh0,'|':-n)
else
writeln(fi,'|':sh0,'*':n);

if abs(m)>wid then writeln(fi,'|':sh0)
else
if m<0 then writeln(fi,'.':m+sh0,'|':sh0)
else
writeln(fi,'|':sh0,'.':m);
x:=x+dx
end;
close(fi)
end.