Протабулировать функцию - Turbo Pascal (248088)

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

Функция f(x)=sqrt(arctan (4*ln*(x))); интервал [0.1;5]; количество точек n=15. С помощью операторов for, while,repeat

Решение задачи: «Протабулировать функцию»

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

const
  x0 = 0.1;
  xn = 5;
  n = 15;
  h = (xn - x0) / (n - 1);
 
var
  x: real;
 
begin
  x := x0;
  repeat
    write('x = ', x :4:2, ', f(x) ');
    if x >= 1
      then writeln('= ', sqrt(arctan(4 * ln(x))) :0:10)
      else writeln('  is undefined');
    x := x + h
  until x > xn;
  readln
end.

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

Объявлены константы:
- x0 = 0.1;
- xn = 5;
- n = 15;
- h = (xn - x0) / (n - 1);
Объявлена переменная x типа real.
Переменная x инициализируется значением x0.
В цикле repeat:
- Выводится значение x и название функции f(x).
- Если x больше или равно 1, то выводится значение функции f(x) равное квадратному корню из арктангенса 4*лог(x), иначе выводится сообщение is undefined.
- Значение x увеличивается на h. Пока значение x меньше или равно xn.
По окончании цикла, программа ожидает ввода с клавиатуры с помощью функции readln.