Есть ответ 👍

Найди по таблицы значение переменных р и к . подставь эти значения в уравнение и реши его.

240
293
Посмотреть ответы 1

Ответы на вопрос:


Pascalabc.net var   a,d,x,z: real; begin   a: =1.2; d: =3.8; x: =-2;   while x< =2 do begin       if abs(x)> =0.0001 then begin { вот так приходится обходить нули! }           if x> 0.4 then z: =exp(sqrt(x+1))           else z: =cos(a*x)/sin(a*x)+sin(d*x);           writeln('x=',x: 7: 4,', z=',z: 7: 4)       end       else writeln('функция не определена для x=0');       x: =x+0.4   end end. результат выполнения программы x=-2.0000, z= 0.1238 x=-1.6000, z= 0.5659 x=-1.2000, z= 0.8569 x=-0.8000, z=-0.8015 x=-0.4000, z=-2.9195 функция не определена для x=0 x= 0.4000, z= 2.9195 x= 0.8000, z= 3.8253 x= 1.2000, z= 4.4072 x= 1.6000, z= 5.0151 x= 2.0000, z= 5.6522

Популярно: Информатика