Написать программу решения квадратного уравнения

@Ефросиньюшка · Регистрация: 25.10.2013

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

решить квадратное уравнение, учесть возможные варианты равенства коэффициентов a,b,c.

проходит только первое условие((( можете исправить?

Pascal

var
d,a,b,c:integer;
x,x1,x2:real;
begin
readln(a);
readln(b);
readln(c);
if a=0 then begin
x:=c/b;
writeln(x);
readln;
end;
if (a=0) and (b=0) then  begin
x:=c;
writeln(x);
readln;
end ;
if (a=0) and (b=0) and (c=0) then  begin
x:=0;
writeln(x);
readln;
end;
if (a<>0) and (b<>0) and (c<>0) then begin
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1,x2);
readln;
end;
end.

@Крюгер · 14.11.2013, 21:38

Ефросиньюшка, простите код [S]немного[\S] , попахивает глупостью.

@ildwine · 14.11.2013, 21:41

Готовый и проверенный вариант

@Крюгер · 14.11.2013, 21:47

Pascal

var
a,b,c,d,x1,x2:real;
begin
readln(a);
readln(b);
readln(c);
 
d:=(b*b)-4*a*c;
if d>0 then begin x1:= -1*b+sqrt(d)/2*a; x2:=-1*b-sqrt(d)/2*a; writeln(x1,x2); end;
if d=0 then begin x1:= -1*b+sqrt(d)/2*a; writeln(x1); end;
if d<0 then begin exit; end;
 
end.
 
//---и всё в общем то

Pascal

1
2
3

if (a=0) and (b=0) then  begin... //--вот если эта конструкция получается верной
// то это и не уравнение уже и тд, оно уравнение в том случае если эти коэффициенты
//равны хотя бы единице

@Ефросиньюшка · 15.11.2013, 20:00 **[ТС]**

Крюгер, в условии сказано, что нужно учесть варианты равенства нулю коэффициентов a, b, c. поэтому у меня решение такое на понятное, глупое и длинное. Так как вы сделали я тоже могу, вот не пойму зачем и как приравнивать коэффициенты нулю, приравняла как поняла. Может я на правильно поняла, поэтому не проходит...

@ildwine · 15.11.2013, 20:12

Ефросиньюшка, вам надо проверить только 2 условия: Первое: если a и b = 0, то есть нет неизвестных в уравнении, второе, что a = 0, то есть уравнение не квадратное и корень его x = -c/b.

@Ефросиньюшка · 15.11.2013, 20:12 **[ТС]**

Крюгер, и если прогнать программу как вы написали, то она не верно будет решать.

Сообщение от Крюгер

if d>0 then begin x1:= -1*b+sqrt(d)/2*a; x2:=-1*b-sqrt(d)/2*a; writeln(x1,x2); end;
if d=0 then begin x1:= -1*b+sqrt(d)/2*a; writeln(x1); end;

так нужно

Pascal

1 2	if d>0 then begin x1:= (-1b+sqrt(d))/(2a); x2:=(-1b-sqrt(d))/(2a); writeln(x1,x2); end; if d=0 then begin x1:= (-1b+sqrt(d))/(2a); writeln(x1); end;

@ildwine · 15.11.2013, 20:15

В оставшихся случаях решение производится по стандартной схеме, через дискриминант:

Pascal

if (a = 0) and (b = 0) then
begin
  {это не уравнение}
end else
    if (a = 0) then
    begin
      {уравнение линейное}
    end else
        begin
          {решаем через дискриминант}
        end;

@Ефросиньюшка · 15.11.2013, 20:19 **[ТС]**

ildwine, хорошо два условия. я же что то неправильно делаю. вот эти два условия ниже, опять работает программа только если перовое число ноль. я как то не правильно код составила... где ошибка? можете ее исправить?

Pascal

var
a,b,c,d,x1,x2:real;
begin
readln(a);
readln(b);
readln(c);
if a=0 then begin
x1:=c/b;
writeln(x1);
readln;
end;
if (a=0) and (b=0) then  begin
x1:=c;
writeln(x1);
readln;
end
else
d:=(b*b)-4*a*c;
if d>0 then begin x1:= (-1*b+sqrt(d))/(2*a); x2:=(-1*b-sqrt(d))/(2*a); writeln(x1,x2); end;
if d=0 then begin x1:= (-1*b+sqrt(d))/(2*a); writeln(x1); end;
if d<0 then begin exit; end;
end.

@ildwine · 15.11.2013, 20:32

Главная суть в том, что проверка следующего условия должна быть в пункте else предыдущего, у вас не работает, потому что условия независимы.

Добавлено через 28 секунд

Pascal

if (a = 0) and (b = 0) then
begin
  {это не уравнение}
end else
    if (a = 0) then
    begin
      {уравнение линейное}
    end else
        begin
          {решаем через дискриминант}
        end;

Добавлено через 1 минуту
Если первое не выполнилось, то только тогда проверяем второе, а если и второе не выполнилось, то только тогда приступаем к решению квадратного уравнения...

Добавлено через 10 минут
Вот если хотите полная программа:

Pascal

var
  d, a, b, c : integer;
  x1, x2 : real;
begin
  write('введите коэффициенты: ');
  readln(a, b, c);
  if (a = 0) and (b = 0) then
  begin
    {это не уравнение}
    writeln('это не уравнение, неизвестных нет!')
  end else
      if (a = 0) then
      begin
        {уравнение линейное}
        x1 := -c / b;
        writeln('уравнение линейное. корень уравнения: ', x1:6:2)
      end else
          begin
            {решаем через дискриминант}
            d := sqr(b) - 4 * a * c;
            if d < 0 then writeln('вещественных корней нет')
            else
              if d = 0 then
              begin
                x1 := (-b) / (2 * a);
                writeln('1 корень (кратности 2): ', x1:6:2)
              end
              else
              begin
                x1 := (-b + sqrt(d)) / (2 * a);
                x2 := (-b - sqrt(d)) / (2 * a);
                writeln('2 корня: ', x1:6:2, x2:6:2)
              end
          end;
  readln
end.

@Крюгер · 16.11.2013, 15:44

Ефросиньюшка,

Не по теме:

не дописал скобок второпях, и что?

Написать программу решения квадратного уравнения

Решение

Решение

@Крюгер 40 / 60 / 8 Регистрация: 16.11.2012 Сообщений: 460 Записей в блоге: 7
	14.11.2013, 21:38	2
	Ефросиньюшка, простите код [S]немного[\S] , попахивает глупостью. 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	14.11.2013, 21:41	3
	Готовый и проверенный вариант 1

@Ефросиньюшка 2 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 43
	15.11.2013, 20:00 [ТС]	5
	Крюгер, в условии сказано, что нужно учесть варианты равенства нулю коэффициентов a, b, c. поэтому у меня решение такое на понятное, глупое и длинное. Так как вы сделали я тоже могу, вот не пойму зачем и как приравнивать коэффициенты нулю, приравняла как поняла. Может я на правильно поняла, поэтому не проходит... 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	15.11.2013, 20:12	6
	Ефросиньюшка, вам надо проверить только 2 условия: Первое: если a и b = 0, то есть нет неизвестных в уравнении, второе, что a = 0, то есть уравнение не квадратное и корень его x = -c/b. 0

@Крюгер 40 / 60 / 8 Регистрация: 16.11.2012 Сообщений: 460 Записей в блоге: 7
	16.11.2013, 15:44	11
	Ефросиньюшка, Не по теме: не дописал скобок второпях, и что? 0