ax2 bx c 0

Ответ от Зло[гуру]
думаю, сначала будет вычисляться дискриминант, затем будут действовать в зависимости от его значения

Ответ от Александр[гуру]
думаю будет похожа на банкноту в 500 р

Ответ от ***поля***[гуру]
program Untitled;
uses crt;
var
a,b,c,d:integer;
x,xx:real;
function lin(b,c:integer):real;
begin
result:=((-1)*c)/b;
end;
function des(a,b,c:integer):integer;
begin
result:=(b*b)-(4*a*c);
end;
procedure resh(a,b,c,d:integer;var x,xx:real);
begin
x:=(((-1)*b)+sqrt(d))/2*a;
xx:=(((-1)*b)-sqrt(d))/2*a;
end;
begin
writeln('Enter coeffisents');
readln (a, b, c);
if a<>0 then
begin
d:=des(a,b,c);
if d<0 then
begin
writeln('No operations');
end
else
begin
resh(a,b,c,d,x,xx);
writeln('X1= ',x, ' X2= ',xx);
end;
end
else
begin
x:=lin(b,c);
writeln('X= ',x);
end;
readkey;
end.

Ответ от Николай[гуру]
сложно будет выглядеть. что придеться учесть
1. случаи выраждение в линейное уравнение
2. случаи когда ответы выходят комплексные
3 ну и стандартные случаи

Ответ от Cublen[гуру]
Поля ошибается, надо так x:=((-b)+sqrt(d))/(2*a);
xx:=((b)-sqrt(d))/(2*a);

Ответ от Ђатьяна Белоусова[активный]
Выдать код ситуации и значения корней:
•–1 — бесконечное множество решений;
• 0 — нет действительных корней;
• 1 — уравнение вырождается в линейное, выдать x;
• 2 — уравнение квадратное, два различных корня, выдать x1 и x2;
• 3 — уравнение квадратное, кратный корень, выдать x;

Ответ от Кирилл Волков[активный]
Program n;
uses crt;
var
a, b, c, d, x1, x2: real;
begin
clrscr;
writeln ('Введите значение а');
readln (a);
writeln ('Введите значение b');
readln (b);
writeln ('Введите значение c');
readln (c);
d:=sqr (b) - 4 * a * c;
if d<0 then
begin
writeln ('Корней нет');
end;
if d=0 then
begin
x1:=(-b)/(2*a);
writeln ('Корень = ',x1);
end;
if d>0 then
begin
x1:=((-b)+(sqrt (d))/(2*a);
x2:=((-b)-(sqrt (d))/(2*a);
writeln ('Корени = ',x1:0:4,' и ',x2:0:4);
end;
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]