Программа:
var x,y,h:real;
begin
x:=-2;h:=1;
writeln(' x y');
while x<=2 do<br> begin
write(x:3);
if x+1<>0 then
begin
y:=2*x/(x+1);
writeln(y:7:2)
end
else writeln(' функция не определена');
x:=x+h;
end;
end.
Пример:
x y
-2 4.00
-1 функция не определена
0 0.00
1 1.00
2 1.33
Блок-схема - в прилагаемом файле