Сделать программу по формуле - PascalABC.NET

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

Сделать программу по формуле

Решение задачи: «Сделать программу по формуле»

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

var
  a, x: real;
 
function f(x: real): real;
begin
  if x > 0 then
    f := 2 * a * x + abs(a - 1)
  else
    f := x / sqrt(1 - x * x) - 1;
end;
 
begin
  readln(a);
  x := -3;
  while x <= 3 do
  begin
    writeln(x:8:3, f(x):8:3);
    x := x + 0.5;
  end;
end.

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

Объявлены две переменные типа real - a и x.
Определена функция f с параметром x типа real и возвращаемым значением типа real.
В функции f происходит проверка условия x > 0, и в зависимости от этого значения присваивается результат вычисления определенной формулы.
В основной части программы происходит чтение значения переменной a с помощью функции readln.
Значение переменной x инициализируется значением -3.
Запускается цикл while, который выполняется до тех пор, пока значение переменной x не станет больше 3.
Внутри цикла выводится на экран значение переменной x и результат вычисления функции f для этого значения.
Значение переменной x увеличивается на 0.5 после каждой итерации цикла.
После окончания цикла программа завершается.