Question

Var a,b,d,c:integer; begin d:=sqr(9)=4*a*c; IF d<0 THEN cообщить;нет;решения; x1:=(-b+sqrt(D))/2*a; write ;сообщить;результат; end где ошибка в 4 строке?

Answer 1

Двоеточие, скобочка?

Answer 2

The error in the 4th line is due to the incorrect usage of the sqr function. The sqr function calculates the square of a number, but in this context, it seems like you want to calculate the discriminant of a quadratic equation.

The correct formula for the discriminant (D) of a quadratic equation ax^2 + bx + c = 0 is:

cssCopy code
D = b^2 - 4ac

So, the correct way to calculate the discriminant in your code should be:

pascalCopy code
Var a, b, d, c: integer;
begin 
  d := sqr(b) - 4 * a * c; // Corrected line to calculate the discriminant

  IF d < 0 THEN
    writeln('Нет решения')
  else
  begin
    x1 := (-b + sqrt(d)) / (2 * a);
    writeln('Результат: ', x1);
  end;
end.

Here, I've also corrected the usage of writeln to display the messages properly. The code now correctly calculates the discriminant (d) and checks if it's less than 0 to determine if the quadratic equation has real roots or not.