PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin for var x:=-10 to 10 do Writeln(x:3,x-2/Sqrt(x*x-2*x):15:10) end.
Как видно из представленных во вложении результатов, современный Паскаль легко справляется и с отрицательным значением подкоренного выражения (NaN - Not a Number - не число) и с делением на ноль (-infinity - минус бесконечность).
Внимание! Если программа не работает, обновите версию!
begin
for var x:=-10 to 10 do
Writeln(x:3,x-2/Sqrt(x*x-2*x):15:10)
end.
Как видно из представленных во вложении результатов, современный Паскаль легко справляется и с отрицательным значением подкоренного выражения (NaN - Not a Number - не число) и с делением на ноль (-infinity - минус бесконечность).