Найти наименьшее положительное и меньше отрицательное значение функции и соответствующее им значение аргумента: a=(1+a^x)/((b-x)sin^3(x)) a=3.45 b=1.62. аргумент х изменяется от начального значения 0.1 с шагом 0.15 до конечного 3.1 (радиан) (а^x-то имеется ввиду что а в степени "х" так же и синус в степени) на языке !

138

371

Посмотреть ответы 2

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

EnglishGod

Информатика

4,5(74 оценок)

Версия языка не указана, поэтому сделал в самой последней и в самой старой, которая нашлась. // 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

NatyGranilace

Информатика

4,5(10 оценок)

Var a, b: integer; begin assign(input, 'input.txt'); assign(output, 'input.txt'); reset(input); rewrite(output); readln(input, a, b); if (a mod 2 = 1) then writeln(output, b mod 2) else writeln(output, '0'); close(input); close(output); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.