Найти корень уравнения - Pascal ABC (12688)

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

Всем привет!) Дали нубу сегодня вот такую задачу. Поможете решить? Найти корень уравнения f(x)=ctg-x^2=0 в интервале [0,1; 1,2] x1=0,895_206_045 Плюс дал листок для решения алгебраических уравнений. Фото во вложении

Решение задачи: «Найти корень уравнения»

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

uses crt;
var x, d, e: real;
begin
  repeat
    write('e > 0;  e = ');
    readln(e)
  until e > 0;
  x := 1.2;
  repeat
    d := (cos(x) / sin(x) - x * x) / (-1 / sqr(sin(x)) - 2 * x);
    x := x - d
  until abs(d) < e;
  write('x = ', x:0:15)
end.

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

В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC.
Переменные x, d, e имеют тип real, что означает, что они могут хранить числа с плавающей точкой.
В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение e > 0; e = и считывается значение переменной e. Это повторяется до тех пор, пока e больше 0.
- Переменная x инициализируется значением 1.2.
- Затем начинается второй цикл repeat-until. В нем выполняется следующая последовательность действий:
  - Вычисляется значение переменной d по формуле cos(x) / sin(x) - xx / (-1/sqr(sin(x)) - 2x). Это значение затем сохраняется в переменной x.
  - Значение переменной x обновляется, становясь равным x - d.
  - Цикл продолжается, пока абсолютное значение d меньше, чем значение e.
- По окончании второго цикла выводится значение переменной x с точностью до 15 знаков после запятой. Таким образом, код выполняет следующие действия: ищет корень уравнения, используя формулу для нахождения корня в виде последовательности чисел.