ec_de_gr.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 37 行

program ecuatia_de_gradul_2;
var a,b,c:integer;
    d,x1,x2:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a=0) then
      if(b=0) then
              if (c=0) then writeln('x=R')
                       else writeln('imposibil')
              else
                begin
                  x1:=(-c)/b;
                  writeln('x= ',x1:4:2);
                end
    else
      begin
         d:=sqr(b)-4*a*c;
         if d<0 then writeln('ecuatia nu are radacini reale')
            else
              if d=0 then
                   begin
                     x1:=(-b)/(2*a);
                     writeln('x= ',x1:4:2)
                   end
                 else
                   begin
                     x1:=(-b+sqrt(d))/(2*a);
                     x2:=(-b-sqrt(d))/(2*a);
                     writeln('ec are radacinile x1= ',x1:4:2,' si x2= ',x2:4:2);
                    end;
       end;
end.