clc;
clear all;
c=4; b=16;
h=input('Введите шаг: ')
i=1; a=[0;0;0;0;0]; x=c;
while x<=b %выполнение цикла
y1=sin(x)-sqrt(x)+3; %разность функций
y2=sin(x+h)-sqrt(x+h)+3;
if y1*y2<0 %идентификация пересечения
a(i)=x;
i=i+1;
end; x=x+h;
end;
disp('Начинаем находить интервал, в который входят 5 первых корней уравнения sin(x)=sqrt(x)-3');
disp('Со значения');
disp(a(1));
disp('до значения');
disp(a(5));
x=c:h:b; % задание массива точек для построения графика
y1=sin(x);
y2=sqrt(x)-3;
hold on;
grid on;
plot(x,y1,'color','red','LineWidth',1) %построение графика
plot(x,y2,'color','green','LineWidth',1)
dl=a(5)+h-a(1);
disp('Длина=');
disp(dl);
legend('y1=sin(x)','y2=sqrt(x)-3');