Question

Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0

Answer 1

Uses crt;
var
    d, a, b, c, x1, x2: real;

begin
    writeln('Введите a, b, c');
    readln(a, b, 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:2:2);
        writeln('x2 = ', x2:2:2);
    end
    else if d = 0 then
    begin
        x1 := -b / (2 * a);
        writeln('x = ', x1:2:2);
    end
    else
        writeln('Нет действительных корней');
end.

Answer 2

Конечно, вот пример программы на Pascal для нахождения корней квадратного уравнения \(ax^2 + bx + c = 0\):

program QuadraticEquation;

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

begin
  // Ввод коэффициентов уравнения
  writeln('Введите коэффициент a:');
  readln(a);

writeln('Введите коэффициент b:');
  readln(b);

writeln('Введите коэффициент c:');
  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('Уравнение имеет два действительных корня:');
    writeln('x1 = ', x1:0:2);
    writeln('x2 = ', x2:0:2);
  end
  else if D = 0 then
  begin
    // Один действительный корень
    x1 := -b / (2 * a);
    writeln('Уравнение имеет один действительный корень:');
    writeln('x = ', x1:0:2);
  end
  else
  begin
    // Два комплексных корня
    writeln('Уравнение имеет два комплексных корня:');
    writeln('x1 = (', -b / (2 * a):0:2, ', ', sqrt(abs(D)) / (2 * a):0:2, 'i)');
    writeln('x2 = (', -b / (2 * a):0:2, ', -', sqrt(abs(D)) / (2 * a):0:2, 'i)');
  end;

readln;
end.

Программа запрашивает у пользователя ввод коэффициентов \(a\), \(b\), и \(c\), затем вычисляет дискриминант \(D\). В зависимости от значения дискриминанта программа выводит корни уравнения. Если дискриминант положителен, то у уравнения два действительных корня. Если дискриминант равен нулю, то у уравнения один действительный корень. Если дискриминант отрицателен, то у уравнения два комплексных корня.