Вычислить значение выражения по заданной формуле - Turbo Pascal (29318)

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

Написать программу: Даны целое число n, действительные числа i,j,k вычислить:

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

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

var
  n, m : Integer;
  t, i, j, k : Real;
begin
  ReadLn(n, i, j, k);
  if j = 0 then
    begin
      WriteLn('Деление на ноль.');
      Halt;
    end;
  if (i + k) / j / j + k * k < 0 then
    begin
      WriteLn('Корень из отрицательного числа.');
      Halt;
    end;
  t := 1;
  for m := 1 to n do
    t := t * (i - k);
  t := sqr(sin(t) / cos(t));
  WriteLn('d = ', t + sqrt((i + k) / j / j + k * k) :0:3);
end.

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

В начале объявляются переменные: n, m, t, i, j, k, которые представляют собой целочисленные и вещественные значения.
Затем происходит чтение значений переменных с помощью функции ReadLn.
Проверяется условие: если значение переменной j равно нулю, выводится сообщение Деление на ноль и функция Halt вызывается для остановки выполнения программы.
Далее проверяется условие: если результат выражения (i + k) / j / j + k * k меньше нуля, выводится сообщение Корень из отрицательного числа и функция Halt вызывается для остановки выполнения программы.
Переменная t инициализируется значением 1.
Затем происходит цикл for, который выполняется n раз. В каждой итерации цикла переменная t умножается на (i - k).
После завершения цикла переменная t вычисляется по формуле sin(t) / cos(t).
Выводится значение переменной t с помощью функции WriteLn.
Затем вычисляется значение выражения d с помощью формулы (i + k) / j / j + k * k.
Значение выражения d округляется до ближайшего десятого с помощью функции sqrt и записывается в переменную t.
Выводится значение переменной t с помощью функции WriteLn.