вычислить значение функции одной переменной z=sqr(sin(x))/(sqr(x) — 4) + sqr(cos(x))/((x — 2)*(x -5)) в интервале от -3 <= x <= 6 с шагом Hx = 0 - Pascal(Паскаль)

program test;
uses crt;
var x,z:real;
begin
clrscr;
x:=-3;
while x<=6 do
if (abs(x)<>2) and (x<>5) then
begin
z:=sqr(sin(x))/(sqr(x)-4)+sqr(cos(x))/((x-2)*(x-5));
x:=x+0.5;
writeln(z:6:2);
end
else
x:=x+0.5;
readln;
end.

Leave a Comment

− 1 = 1