Составить программу вычисления значений функции - Pascal ABC (13289)

Формулировка задачи:

Пожалуйста, помогите составить программу Составить программу вычисления значений функции F(X) на отрезке [A,B] в точках X1=А+Н, где Н=(В-А)/М, М – заданное число. Вариант функции x-sin(x) И такие методические указания: 1. Для задания значений Х и соответствующих значений функции следует использовать простые переменные. 2. Значение шага Н должно вычисляться один раз. 3. При изменении значения аргумента Х использовать оператор присваивания Х:=Х+Н, а не оператор с использованием операции умножения Х: = А + IН, что существенно сокращает время выполнения программы. Заранее спасибо.

Забыл дополнить Вариант функции x-sin(x) A=0 B=p/2 M=10

Решение задачи: «Составить программу вычисления значений функции»

Листинг программы

program pr;
const
  a = 0;
  b = pi / 2;
var
  m: integer;
  h, y: real;
  x1: real;
begin
  writeln('Введите М');
  readln(m);
  h := (b - a) / m;
  x1 := a;
  repeat
    y := x1 - sin(x1);
    x1 := x1 + h;
  until x1 > b;
  writeln('F(x)= ', y);
end.

Объяснение кода листинга программы

В программе объявлены три переменные: a, b и m.
Значение переменной b вычисляется как pi / 2, где pi - это константа, равная 3.14159265358979323846.
Переменная m инициализируется значением, введенным пользователем.
Затем переменная h вычисляется как (b - a) / m.
Переменная x1 инициализируется значением a.
Затем в цикле повторяется следующее до тех пор, пока x1 не станет больше b:
1. Вычисляется значение переменной y как x1 - sin(x1).
2. Значение x1 увеличивается на h.
В конце программы выводится значение y.