Мышь - осязание, слух и обоняние дельфин - органы слуха крот - обоняние
Chausmonk4
19.09.2020
Улетучий мыши- слух, у дельфина - тоже слух , а у крота нюх.
Bella Sergei
19.09.2020
// pascalabc.net 3.0, сборка 1052 const a=-6; b=6; h=1; begin for var x: =a to b do writeln('x=',x: 2,', y=',ln(sqr(x)-9)/x) end. результат выполнения программы: x=-6, y=-0.549306144334055 x=-5, y=-0.554517744447956 x=-4, y=-0.486477537263828 x=-3, y=бесконечность x=-2, y=nan x=-1, y=nan x= 0, y=nan x= 1, y=nan x= 2, y=nan x= 3, y=-бесконечность x= 4, y=0.486477537263828 x= 5, y=0.554517744447956 x= 6, y=0.549306144334055 примечание: nan система выдает, если не может выполнить какое-то действие. в данном случае под знаком логарифма оказывается неположительное число.
arionul-secondary2
19.09.2020
Версия языка не указана, поэтому сделал в самой последней и в самой старой, которая нашлась. // pascalabc.net 3.0 function f(a, b, x: double): = (1 + power(a, x)) / ((b - x) * power(sin(x), 3)); const a = 3.45; b = 1.62; var x : = 0.1; xe : = 3.1; h : = 0.15; y, xn, yn, xp, yp: double; begin yp : = maxdouble; yn : = yp; repeat y : = f(a, b, x); if y > 0 then begin if y < yp then begin yp : = y; xp : = x end end else if y < 0 then begin if y < yn then begin yn : = y; xn : = x end end; x += h; until x > xe; writeln('минимальное отрицательное ', yn, ' при х=', xn); writeln('минимальное положительное ', yp, ' при х=', xp) end. тестовое решение: минимальное отрицательное -446219.37704747 при х=3.1 минимальное положительное 11.837734702392 при х=0.85 { borland pascal 7.01 } {$g+} {$n+} uses crt; function f(a,b,x: double): double; begin f: =(1+exp(x*ln(/((b-x)*exp(3*ln(sin( end; const a = 3.45; b = 1.62; var x,xe,h,y,xn,yn,xp,yp: double; begin clrscr; x : = 0.1; xe : = 3.1; h : = 0.15; yp : = 1e308; yn : = yp; repeat y : = f(a, b, x); if y > 0 then begin if y < yp then begin yp : = y; xp : = x end end else if y < 0 then begin if y < yn then begin yn : = y; xn : = x end end; x : = x + h; until x > xe; writeln('минимальное отрицательное ', yn, ' при х=', xn); writeln('минимальное положительное ', yp, ' при х=', xp); readkey end. тестовое решение: минимальное отрицательное -4.46219377047470e+0005 при х= 3.10000000000000e+0000 минимальное положительное 1.18377347023920e+0001 при х= 8.50000000000000e-0001