Циклы. Таблица значений с границами изменения и шагом

program Project1;
uses
  Math;
var
  y: real;  // Переменная для хранения значения результата вычислений.
  x: real;  // Переменная для хранения значения аргумента.
  step: real;  //  Переменная для хранения значения шага вычислений.
  a: real;  //  Переменная для хранения значения левой границы вычислений.
  b: real;  //  Переменная для хранения значения правой границы вычислений.
  y1,y2: real; // Промежуточные переменные для вычисления выражения.
  flagError: boolean; // Логическая переменная для правильного вывода результата.
begin
 
  a:= 0.5;  // Значение левой границы вычислений.
  b:= 2;    // Значение правой границы вычислений.
  step:= 0.3; //  Значение шага вычислений.
  x:= a;  // Присвоение аргументу значения левой границы.
  writeln('x = ':2,'y = ':8); // Вывод оглавляющей шапки на экран.
  while x < b + step do  // Цикл с условием выхода.
  begin
    flagError:= false;
    y1:= tan(x+7) + ln(x);
    if  (y1 <> 0) then  // Проверка деления на нуль.
      y2:= (x*x*x + cos(5*x))/(tan(x+7) + ln(x))
    else
      flagError:= true;
    if y2 > 0 then    // Проверка положительного значения.
      y:= sqrt(y2) // Вычисление значения функции.
    else
      flagError:= true;
    if flagError then
      writeln(x:3:1,'  Функция при данном значении аргумента не определена.')
    else
      writeln(x:3:1, y:8:4);  // Вывод результатов на экран.
    x:= x + step; // Приращение аргумента на величину шага.
  end;
  Readln;
end.

const a=0.5; b=2; h=0.3; eps=1e-19;
var x, y: Real; bErr: Boolean;
begin
  WriteLn('x':8,'y':8);
  x:=a;
  while x<=b do begin
    Write(x:8:1);
    y:=Cos(x+7);
    bErr:=Abs(y)<eps;
    if not bErr then begin
      y:=Sin(x+7)/y+Ln(x);
      bErr:=Abs(y)<eps;
    end;
    if not bErr then begin
      y:=(Sqr(x)*x+Cos(5*x))/y;
      bErr:=y<0;
    end;
    if not bErr then begin
      y:=SqRt(y);
      WriteLn(y:8:4);
    end else WriteLn('n/a':8);
    x:=x+h;
  end;
end.

var
  flagError: boolean; // Логическая переменная для правильного вывода результата.

program Project1;
 
var
  y: real;  // Переменная для хранения значения результата вычислений.
  x: real;  // Переменная для хранения значения аргумента.
  step: real;  //  Переменная для хранения значения шага вычислений.
  a: real;  //  Переменная для хранения значения левой границы вычислений.
  b: real;  //  Переменная для хранения значения правой границы вычислений.
  y1,y2: real; // Промежуточные переменные для вычисления выражения.
  flagError: boolean; // Логическая переменная для правильного вывода результата.
begin
 
  a:= 0.5;  // Значение левой границы вычислений.
  b:= 2;    // Значение правой границы вычислений.
  step:= 0.3; //  Значение шага вычислений.
  x:= a;  // Присвоение аргументу значения левой границы.
  writeln('x = ':2,'y = ':8); // Вывод оглавляющей шапки на экран.
  while x < b + step do  // Цикл с условием выхода.
  begin
    flagError:= false;
    if cos(x+7) <> 0 then
      y1:= sin(x+7)/cos(x+7) + ln(x)
    else
      flagError:= true;
    if  (y1 <> 0) then  // Проверка деления на нуль.
      y2:= (x*x*x + cos(5*x))/y1
    else
      flagError:= true;
    if y2 > 0 then    // Проверка положительного значения.
      y:= sqrt(y2) // Вычисление значения функции.
    else
      flagError:= true;
    if flagError then
      writeln(x:3:1,'  Функция при данном значении аргумента не определена.')
    else
      writeln(x:3:1, y:8:4);  // Вывод результатов на экран.
    x:= x + step; // Приращение аргумента на величину шага.
  end;
  Readln;
end.

  while x<b+h/2 do begin

    bErr:=(Abs(y)<eps) and (x>0);

  while x < b + step/2 do

    Write(x:8:1);
    y:=Cos(x+7);
    if Abs(y)>=eps then
    begin
      y:=Sin(x+7)/y+Ln(x);
      if Abs(y)>=eps then
      begin
        y:=(Sqr(x)*x+Cos(5*x))/y;
        if y>=0 then
          WriteLn(SqRt(y):8:4)
        else WriteLn('n/a':8);
      end
      else WriteLn('n/a':8);
    end
    else WriteLn('n/a':8);

program Project1;
const
  a = 0.5; // Левая граница вычислений.
  b = 2;   //  Правая граница вычислений.
  h = 0.3;  //  Шаг вычислений.
  eps = 1e-19; //  Точность вычислений.
var
  x: real; // Переменная для хранения значения аргумента функции.
  y: real; // Переменная для хранения значения результата вычислений.
begin
  WriteLn('x':8,'y':8);  // Вывод в консоль шапки таблицы.
  x:= a;                 // Начальное значение аргумента.
  while x <= b do   // Цикл с условием выхода.
  begin
    Write(x:8:1);         // Вывод в консоль значения аргумента.
    y:= Cos(x+7);
    if Abs(y) >= eps then     // Проверка на нулевое значение
    begin                     // (если значение выражения меньше значения точности, значит это нуль)
      y:= Sin(x+7)/y+Ln(x);
      if Abs(y) >= eps then    // Проверка на нулевое значение
      begin
        y:= (Sqr(x)*x+Cos(5*x))/y;
        if y >= 0 then         // Проверка на положительное значение
          WriteLn(SqRt(y):8:4)    //  Вычисление функции и вывод значения в консоль.
        else
          WriteLn('n/a':8);    // Сообщение о неопределимости функции.
      end
      else
        WriteLn('n/a':8);      // Сообщение о неопределимости функции.
    end
    else
      WriteLn('n/a':8);        // Сообщение о неопределимости функции.
     x:= x + h;
  end;
  Readln;
end.