Question

Написать программу на языке Pascal решения квадратного уравнения. Программа должна проверять правильность введенных пользователем данных и в случае, если коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение.

Answer 1

program uravnenie;
var
a, b, c: integer;
D, x1, x2: Real;
begin
writeln('Р Е Ш Е Н И Е К В А Д Р А Т Н О Г О У Р А В Н Е Н И Я');
writeln('ax^2 + bx + c = 0');
writeln('Введите коэффициент a');readln(a);
 if (a <> 0) then  begin
writeln('Введите коэффициент b');readln(b);
writeln('Введите коэффициент c');readln(c);
D := sqr(b) - 4 * a * c;
if (D > 0) then
begin
x1 := (-b - sqrt(D)) / (2 * a);
x2 := (-b + sqrt(D)) / (2 * a);
writeln('x1 = ', x1 : 5 : 4);
writeln('x2 = ', x2 : 5 : 4);
end
else if (D = 0) then
begin
x1 := -b / (2 * a);
writeln('x = ', x1 : 5 : 4);
end
else
writeln('Данное уравнение не имеет корней')
end
else
writeln('Данное уравнение не является квадратным')
end.

Answer 2

Решение квадратного уравнения в Pascal

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

Вот пример программы на языке Pascal для решения квадратного уравнения:

program QuadraticEquationSolver;

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

begin
  writeln('Enter the coefficients of the quadratic equation (a, b, c): ');
  readln(a, b, c);

if a = 0 then
    writeln('The coefficient at the second degree term must not be zero.')
  else
  begin
    D := b * b - 4 * a * c;
    if D < 0 then
      writeln('The equation has no real roots.')
    else if D = 0 then
    begin
      x1 := -b / (2 * a);
      writeln('The equation has one real root: ', x1:0:2);
    end
    else
    begin
      x1 := (-b + sqrt(D)) / (2 * a);
      x2 := (-b - sqrt(D)) / (2 * a);
      writeln('The equation has two real roots: ', x1:0:2, ' and ', x2:0:2);
    end;
  end;
end.

Объяснение программы

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

Надеюсь, это поможет вам понять, как написать программу на языке Pascal для решения квадратного уравнения.