Ответ:

Объяснение:

program tablitsa_funktsii;

Var a,b,h,x:real;

Begin

   write('Введите отрезок [a,b]: ');readln(a,b);

   write('Введите шаг h: ');readln(h);

   writeln('-------------');

   writeln('  x   |','  f(x)  ');

   writeln('-------------');

   x:=a;

   While x<=b do

   Begin

     writeln(x:6:2,'|':1,2*cos(x)-1:6:2);

     x:=x+h;

   End;

   readln;

End.