Составить таблицу значений функции Y при изменении аргумента ** интервале от А до В с...

Question

Составить таблицу значений функции Y при изменении аргумента на интервале от А до В с шагом Н, если при некоторых значениях аргумента функция неопределена, то вывести соответствующее значение. y=x sin√(x+C-0,00084),A=-2.05,B= -4.05,C=3.4,H=-0.2

Answer 1

Const
    A = -2.05;
    B = -4.05;
    C = 3.4;
    H = -0.2;

var
    x: real;

begin
    x := A;
    repeat
        if x + C - 0.00084 < 0 then
            Writeln('x = ', x:10:5, ' y - не определен')
        else
            Writeln('x = ', x:10:5, ' y = ', (x * sin(sqrt(x + C - 0.00084))):10:5);
        x := x + H;
    until x <= B;<br>end.