Question

Даны действительные числа a, b, c. Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax2 + bx + c = 0. Формат входных данных Даны три действительных числа, a не равно 0. Формат выходных данных Выведите два действительных числа, если уравнение имеет два корня, одно действительное число – при наличии одного корня. При отсутствии действительных корней ничего выводить не нужно.ПАСКАЛЬ

Answer 1

Var a,b,c:real;
begin 
read(a,b,c);
if sqr(b)-4*a*c>0 then write((-b-sqrt(sqr(b)-4*a*c))/(2*a),' ',(-b+sqrt(sqr(b)-4*a*c))/(2*a)) else
if sqr(b)-4*a*c=0 then write(-b/(2*a))
end.

Answer 2

Задача

Даны действительные числа a, b, c. Найдите все решения квадратного уравнения ax^2 + bx + c = 0.

Решение

Квадратное уравнение обычно имеет два решения, хотя в некоторых случаях может иметь только одно или даже ни одного решения. Чтобы найти решения, мы можем использовать формулу дискриминанта.

Формула дискриминанта:

Дискриминант (D) квадратного уравнения ax^2 + bx + c = 0 вычисляется следующим образом:

D = b^2 - 4ac

Если D > 0:

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

x1 = (-b + √D) / (2a)

x2 = (-b - √D) / (2a)

Если D = 0:

Если дискриминант равен нулю, то уравнение имеет одно решение. Мы можем найти это решение, используя следующую формулу:

x = -b / (2a)

Если D < 0:

Если дискриминант меньше нуля, то уравнение не имеет действительных корней.

Пример кода на Pascal

program QuadraticEquation;

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

begin
  // Ввод коэффициентов a, b, c
  Write('Введите коэффициент a: ');
  Readln(a);
  Write('Введите коэффициент b: ');
  Readln(b);
  Write('Введите коэффициент 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('Уравнение не имеет действительных корней.');
  end;

Readln;
end.

Этот пример кода на языке Pascal решает квадратное уравнение, вводя коэффициенты a, b и c, вычисляя дискриминант и выводя корни уравнения в зависимости от значения дискриминанта. Код проверяет различные условия и выбирает соответствующие вычисления и вывод.