Question

Описать процедуру , решающую квадратное уравнения. (pascal)

Answer 1

Старая прога, поэтому код такой себе, но вроде понятно должно быть

Answer 2

Вот пример процедуры на языке Pascal, которая решает квадратное уравнение:

pascalCopy code
program QuadraticEquationSolver;

uses Math;

procedure SolveQuadraticEquation(a, b, c: Real; var x1, x2: Real; var numRoots: Integer);
var
  discriminant: Real;
begin
  discriminant := Power(b, 2) - 4 * a * c;
  
  if discriminant > 0 then
  begin
    numRoots := 2;
    x1 := (-b + Sqrt(discriminant)) / (2 * a);
    x2 := (-b - Sqrt(discriminant)) / (2 * a);
  end
  else if discriminant = 0 then
  begin
    numRoots := 1;
    x1 := -b / (2 * a);
  end
  else
  begin
    numRoots := 0;
  end;
end;

var
  a, b, c, x1, x2: Real;
  numRoots: Integer;

begin
  writeln('Enter coefficients of the quadratic equation:');
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);
  write('c: ');
  readln(c);
  
  SolveQuadraticEquation(a, b, c, x1, x2, numRoots);
  
  case numRoots of
    2: writeln('The equation has two real roots: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
    1: writeln('The equation has one real root: x = ', x1:0:2);
    0: writeln('The equation has no real roots.');
  end;
  
  readln;
end.

Эта процедура принимает коэффициенты a, b и c квадратного уравнения и решает его, вычисляя дискриминант и находя корни. Результаты сохраняются в переменных x1 и x2, а количество найденных корней сохраняется в переменной numRoots. В зависимости от значения numRoots, программа выводит соответствующее сообщение о корнях уравнения.