[razh2009]

Сообщение от SerginhoLD

ну глобальная переменная, допустим i, сначала равна нулю
потом если корень больше нуля, то i:=i+2, да и все

я это сделал...+ мне надо выводить сначала количестыо корней, а потом уже корни... Получилось вот так:

Код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  m:array[1..4]of Real;
  i,j,kol:Integer;
  label hh;
Begin
  Reset(Input,'bisqr.in');
  Rewrite(Output,'bisqr.out');
   read(a);
   read(b);
   read(c);
   if (a=0) and (b=0) and (c=0) then begin Writeln(-1); goto hh;end;
  d:=b*b-4*a*c;
  if d >= 0 then
    begin
      t1:=(-b+sqrt(d))/(2*a);
      t2:=(-b-sqrt(d))/(2*a);
      if t1 >= 0 then
        begin
          x1:=sqrt(t1); x2:=-x1;
          //m[1]:=x1;m[2]:=x2;
       // writeln('x1: ',x1,'; x2: ',x2);
         i:=2;
        end
      else I:=0;
      if t2 >= 0 then
        begin
          x3:=sqrt(t2); x4:=-x3;
          //m[3]:=x3; m[4]:=x4;
         // writeln('x3: ',x3,'; x4: ',x4);
          I:=I+2;
        end
      else i:=i+1;
    end;
    if d<0 then i:=0;
    writeln(i);
   if x1<>0 then Writeln(x1:0:6);
   if x2<>0 then Writeln(x2:0:6);
   if x3<>0 then Writeln(x3:0:6);
   if x4<>0 then Writeln(x4:0:6);
   hh:
   CloseFile(Output);
end.

всервыно не пашет(