Автор ValenSia задал вопрос в разделе Другие языки и технологии
Как будет выглядеть программа решения квадратного уравнения ax^2 + bx + c = 0 (Паскаль)??? и получил лучший ответ
Ответ от Roman Sikorsky[гуру]
Для Одри можно и покороче ))
Только для случая одного корня печатается 2 одинаковых. Так тоже можно
Var a,b,c,d: real;
Begin
WriteLn('Решение ax^2 + bx +c = 0');
WriteLn('Введите a b с '); ReadLn (a, b, c);
if a=0 then WriteLn('Это не квадратное уравнение. Решайте его сами! ')
else
begin
d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else WriteLn('корни: ', (-b+Sqrt(d))/(2*a),' и ', (-b-Sqrt(d))/(2*a) );
end;
ReadLn
End.Roman Sikorsky
Мастер
(1476)
странный вопрос.
это дискриминант.
Ответ от Зло[гуру]
думаю, сначала будет вычисляться дискриминант, затем будут действовать в зависимости от его значения
думаю, сначала будет вычисляться дискриминант, затем будут действовать в зависимости от его значения
Ответ от Александр[гуру]
думаю будет похожа на банкноту в 500 р
думаю будет похожа на банкноту в 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.
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 ну и стандартные случаи
сложно будет выглядеть. что придеться учесть
1. случаи выраждение в линейное уравнение
2. случаи когда ответы выходят комплексные
3 ну и стандартные случаи
Ответ от Cublen[гуру]
Поля ошибается, надо так x:=((-b)+sqrt(d))/(2*a);
xx:=((b)-sqrt(d))/(2*a);
Поля ошибается, надо так x:=((-b)+sqrt(d))/(2*a);
xx:=((b)-sqrt(d))/(2*a);
Ответ от Ђатьяна Белоусова[активный]
Выдать код ситуации и значения корней:
•–1 — бесконечное множество решений;
• 0 — нет действительных корней;
• 1 — уравнение вырождается в линейное, выдать x;
• 2 — уравнение квадратное, два различных корня, выдать x1 и x2;
• 3 — уравнение квадратное, кратный корень, выдать x;
Выдать код ситуации и значения корней:
•–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.
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.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как будет выглядеть программа решения квадратного уравнения ax^2 + bx + c = 0 (Паскаль)???