Написать алгоритм и...

Тема в разделе "Информатика", создана пользователем xett, 1 апр 2010.

  1. xett

    xett New Member

    Написать алгоритм и программу квадратного уравнения
     
    xett, 1 апр 2010
    #1
  2. vinsentpromo

    vinsentpromo New Member

    var
    a,kd,b,c,x2,x1,d:extended;
    begin
    read(a,b,c);
    d:=-4*a*c;
    if d>0 then
    begin
     
    kd:=sqrt(d); 
    x1:=(-b+kd)/2*a;
    x2:=(-b-kd)/2*a;
     
    end;
    else
    write('Нет корней');
    If x1=x2 then write(x1) else write(x1,x2);
    end.
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    vinsentpromo, 1 апр 2010
    #2

Поделиться этой страницей

Наша группа