Question

Помогите написать программу вычисления дискриминанта в паскале​

Answer 1

a = int(input())

b = int(input())

c = int(input())

D = b ** 2 - 4 * a * c

print(D)

Answer 2

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

pascalCopy code
program CalculateDiscriminant;

var
  a, b, c, discriminant: real;

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

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

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

  if discriminant > 0 then
    writeln('Уравнение имеет два действительных корня.')
  else if discriminant = 0 then
    writeln('Уравнение имеет один действительный корень.')
  else
    writeln('Уравнение не имеет действительных корней.');

  readln;
end.

В этом примере программа запрашивает у пользователя ввод коэффициентов a, b и c, а затем вычисляет дискриминант по формуле b^2 - 4ac. После этого программа сообщает, сколько корней имеет квадратное уравнение, и выводит значение дискриминанта.