Question

Дискриминант на языке Паскаль​

Answer 1

Ответ:

Pascal

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

2.begin

3.writeln('введите коэффициенты уровнения a,b,c');

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

5.read (a,b,c);

6.if (D > 0) then

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

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

9.Writeln('x1:=',x1);

10.Writeln('x2:=',x2);

11.end.

Answer 2

Конечно! Вот пример реализации вычисления дискриминанта на языке Паскаль:

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);
end.

В этом примере мы считываем коэффициенты квадратного уравнения (a, b, c) с помощью оператора readln. Затем мы используем формулу дискриминанта b * b - 4 * a * c для вычисления дискриминанта. И, наконец, выводим результат с помощью оператора writeln.

Обратите внимание, что в этом примере используются вещественные числа (real) для коэффициентов и дискриминанта. Если вы хотите работать только с целыми числами, замените real на integer.