Табулирование и исследование функции y=f(x)

program LabWork;

 type

  TValue=Real;

 function f(x:TValue):TValue;

  begin

   f:=Cos(x);

  end;

 var

  x, y, x0, xn, h, xc, yc, r: Real;

  s: Integer;

 begin

  Writeln(‘Диапазон исследования функции, шаг, радиус, координаты центра окружности’);

  Readln (x0, xn, h, r, xc, yc);

  Writeln(‘Исходные данные’);

  Writeln(‘Диапазон: [’, x0:5:1, ‘, ‘, xn:5:1, ‘] | Шаг: ‘, h:5:1);

  Writeln(‘Радиус: ’, r:4:1, ‘коорд. центра (’, xc, ‘; ’, yc, ‘)’);

  Writeln(‘Таблица исходных значений функции (оператор while)’);

  { Использовать шаблон, также для repeat }

  Writeln(‘Таблица исходных значений функции (оператор repeat)’);

  x:=x0;

  s:=0;

  repeat

   y:=f(x);

   if ((y<yc) and (y>(yc+xc-x)) and (y>(yc-Sqrt(Sqr(r)-Sqr(x-xc))))) then Inc(s);

   x:=x+h;

  until x>xn+h/2;

  Writeln(‘Кол-во точек s=’, s);

 end.