Программа не выдает ответа при решении переменной

@Keppочка · Регистрация: 01.10.2013

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

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
var
a,b,c,x1,x2,D:real;
begin
writeln('Введите коэффициенты A,B,C');
read(a,b,c);
  if (a=0) and (b=0) and (c=0)then
    writeln(' х - любое число')
     else
if (a=0) and(b=0) then
   writeln (' уравнение не имет смысла')
    else
if (a=0) and (c=0) then
    writeln('x=0')
     else
if (b=0) and (c=0) then
    writeln('x=0')
     else
if a=0 then
    begin
      x1:=(-c)/b;
        writeln(x1)
          end
         else
if b=0 then
      begin     
if (b=0) and (c>0) then
        writeln('корней нет')
         else
if (b=0) and (c<=0) then
            begin
             x1:=sqrt((-c)/a);
              writeln(x1)
              end;
               end
            else
            if c=0 then
            begin
             x1:=0;
              x2:=(-b)/a;
               writeln(x1,x2);
                end
                else
                if (a>0) and (b>0) and (c>0) then
                begin
                D:=(b*b)-4*a*c;
                read(D);
                writeln(D);
                end
                else 
                if (D>0)then
                begin
                x1:=(-b+sqrt(D))/(2*a);
                x2:=(-b-sqrt(D))/(2*a);
                writeln(x1, x2);
                end
                else 
                if D<0 then
                Writeln('Корней нет');
                  end.

Программа не выдает ответа при решении переменной D.
Какая ошибка?

@Puporev · 29.11.2013, 17:39

Чего-то вы тут наворотили, но не буду сильно лезть, напишите так. А D вводить не нужно, дискриминант вычисляют.

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
uses crt;
var a,b,c,x1,x2,D:real;
begin
writeln('Введите коэффициенты A,B,C');
read(a,b,c);
if (a=0) and (b=0) and (c=0)then  writeln(' х - любое число')
else if (a=0) and(b=0) then writeln (' уравнение не имет смысла')
else if ((a=0) and (c=0))or((b=0) and (c=0)) then  writeln('x=0')
else
if a=0 then
 begin
  x1:=(-c)/b;
  writeln('x=',x1)
 end
else
if b=0 then
 begin
   if c>0 then writeln('корней нет')
   else
    begin
     x1:=sqrt((-c)/a);
     writeln('x=',x1)
    end
 end
else if c=0 then
 begin
  x1:=0;
  x2:=(-b)/a;
  writeln('x1=',x1,' x2=',x2);
 end
else
 begin
  D:=(b*b)-4*a*c;
  writeln('D=',D);
  if (D>0)then
   begin
    x1:=(-b+sqrt(D))/(2*a);
    x2:=(-b-sqrt(D))/(2*a);
    writeln('x1=',x1,' x2=',x2);
   end
  else if D<0 then Writeln('Корней нет');
 end;
end.

@Keppочка · 29.11.2013, 17:47 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Keppочка 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 39
	29.11.2013, 17:47 [ТС]
	Спасибо 0