Question

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

Answer 1

Ответ:

var a, b, c, x1, x2, e, d : real;

BEGIN

    WriteLn('Введите коэффициенты уравнения a,b,c:');

    ReadLn(a, b, c);

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

    e:= b/(2*a);

    if d<0 then WriteLn('Мнимые корни')

    else if d=0 then WriteLn('Корни квадратного уравнения: x1=x2', -e)

    else

        begin

             x1:= -e+sqrt(d)/(2*a);

             x2:= -e-sqrt(d)/(2*a);

             WriteLn('Корни квадратного уравнения: X1=', x1:6:2, ', X2=', x2:6:2);

        end

END.

Answer 2

Ответ:

главное не забыть про ; и точку в конце, а также не стоит забывать про значок *, который означает умножение и без него программа не заработает.

Answer 3

Конечно! Вот пример программы на языке Паскаль для нахождения корней квадратного уравнения при заданных коэффициентах a, b и c:

pascalCopy code
program QuadraticEquation;

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

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

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

  if discriminant > 0 then
  begin
    x1 := (-b + sqrt(discriminant)) / (2 * a);
    x2 := (-b - sqrt(discriminant)) / (2 * a);
    writeln('Уравнение имеет два корня:');
    writeln('x1 = ', x1:0:2);
    writeln('x2 = ', x2:0:2);
  end
  else if discriminant = 0 then
  begin
    x1 := -b / (2 * a);
    writeln('Уравнение имеет один корень:');
    writeln('x = ', x1:0:2);
  end
  else
  begin
    writeln('Уравнение не имеет действительных корней.');
  end;

  readln;
end.

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

Обратите внимание, что программа предполагает, что введенные пользователем значения коэффициентов являются действительными числами.