Нарисать алгоритм нахождения значения функции на Pascal: y=(x2 + 3x -4 )/(x - 7)
Answers & Comments
maksimdyachenkp053zv
Program V; Var y, x: real; Begin writeln(‘значение функции y’); x:=-4; while x<=2 do begin y:=4*x^2-2*x+3 ; x:=x+0,5; writeln(y:16:4); end; End.
Answers & Comments
Var y, x: real;
Begin
writeln(‘значение функции y’);
x:=-4;
while x<=2 do
begin
y:=4*x^2-2*x+3 ;
x:=x+0,5;
writeln(y:16:4);
end;
End.