IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Решение неравенств, ... любых, квадратных или нет...
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Здравствуйте.
Хотел задать вопрос:
Есть следующе (стандартное уравнение):
ax^2+bx+c>=0
т.е. ур-е стандартного квадртаного уравнения.
Моя задача такова:
найти решения неравенства,
и просто их вывести.
Написал я следующую фенечку smile.gif:
Код

program neravenstvo;
var
   a, b, c, d, x1, x2, z: real;
begin
     write('Введите a: ');
     readln(a);
     write('Введите b: ');
     readln(b);
     write('Введите c: ');
     readln(c);
     d:=sqr(b)-4*a*c;
     if d<0 then
        begin
             writeln('хех... решений нетУ :(');
        end
       else if d>0 then
            begin
                 x1:=(-b+sqrt(d))/2*a;
                 x2:=(-b-sqrt(d))/2*a;
                 writeln;
                 writeln('Возрадуемся же... у меня 2 решения :)');
                 writeln('x1 = ',x1:2:5,' x2 = ',x2:2:5);
                 writeln;
            end
              else if d=0 then
                   begin
                   x1:=-b/(2*a);
                   writeln;
                   writeln('Решение одно');
                   writeln('x = ',x1:2:5);
                   writeln;
                   end;
          readln;
end.


Ну так вот, после показания этого ответа преподавателю,
она сказала, что все хорошо, но надо прописать еще кучу случаев, когда
выражение может получиться, а когда и вовсе нет.
То есть например к каждому случаю разобрать когда a>0
a=0 b<0 и т.п.
Ведь неравенство может быть и квадратным, а может и наоборот, ведь все зависит
от введенных человеком данных.
Вот я и хотел спросить, уважаемые господа,
какие случаи вообще могут быть?
Возможно, об этом можно почитать?
Я уже скачал 2 презентации, но обе они про квадратные уравнения,
а "смеси", к сожалению, нет нигде sad.gif((
Говорят, что возможных случаев около 14 или 20.
Если кто сможет помочь, отвалю бАлшое спасибо smile.gif))
Серега.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Вот все возможные случаи, и почему-то их всего лишь 6 yes2.gif ,а не 14 blink.gif
if (a=0) and (b<>0) then линейное уровнение(x:= -c/b)
if (b=0) and (a=0) and (c<>0) then нету решений
if (b=0) and (a=0) and (c=0) then бесконечное число решений
D>0 (d - дискременант) - решаем кваратное уровнение(2 ответа)
D=0 (1 ответ)
D<0 нету решений

Уровнение вида a*x*x+b*x+c=0
Вроде все назвал...

Решение для уровнения

Сообщение отредактировано: Bokul -


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 11.09.2025 14:09
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name