Написать программу вычисления значений функции:
y=2x/(x+1) для всех х из интервала [-2;2] с шагом равным 1
Пожалуйста со схемкой и самой программой. Спасибо
Ответы на вопрос
Ответил petyaGavrikov
0
Программа:
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
Блок-схема - в прилагаемом файле
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
Блок-схема - в прилагаемом файле
Приложения:
Новые вопросы