Дз по инфор, извещение на цикл до, пока, для

Ответ:

Разъясненье:

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 xlt;=b do

   Begin

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

     x:=x+h;

   End;

   readln;

End.