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 
 К началу страницы 
+ Ответить 

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


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

 





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