Question

Составьте программу Pascal для решения квадратичной функции y= x²-2x+12

Answer 1

var

 x:real;

begin

 read(x);

 write('y = ', x*x - 2*x + 12);

end.

Answer 2

Вот пример программы на языке Pascal, которая решает квадратичное уравнение y = x^2 - 2x + 12 и выводит корни этого уравнения, если они существуют:

pascalCopy code
program QuadraticEquation;

uses math;

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 квадратичного уравнения, вычисляет дискриминант и на основе его значения выводит корни уравнения или сообщение о том, что уравнение не имеет действительных корней.