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

Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1504 от 09.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c,h):=(-2.05,-4.05,3.4,-0.2);
  var x:=a;
  while x>=b+h/2 do begin
    Writeln(x:5:2,x*Sin(Sqrt(x+C-0.00084)):20:15);
    x+=h
    end
end.

---