Объяснение:
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.
