profile
Опубликовано 5 лет назад по предмету Информатика от natacha89

по заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите решить,плииз)))уравнение квадратное 

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var a,b,c,d,x1,x2:real;
    begin;
    readln(a);
    readln(b);
    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);
       writeln('x2=',x2);
    end;
    if d=0 then
    begin;
      x1:=-b/(2*a);
      writeln('x1=',x1);
    end;
    if d<0 then writeln('Нет действительных решений');
    end.
    1. Ответ
      Ответ дан natacha89
      спасибо__
Самые новые вопросы