Question

Пожалуйста помогите !!!!!!!!!!!!!!!!!!Написать код для нахождения D(дискриминанта) в тетради и в FREE Pascal.(Используя приложение для телефона или ПК)

Answer 1

Ответ:

var a, b, c,d, x1, x2:Real;

begin

write('a=');ReadLn(a);

Write('b=');ReadLn(b);

Write('c=');ReadLn(c);

d:=sqr(b)-4*a*c;{вычислен дискриминант}

if d<0 then begin writeln('нет решения');break ;end;

if d=0 then begin WriteLn('Одно решение');WriteLn('x=' ,-b/(2*a));end;

WriteLn('x1=',(-b+Sqrt(d))/(2*a));

WriteLn('x2=',(-b-Sqrt(d))/(2*a));

readln;

end.

Объяснение:

Я профи в этом

Эта программа кроме дискриминанта ещё найдёт иксы к тому же если нет решения, программа напишет нет решения

Я смог помочь!?

Answer 2

Конечно, вот пример кода на языке программирования FREE 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('Дискриминант D = ', discriminant);

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

  readln;
end.

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