Question

Напишите программу для решения квадратного уравнения (PascalABC.NET)

Answer 1

Ответ:

program squart;

var

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

begin

write('Введите множитель стоящий перед X^2 = ');

 readln(a);

 write('Введите множитель стоящий перед X^1 = ');

 readln(b);

 write('Введите множитель стоящий перед X^0 = ');

 readln(c);

 

D := sqr(b)-4*(a*c);

writeln('Дискриминант равен: ',D);

x1:=(-b+sqrt(D))/(2*a);  

x2:=(-b-sqrt(D))/(2*a);

writeln('Корни уравнения:');

writeln('X1= ',x1);

writeln('X2= ',x2);

 

end.

Объяснение:

Пример уравнения: x^2-3x-18=0

его решение в программе

Введите множитель стоящий перед X^2 = 1

Введите множитель стоящий перед X^1 = -3

Введите множитель стоящий перед X^0 = -18

Дискриминант равен: 81

Корни уравнения:

X1= 6

X2= -3

Answer 2

Для решения квадратного уравнения в PascalABC.NET можно написать следующую программу. Квадратное уравнение имеет вид ax^2 + bx + c = 0, где a, b и c - коэффициенты уравнения.

pascalCopy code
program QuadraticEquationSolver;

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
    writeln('Корней нет.');
end.

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