• 18 March 2017
    • Українська література
    • Автор: PetraAkkerman840

    Подскажите пожалуйста, где в програме вычисления корней квадратного уравнения допущена ошибка. Написана на паскале.

    Program Dis;

    var
    x1, a, b, c, x2, d := real;
    begin
    wrireln('введите a');
    readln(a);
    wrireln('введите b');
    readln(b);
    wrireln('введите c');
    readln(c);
    d :=sqr(b)-(4*a*c);
    writeln('D=', d);
    if d>0
    then
    x1 :=(-1*b-sqrt(d))/(2*a);
    x2 :=(-1*b+sqrt(d))/(2*a);
    writeln('x1=', x1);
    writeln('x2=', x2)
    else
    begin
    if d<0 then
    writeln('х не существует')
    else
    begin
    x1 :=(-1*b+sqrt(d))/(2*a);
    writeln('x1=', x1);
    end

    end


    end.

    • Ответ оставил: Мненужнпомошь
    1. Если D>0, то квадратное уравнение имеет 2 корня. После вычисления X1 нужно добавить X2:=(-1*b-sqrt(d))/(2*a); и в начале описать переменную X2 : real;2. По хорошему...
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы