[SinEater]

Короче - твое решение почти правильное. В нем определенно какая-та дырка. Просто так оно валиться не будет.
Вот эту дырку я почему-то как раз не вижу.

[SerginhoLD]

попробуй так:

PHP код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label hh;

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  tf1, tf2, tf3: boolean;
  i:Integer;
  f: textFile;
Begin
  //a:=0; b:=0; c:=5;
  i:=0; tf1:=false; tf2:=false; tf3:=false;
  AssignFile(f,'file.txt');
  Reset(f);
  Read(f,a,b,c);
  CloseFile(f);
  if (a=0) and (c<>0) then
   if b<>0 then
   begin
    t1:=-c/b;
    if t1 > 0 then
    begin
      x1:=sqrt(t1); x2:=-x1;
      tf1:=true;
      i:=i+2;
    end else if t1=0 then begin i:=1; tf1:=true; x1:=0; x2:=0; end;
    goto hh;
   end
   else begin
    writeln('c = const - luboe chislo, t.k. a=0 i b=0'); tf3:=true; goto hh;
   end;
  if (a=0) and (c=0) then
  begin
     tf1:=true; i:=1 x1:=0; x2:=0; 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;
      tf1:=true;
      i:=i+2;
    end else if t1=0 then begin i:=1; tf1:=true; x1:=0; x2:=0; end;
    if t2 > 0 then
    begin
      x3:=sqrt(t2); x4:=-x3;
      tf2:=true;
      i:=i+2;
    end else if t2=0 then begin i:=1; tf1:=true; x1:=0; x2:=0; end;
  end
  else if d=0 then
  begin
    t1:=(-b+sqrt(d))/(2*a);
    if t1 > 0 then
    begin
      x1:=sqrt(t1); x2:=-x1;
      tf1:=true;
      i:=i+2;
    end else if t1=0 then begin i:=1; tf1:=true; x1:=0; x2:=0; end;
  end
  else writeln('d < 0');

  hh: beep;

  if tf3 then writeln('kol-vo resheniy: mnogo')
  else writeln('kol-vo resheniy: ',i);
  if tf1 then writeln('x1: ',x1:8:2,#10#13,'x2: ',x2:8:2);
  if tf2 then writeln('x3: ',x3:8:2,#10#13,'x4: ',x4:8:2);

  readln;
end. 


если уж и это не правильно, то можно всех на том сервере смело посылать на икс игрек у

[razh2009]

а как думаешь что может быть в моем переборе неверно?

[SerginhoLD]

(a=0)and(b=0) and (c=0)
не уравнение

(a<>0) and (b<>0) and (c=0)
решается, 0 и еще какойто корень

(a<>0) and (b=0) and (c=0)
ответ 0, решается

(a=0) and (b=0) and (c<>0)
не уравнение

(a=0) and (b<>0) and (c<>0)
решается

(a=0) and (b<>0) and (c=0)
решается, ответ 0

if (a<>0) and (b=0) and (c<>0)
решается

математика обычная

мой код проверил на своем сервере? т.е. послал уже всех там?