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

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

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

> Решение неравенств, ... любых, квадратных или нет...
Домовой
сообщение 11.01.2006 1:14
Сообщение #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

 

- Текстовая версия 30.07.2025 3:38
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"