Вычисление производится "в столбик". 1 1 0 0 1 0 1 0 1 х 1 0 0 1 1 1 0 0 1 0 1 0 1 +1 1 0 0 1 0 1 0 1 1 1 1 0 0 0 1 1 1 1 0 1 чтобы не загромождать решение, строки из нулей, полученные умножением на 0, не пишутся. поэтому в суммировании участвуют лишь значения, представляющие собой первый сомножитель, сдвинутый до уровня единиц из разрядов второго сомножителя. в нашем случае это самая правая позиция и позиция, со свигом влево на три разряда.
Aleksandr72
04.06.2023
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