Вопрос Решение квадратного уравнения через паскаль.

[Пурднльй]

Помогите решить проблему. В решении обязательно должны рассматриваться варианты, когда a,b,c равны 0

 

[12434135435]

Вот так почти правильно: uses crt;
var a, b, c, d, e, x1, x2: real;
begin
textbackground(white);
textcolor(black);
clrscr();
write('a b c: ');
readln(a, b, c);
if a = 0 then
if b = 0 then
if c = 0 then writeln('x ∈ ℝ')
else writeln('x ∈ ∅')
else writeln('x = ', -c/b)
else
begin
d := b * b - 4 * a * c;
if d < 0 then writeln('x ∈ ∅')
else
if d = 0 then writeln('x = ', -0.5*b/a)
else
begin
e := sqrt(d);
x1 := 0.5*(-b - e)/a;
x2 := 0.5*(-b + e)/a;
if x1 > x2 then
begin
e := x1;
x1 := x2;
x2 := e
end;
writeln('x₁ = ', x1, ', x₂ = ', x2)
end
end
end. К сожалению, есть один неприятный случай, когда |4ac/b²|&lt;&lt;1. Вот специально для этого случая всю программу придётся переписывать, чтобы она работала корректна - тут требуется переходная асимптотика, что выходит далеко за рамки средней школы. Напиши́те мне если Вам этот случай обязательно необходимо учитывать!

 

[Toni]

Ни черта не видно на фотке, но судя по ошибке должно быть что-то типа такого

if (a=0) and (b=0) and (c=0) then ...

 

[сава]

Ты сам свой скрин с какой лупой рассматриваешь? На будущее: здесь мало кто получает адекватный ответ, когда нет кода в текстовом отформатированном виде.

 

[ввввв]

uses crt;
var
a,b,c,d,x1,x2,rx,ix: real;
begin
{Вводим значения a, b и c}
clrscr;
write(&#39;Wwedite A: &#39;
readln(a);
write(&#39;Wwedite B: &#39;
readln(b);
write(&#39;Wwedite C: &#39;
readln(c);
if
{Вычисляем дискриминант}
d:= b*b - 4*a*c;
{Если дискриминант больше 0, то вычисляем корни и выводим на экран}
if d &gt;= 0 then
begin
x1:= (-b + sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
writeln(&#39;x1 = &#39;,x1:4:2);
writeln(&#39;x2 = &#39;,x2:4:2);
end;

{Если дискриминант меньше 0, то выводим сообщение}
if d &lt; 0 then
begin
writeln(&#39;корни комплексные&#39;
rx:= -b/(2*a);
ix:=sqrt(-d)/(2*a);
writeln(&#39;x1 = &#39;,rx:4:2,&#39; + &#39;,ix:4:2,&#39; i&#39;
writeln(&#39;x1 = &#39;,rx:4:2,&#39; - &#39;,ix:4:2,&#39; i&#39;
end;
readln;
end.