+1 дауыс
3.7k көрілді
Дискриминантты қалай табамыз?

3 жауап

+3 дауыс
Дискриминатты табу үшін арнайы формуланы қолданасыз.
Берілген квадраттық теңдеу мына түрде болады: ax^2+bx+c=0
Бұдан, D=b^2-4ac
D>0 болса,
 x1=(-b-sqrt(D))/2a
x2=(-b+sqrt(D))/2a
Егер D=0 болса x1=x2=-b/2a.
+2 дауыс
D=b2-4ac    осылай табылады.мундағы a,b,c -нын не екенін билесін деп ойлаймын.
0 дауыс
немесе Pascal программасына мынаны жазып шығаруға болады

program Deskriminant;

var
  a, b, c: integer; D: real;

begin
  write('а-ны енгіз-');
  readln(a);
  write('b-ны енгіз-');
  readln(b);
  write('c-ны енгіз-');
  readln(c);
  write('Дескриминат=');
  writeln(sqr(b) - (4 * a * c));
  D := sqrt(sqr(b) - (4 * a * c));
  if (D > 0) Then
  begin
    writeln('екі түбірі бар');
    Write('X1=');           //Егер Дискриминат > 0-ден
    writeln((-b - D) / (2 * a));
    Write('X2=');
    writeln((-b + D) / (2 * a));
  end;
  if(D = 0) then
  begin
    writeln('бір түбірі бар');    //Егер дискриминат = 0-ге болса
    write('   X1,2=');
    write((-b - D) / (2 * a));
  end;
  if (D < 0) then                 //Егер дискриминан кіші 0-ден болса
  begin
    writeln('Түбірі жоқ');
  end;
end.
...