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

Ответы 2

  • var

    a,kd,b,c,x2,x1,d:extended;

    begin

    read(a,b,c);

    d:=-4*a*c;

    if d>0 then

    begin

     

    kd:=sqrt(d); 

    x1:=(-b+kd)/2*a;

    x2:=(-b-kd)/2*a;

     

    end;

    else

    write('Нет корней');

    If x1=x2 then write(x1) else write(x1,x2);

    end.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    • Автор:

      keith
    • 6 лет назад
    • 0
  • var

    a,kd,b,c,x2,x1,d:extended;

    begin

    read(a,b,c);

    d:=-4*a*c;

    if d>0 then

    begin

     

    kd:=sqrt(d); 

    x1:=(-b+kd)/2*a;

    x2:=(-b-kd)/2*a;

     

    end;

    else

    write('Нет корней');

    If x1=x2 then write(x1) else write(x1,x2);

    end

    • Автор:

      pierce
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years