Регистрация
kristaile
18.06.2022 18:20
Информатика
Есть ответ 👍

Подскажите , где в програме вычисления корней квадратного уравнения допущена ошибка. написана на паскале. 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(*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.

195
302
Посмотреть ответы 2

Ответы на вопрос:

tahmina9
tahmina9
4,5(93 оценок)
1. если d> 0, то квадратное уравнение имеет 2 корня. после вычисления x1 нужно добавить x2: = (-1*b-sqrt(d))/(2*a); и в начале  описать переменную x2 : real; 2. по хорошему нужно проверять, не равен ли коэффициент a нулю. если а=0, то при вычислении х1 и х2 получится деление на ноль. поэтому х1 и х2 нужно вычислять только если а не равно нулю (поставить условие if a< > 0 then в противном случае: else x1: =-c/b.
worker0
worker0
4,8(87 оценок)

Var a, b, z :longint;

Begin

WriteLn('Введите два числа','a','b');

ReadLn(a);  readln(b);

z:=sqrt(a-b);

WriteLn('Корень квадратный из числа равен.',z);

end.

Объяснение:

Популярно: Информатика