type
  func = function (x: real): real;

procedure showfunc(a, b: real; n: integer; f: func);
var
  i: integer;
  x: real;

begin
  for i := 0 to n do
    begin
      x := a + i * ((b - a)/n);
      writeln(x:15:6, '    і ', f(x):15:6);
    end;
end;

function pow(c, t: real): real;
begin
  pow := exp(t*ln(c));
end;

function fa(x: real): real; far;
begin
  fa := sin(x) + cos(2*x);
end;

function fb(x: real): real; far;
begin
  fb := sin(sqrt(2*x)) + cos(x);
end;

function fv(x: real): real; far;
begin
  fv := sqrt(x*x + 2);
end;

function fg(x: real): real; far;
begin
  fg := x * abs(x + 1);
end;

function fd(x: real): real; far;
begin
  fd := x * pow(exp(1), -x);
end;

begin
  writeln('Var a: ');
  showfunc(-pi, pi, 50, fa);
  readln;

  writeln('Var b: ');
  showfunc(0, 2 * pi, 50, fb);
  readln;

  writeln('Var v: ');
  showfunc(-3, 5, 40, fv);
  readln;

  writeln('Var g: ');
  showfunc(-1, 2, 30, fg);
  readln;

  writeln('Var d: ');
  showfunc(-1, 3, 40, fd);
  readln;
end.