Вопрос, который вызвал трудности
Программа на Паскаль Решить квадратное уравнение
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Программа на Паскаль Решить квадратное уравнение
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program kvuravn;
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
Writeln(‘Введите коэффициенты квадратного уравнения’);
Read (a, b, c);
d:=sqr(b) – 4*a*c;
if d > 0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln (‘2 корня’, x1, x2);
end
else if d = 0 then begin
x1:=-b/(2*a);
writeln (‘корень один’, x1);
end
else write (‘ корней нет’);
readkey;
end.
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
Writeln(‘Введите коэффициенты квадратного уравнения’);
Read (a, b, c);
d:=sqr(b) – 4*a*c;
if d > 0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln (‘2 корня’, x1, x2);
end
else if d = 0 then begin
x1:=-b/(2*a);
writeln (‘корень один’, x1);
end
else write (‘ корней нет’);
readkey;
end.