Question

Составьте программу определения корней квадратного уравнения для введённых с клавиатуры коэффициентов Pascal ABC​

Answer 1

Ответ:

PascalABC.NET

begin

 var (a, b, c) := ReadInteger3();

 var D := b**2 - (4*a*c);

 if D < 0 then Println('D < 0. No Roots')

 else if D = 0 then Println('Root: ', (-b/(2*a)))

 else Println('Roots: ', (-b+sqrt(D))/2*a, (-b - sqrt(D)) / 2*a);

end.

Answer 2

Для составления программы определения корней квадратного уравнения в Pascal ABC, мы будем запрашивать пользовательские входные данные для коэффициентов a, b и c, а затем вычислять дискриминант и находить корни уравнения, если они существуют. При этом предполагается, что вводимые коэффициенты являются числами.

Вот программа на Pascal ABC:

pascalCopy code
program QuadraticEquation;

var
  a, b, c: Real;
  discriminant, x1, x2: Real;

begin
  WriteLn('Введите коэффициенты квадратного уравнения ax^2 + bx + c = 0');
  Write('Введите коэффициент a: ');
  ReadLn(a);
  Write('Введите коэффициент b: ');
  ReadLn(b);
  Write('Введите коэффициент c: ');
  ReadLn(c);

  if a = 0 then
  begin
    if b = 0 then
    begin
      WriteLn('Уравнение вырождается в константу, корней нет.');
    end
    else
    begin
      WriteLn('Уравнение является линейным, один корень:');
      x1 := -c / b;
      WriteLn('x = ', x1:0:2);
    end;
  end
  else
  begin
    discriminant := b * b - 4 * a * c;
    if discriminant > 0 then
    begin
      WriteLn('Два корня:');
      x1 := (-b + Sqrt(discriminant)) / (2 * a);
      x2 := (-b - Sqrt(discriminant)) / (2 * a);
      WriteLn('x1 = ', x1:0:2);
      WriteLn('x2 = ', x2:0:2);
    end
    else if discriminant = 0 then
    begin
      WriteLn('Один корень:');
      x1 := -b / (2 * a);
      WriteLn('x = ', x1:0:2);
    end
    else
    begin
      WriteLn('Действительных корней нет. Корни являются комплексными числами.');
    end;
  end;
end.

Программа предоставляет пользователю ввести коэффициенты a, b и c с клавиатуры, а затем выводит результат согласно наличию и типу корней уравнения.