найти и вывести на экран все значения в интервале [-1,8,+2,1] (шаг +0,1) [-1,+1] (шаг +0,05)
Free Pascal
uses math;
var
x, y : double;
i : integer;
begin
i:=-18;
while i <= 21 do begin
x:=i/10;
if x<>0 then begin
y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);
Writeln('f[',x:1:1,']=',y:4:4);
end
else
Writeln('f[',x:1:1,']= решения нет, деление на 0');
inc(i);
end;
writeln();
i:=-100;
while i<=100 do begin
x:=i/100;
if x<>0 then begin
y:=(sin(x)-sqrt(sqr(x)+7))/(power(x,3)-3*x);
Writeln('f[',x:2:2,']=',y:4:4);
end
else
Writeln('f[',x:2:2,']= решения нет, деление на 0');
inc(i,5)
end;
end.
