Cоставить программу для...

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

  1. Clerika

    Clerika New Member

    Cоставить программу для решения квадратного уравнения ax^2+bx+c=0
     
    Clerika, 4 мар 2010
    #1
  2. dimdim

    dimdim New Member

    var a,b,c,d:real;
    begin
    readln(a,b,c);
    d:=sqr(b)-4*a*c;
    if d<0 then writeln('Net kornei');
    if d=0 then writeln('x=',-b/(2*a));
    if d>0 then writeln('x1=', (-b-sqrt(d))/(2*a),' x2=',(-b+sqrt(d))/(2*a));
    end.
     
    dimdim, 4 мар 2010
    #2

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

Наша группа