: 8
Программа для неравенства
Дано неравенство ax^2+bx+c>=0
Можете помочь дописать программу и отдельно процедуру, которая вычисляет то же самое
var a, b, c, x1, x2, min, max, d: real; begin writeln(‘Введите коэффиценты квадратного неравенства:’); readln(a,b,c); d:=sqr(b)-4*a*c; if d0 then writeln(‘Решение на всей области определения!’) else writeln(‘x = ‘, -b/(2*a)); if d>0 then begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); if x10 then writeln(‘(-беск; ‘, min, ‘) U (‘, max, ‘; +беск)’) else writeln(‘(‘, min, ‘; ‘, max, ‘)’); end; end.
Источник: www.programmersforum.ru
Как написать программу, которая решает неравенство на C++?
Напишите программу, которая решает неравенство (ax+b)(x-a) > b относительно x для любых действительных чисел a и b, введенных с клавиатуры. Желательно, не слишком замудренную.
Программирование Программы +2
Анонимный вопрос
29 сентября 2021 ·
Математик-системный программист, разработчик асу тп для аэс. · 31 окт 2021
Как мы обычно решаем такую задачу?
Профильный ЕГЭ 2023. Задача 14. Неравенства. Метод интервалов. 10 класс
(ax+b)(x-a) > b , мы приводим её к виду сравнения многочлена с нулём, переносим b влево и раскрываем скобки, и находим корни многочлена.
ax^2+(b-a^2)x-ba-b>0
Теперь всё хорошо, это парабола. стоп, давайте взглянем внимательно, не совсем, может ведь быть вырожденный случай. если а=0, то это прямая рассмотрим его отдельно
1 Если а == 0
Теперь также надо смотреть внимательно
1.1 Если b== 0, как видно можно выдать ответ «корней нет»
1.2 Если b>0, легко видно что ответ x>1 «икс принадлежит (1,бесконечность)»
1.3 Если b
Теперь остались только случаи когда а!=0, то есть это парабола. будем искать корни многочлена, для этого нужен дискриминант
D=(b-a^2)^2-4a(-ba-b).
Теперь надо вспомнить что «рога» параболы направлены вверх если коэффициент при x^2>0 ( и соответственно наоборот) отсюда можно начинать писать ответы
Источник: yandex.ru
Написать программу которая решает неравенство
: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Pascal. Программа решения неравенства ax+b
Написать программу решения неравенства ax+b<0 для любых a и b .
: 0
: 55
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 40
var a, b, x: real; begin Writeln(‘Введите a:’); Readln(a); if a=0 then writeln(‘Error: a=0!’) else begin Writeln(‘Введите b:’); Readln(‘b’); x:=-b/a; writeln(‘x<‘,x); end; readln; end.
Проверь, должна работать
: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Благодарю тебя, о мудрейший.
САМОЕ ПРОСТОЕ неравенство #shorts
: 55
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 40
Коэффициент а в любом случае не должен быть равен нулю
Студент БГПУ
: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
На сколько мне известно, то при а<0 знак неравенства меняется на противоположный
: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
: 55
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 40
На сколько мне известно, то при а<0 знак неравенства меняется на противоположный
Блин, виноват. Сейчас перепишу
Vladimir_S
Специалист
: 27,809
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
На сколько мне известно, то при а<0 знак неравенства меняется на противоположный
Абсолютно верно, нужно обязательно в программу добавить такое ветвление.
: 55
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 40
var a, b, x: real; begin Writeln(‘Введите a:’); Readln(a); if a=0 then writeln(‘Error: a=0!’) else begin Writeln(‘Введите b:’); Readln(‘b’); x:=-b/a if a>0 then writeln(‘x<‘,x) else writeln(‘x>’,x) end; readln; end.
Поторопился чуть-чуть 🙁
Источник: www.tehnari.ru