Question

Написать программы на языке паскаль на нахождение всех корней заданного квадратного уравнения.

Answer 1

Ответ:

var a,b,c: real;

   x1,x2,D: real;

begin

 readln(a,b,c);

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

 if D<0 then

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

 else if D=0 then begin

   x1 := -b/2/a;

   writeln('x1=x2=',x1);

 end

 else begin

   x1 := (-b-sqrt(D))/2/a;

   x2 := (-b+sqrt(D))/2/a;

   writeln('x1=',x1,' x2=',x2);

 end;

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Паскаль для нахождения всех корней заданного квадратного уравнения:

pascalCopy code
program QuadraticEquationRoots;

var
  a, b, c, discriminant, root1, root2: real;

begin
  writeln('Введите коэффициенты квадратного уравнения (a, b, c): ');
  readln(a, b, c);
  
  discriminant := b*b - 4*a*c;
  
  if discriminant > 0 then
  begin
    root1 := (-b + sqrt(discriminant)) / (2*a);
    root2 := (-b - sqrt(discriminant)) / (2*a);
    writeln('У уравнения два корня: ', root1:0:2, ' и ', root2:0:2);
  end
  else if discriminant = 0 then
  begin
    root1 := -b / (2*a);
    writeln('У уравнения один корень: ', root1:0:2);
  end
  else
  begin
    writeln('У уравнения нет вещественных корней.');
  end;
  
  readln;
end.

Программа сначала запрашивает у пользователя ввод коэффициентов квадратного уравнения. Затем она вычисляет дискриминант и определяет количество и значения корней в зависимости от его значения. Если дискриминант положителен, то у уравнения два корня. Если дискриминант равен нулю, то у уравнения один корень. Если дискриминант отрицателен, то у уравнения нет вещественных корней.