Программа: var x,y,h:real; begin x:=-2;h:=1; writeln(' x y'); while x<=2 do 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 Блок-схема - в прилагаемом файле
Answers & Comments
Verified answer
Программа:var x,y,h:real;
begin
x:=-2;h:=1;
writeln(' x y');
while x<=2 do
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
Блок-схема - в прилагаемом файле