Решение квадратного неравенства

@Woop · Регистрация: 23.03.2012

Студворк — интернет-сервис помощи студентам

Всем привет.Нужно написать программу решения неравенства ax²+bx+c>=0 с условным. Вот что получилось, но хочется как-то упростить, помогите, пожалуйста(и если есть ошибки носом ткните), кому несложно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Program _1;
uses crt;
var
a,b,c,d,x,x1,x2:real;
Begin
clrscr;
Readln(a,b,c);
if a=0 then
   if b=0 then
      if c<=0 then write('net resh')
      else write('(-8;+8)')
   else
       if b>0 then
          if c=0 then write('[0;+8)')
          else write(c/b,';+8')
       else
           if c=0 then write('(-8;0]')
           else write('(-8;',c/b,']')
else
    if a>0 then
       if b=0 then
          if c=0 then write('(-8;+8)')
          else
              if c<0 then write('(-8;',c/a,']','U[',-c/a,';+8)')
              else write('net resh')
       else
           if c=0 then write('(-8;',-b/a,']U(0;+8)')
              else
                  begin
                  d:=sqr(b)-4*a*b;
                                  if d<>0 then
                                     if d>0 then
                                     begin
                                     x1:=(-b+sqrt(d))/(2*a);
                                     x2:=(-b-sqrt(d))/(2*a);
                                     write('(-8;',x1,']U[',x2,'+8)');
                                     end
                                     else write('net resh')
                                  else write('(-8;+8)');
 
                  end
    Else
        if b=0 then
           if c=0 then write('(-8:0]')
           else
               if c>0 then
                  begin
                  d:=sqr(b)-4*a*b;
                                  if d<>0 then
                                     if d>0 then
                                     begin
                                     x1:=(-b+sqrt(d))/(2*a);
                                     x2:=(-b-sqrt(d))/(2*a);
                                     write('[',x1,';',x2,']');
                                     end
                                     else write('net resh')
                                  else write('(-8;+8)');
                  end
               else write('net resh')
           else
               if b>0 then
                  if c=0 then write('[0;',b/-a,']')
                  else
                      begin
                      d:=sqr(b)-4*a*b;
                                  if d<>0 then
                                     if d>0 then
                                     begin
                                     x1:=(-b+sqrt(d))/(2*a);
                                     x2:=(-b-sqrt(d))/(2*a);
                                     write('[',x1,';',x2,']');
                                     end
                                     else write('net resh')
                                  else write('(-8;+8)');
                      end
                  else
                      if c=0 then write('[',-b/a,';0]')
                      else
                      begin
                      d:=sqr(b)-4*a*b;
                                  if d<>0 then
                                     if d>0 then
                                     begin
                                     x1:=(-b+sqrt(d))/(2*a);
                                     x2:=(-b-sqrt(d))/(2*a);
                                     write('[',x1,';',x2,']');
                                     end
                                     else write('net resh')
                                  else write('(-8;+8)');
                      end;
end.

Добавлено через 5 часов 48 минут

Сообщение от Woop

d:=sqr(b)-4*a*b;

тут с переменная, по инерции написал

@Севак · 24.03.2012, 10:43

Woop,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var
a,b,c,x1,x2,min,max,d: real;
begin
min:=0;
max:=0;
writeln('Введите коэффиценты квадратного неравенства:');
read(a,b,c);
d:=sqr(b)-4*a*c;
if d<0 then write('Решения нет!');
if d=0 then write('Решение на всей области определения!');
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
if x1<x2 then begin min:=x1; max:=x2; end;
if x2<x1 then begin min:=x2; max:=x1; end;
if a>0 then begin
write('(-беск, ',min,') U (',max,', +беск)');
end;
if a<0 then begin
write('(',min,', ',max,')');
end;
end;
end.

как-то так)

@thyrex · 24.03.2012, 14:10

Скорее так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var a, b, c, x1, x2, min, max, d: real;
begin
 writeln('Введите коэффиценты квадратного неравенства:');
 readln(a,b,c);
 d:=sqr(b)-4*a*c;
 if d<0
  then
   if a<0
    then writeln('Решения нет!')
    else writeln('Решение на всей области определения!');;
 if d=0
  then
   if a>0
    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 x1<x2
     then
      begin
       min:= x1;
       max:= x2;
      end
     else
      begin
       min:= x2;
       max:= x1;
      end;
    if a>0
     then writeln('(-беск; ', min, ') U (', max, '; +беск)')
     else writeln('(', min, '; ', max, ')');
   end;
end.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .