Question

Пишет ошибка встречено "else",а ожидалось оператор, написано на паскале. var a,b,c,D,x1,x2:real; begin writeln('Введите коэффициент a'); readln(a); writeln('Введите коэффициент b'); readln(b); writeln('Введите коэффициент с'); readln(c); D:=b*b-4*a*c; begin if D>=0 then x1:=(-b-sqrt(D))/(2*a); x2:=(-b+sqrt(D))/(2*a); end; Else writeln('корней нет'); begin writeln('x1=',x1); writeln('x2=',x2); writeln('D=',D); writeln('Sqrt(D)=',sqrt(D)); end; End.

Answer 1

Ответ:

Объяснение:

Можешь просто написать

if D<0 then  

 writeln ('Корней нет');

Answer 2

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

pascalCopy code
var
  a, b, c, D, x1, x2: real;

begin
  writeln('Введите коэффициент a');
  readln(a);
  writeln('Введите коэффициент b');
  readln(b);
  writeln('Введите коэффициент с');
  readln(c);

  D := b * b - 4 * a * c;

  if D >= 0 then
  begin
    x1 := (-b - sqrt(D)) / (2 * a);
    x2 := (-b + sqrt(D)) / (2 * a);
    writeln('x1=', x1);
    writeln('x2=', x2);
  end
  else
    writeln('корней нет');

  writeln('D=', D);
  writeln('Sqrt(D)=', sqrt(D));
end.

Внесенные изменения:

1. Убрано дополнительное слово "begin" перед первым условным оператором "if".
2. Добавлено ключевое слово "begin" перед блоком кода, который должен выполняться в случае, когда D >= 0.
3. Убраны лишние "begin" и "end" вокруг блока кода, выводящего значения x1, x2, D и Sqrt(D). Этот блок должен выполняться всегда, независимо от условия.

Теперь код должен компилироваться без ошибок и правильно вычислять корни квадратного уравнения и значение дискриминанта D.