Question

Как на Паскале решить уравнение x^2-9x+20=0? СРОЧНО, ДАЮ 37 БАЛЛОВ!

Answer 1

Ответ:

program Quadratic;

var

a: integer = 1;

b: integer = -9;

c: integer = 20;

d: integer;

begin

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

if d < 0 then writeln('Нет натуральных корней.')

else if d = 0 then writeln('Один корень. x = ', ((-b + sqrt(d)) / (2*a)):5:2)

else {d > 0} writeln('Два натуральных корня x1 = ', (-b + sqrt(d)) / (2*a):5:2, ', х2 = ',(-b - sqrt(d)) / (2*a):5:2);

end.

Answer 2

Для решения квадратного уравнения вида x^2 - 9x + 20 = 0 на языке Паскаль можно использовать дискриминантную формулу. Дискриминант (D) квадратного уравнения ax^2 + bx + c = 0 вычисляется по формуле D = b^2 - 4ac. Затем, исходя из значения дискриминанта, можно определить тип корней уравнения.

Если D > 0, у уравнения два различных корня; Если D = 0, у уравнения один корень; Если D < 0, у уравнения нет действительных корней.

После вычисления дискриминанта можно найти корни уравнения по формулам:

x1 = (-b + sqrt(D)) / (2a) x2 = (-b - sqrt(D)) / (2a)

Теперь давайте решим ваше уравнение на Паскале:

pascalCopy code
program QuadraticEquation;

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

begin
  a := 1; // коэффициент при x^2
  b := -9; // коэффициент при x
  c := 20; // свободный член

  // Вычисление дискриминанта
  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;
end.

Программа выведет значения корней уравнения x^2 - 9x + 20 = 0, если они существуют. Пожалуйста, скопируйте код в среду разработки Pascal, чтобы выполнить его.