Hаписать программу табуляции функции у=1/х на отрезке [-2,2] с шагом 1 на языке паскаль.предусмотреть проверку принадлежности аргумента области определения функции.
Вот программа: var x,h:real; begin h:=1; x:=-2; writeln(' x y'); while x<=2 do begin write(x:3); if x<>0 then writeln(1/x:7:2) else writeln(' функция не определена'); x:=x+h; end; end.
var x,h:real;
begin
h:=1;
x:=-2;
writeln(' x y');
while x<=2 do
begin
write(x:3);
if x<>0 then writeln(1/x:7:2) else writeln(' функция не определена');
x:=x+h;
end;
end.