[SerginhoLD]

PHP код:

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  tf1, tf2: boolean;
  i:Integer;
  label hh;
Begin
  //a:=4; b:=-13; c:=7;
  i:=0; tf1:=false; tf2:=false;
  hh: beep; //вот этого наверно не хватало
  readln(a);readln(b);readln(c);
  if (a=0) or (c=0) then
  begin
    writeln(-1); goto hh;
  end;
  d:=b*b-4*a*c; 


[razh2009]

дописал....
это вообще не компилируется

program Project1d;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a,b,c,x1,x2,x3,x4,t1,d,t2: double;
tf1, tf2: boolean;
i:Integer;
label hh;
Begin
  Reset(input,'bisqr.in');
  Rewrite(Output,'bisqr.out');
//a:=4; b:=-13; c:=7;
i:=0; tf1:=false; tf2:=false;
read(a,b,c);
hh: beep;
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;
tf1:=true;
i:=i+2;
end;
if t2 >= 0 then
begin
x3:=sqrt(t2); x4:=-x3;
tf2:=true;
i:=i+2;
end;
end
else i:=0;

writeln(i);
if tf1 then writeln(x1:0:6,#10#13,x2:0:6);
if tf2 then writeln(x3:0:6,#10#13,x4:0:6);
hh:
CloseFile(Output);
end.

[SerginhoLD]

по человечески сделай чтение/запись файлов

p.s. и в коде своем строчку "hh: beep;" поставь перед присвоением/вводом a,b,c - это если с клавы вводишь ; если из файла читаешь то строку кидаешь в самый конец(чтобы весь следующий код проскочить)

[Konrad]

http://www.delphisources.ru/forum/sh...ad.php?t=14073

[SerginhoLD]

PHP код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label hh;

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

  hh: beep;

  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]

оно не работает...я попробовал написать нечто другое, перебрав различные варианты А б и с....получилось вот так :

Код:

program bisqr;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,d,x1,x2,x3,x4,p1,p2:real;
  i,j:Integer;
begin
  Reset(Input,'bisqr.in');
  Rewrite(Output,'bisqr.out');
  read(a,b,c);
  x1:=-3333;x2:=-3333;x3:=-3333;x4:=-3333;
  if (a=0)and(b=0) and (c=0) then writeln(-1);
  if (a<>0) and (b<>0) and (c=0) then begin
      Writeln(1);
      Writeln(0);
  end;

  if (a<>0) and (b=0) and (c=0) then begin
      Writeln(1);
      Writeln(0);
  end;

  if (a=0) and (b=0) and (c<>0) then begin
      Writeln(0);
  end;

  if (a=0) and (b<>0) and (c<>0) then begin
      Writeln(0);
  end;

  if (a=0) and (b<>0) and (c=0) then begin
      Writeln(1);
      Writeln(0)
  end;

  if (a<>0) and (b=0) and (c<>0) then begin
      Writeln(0);
  end;


  if (a<>0)and(b<>0) and (c<>0)then begin
  x1:=-3333;x2:=-3333;x3:=-3333;x4:=-3333;
  if (b*b - 4*a*c) > 0 then begin
     d:=b*b - 4*a*c ;
     p1:=-(b+sqrt(D))/(2*a);
     p2:=-(b-sqrt(D))/(2*a);
     i:=0;
     if p1>0 then begin x1:=Sqrt(p1);x2:=-x1;i:=i+2;end;
     if p2>0 then begin x3:=Sqrt(p2);x4:=-x3; i:=i+2; end;
     Writeln(i);
     if x1<>-3333 then Writeln(x1:0:6);
     if x2<>-3333 then Writeln(x2:0:6);
     if x3<>-3333 then Writeln(x3:0:6);
     if x4<>-3333 then Writeln(x4:0:6);
  end;
  if (b*b - 4*a*c) = 0 then begin p1:=-b/(2*a);
  i:=0;
   if p1>0 then begin x1:=Sqrt(p1); x2:=-x1;i:=2;end;
   Writeln(i);
   if x1<>-3333 then Writeln(x1:0:6);
   if x2<>-3333 then Writeln(x2:0:6);
    end;
    if (b*b - 4*a*c) < 0 then Writeln(0);
  end;

  //Writeln(i);
  //write(x1:0:6,' ',x2:0:6);
  CloseFile(Output);
end.

но я гдето допустил ошибку((((

[SerginhoLD]

да я фигею с тебя, код в предыдущем сообщении готовый уже дал

вот например с вариантами абс

PHP код:

program Project2n;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label hh;

var
  a,b,c,x1,x2,x3,x4,t1,d,t2: real;
  tf1, tf2: boolean;
  i:Integer;
  f: textFile;
Begin
  //a:=0; b:=1; c:=-1;
  i:=0; tf1:=false; tf2:=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;
    goto hh;
   end
   else begin
    writeln('0'); goto hh;
   end;
  if (a=0) and (c=0) then
  begin
    writeln('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;
    if t2 >= 0 then
    begin
      x3:=sqrt(t2); x4:=-x3;
      tf2:=true;
      i:=i+2;
    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;
  end
  else writeln('d < 0');

  hh: beep;

  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. 


внимание, я тебе кинул в прошлом сообщении ссылку на статью, там основы работы с файлами описаны, почитай обязательно, а то до меня вообще не допирает зачемм написан rewrite,
и присвоение значений переменным из файла: сначала указатель на файл, потом переменные read(f,a,b,c);, где f указатель

[razh2009]

все также.....скорее всего нужно реально те исключения обработать...(

[SerginhoLD]

чего у тебя не работает?
скомпилируй мой код, и че у тебя там не так?

[razh2009]

эти решения какбы сдаются через инет и провеояются на сервере.....
ну так вот... Твое решение получило неправильный ответ на 3 тесте(...тесты я не знаю....

[SinEater]

у меня тоже ошибка на 3 тесте!

[SerginhoLD]

1. че за тесты, давай подробнее

2. думай логически, все варианты с а=0 я перебрал,
едем дальше, при b=0 или с=0, и а<>0, дискриминант считается в любом случае, и поэтому корни считаются тоже, в полне может что ответ будет ноль, но программа то посчитает

[razh2009]

ну тесты мы не знаем....
поэтому давай проверим варианты
а=0
а=0 б=0 с=0
а<>0 b<>0 c=0
и тд...

[SerginhoLD]

ну проверяй, я свое мнение уже сказал выше

вон например если всё равно нулю, выведи "это вообще не уравнение, в ответе любое число",
глядишь это и есть третий тест))

а этот тест и задача вообще для чего и зачем?

[razh2009]

бред како то...вроде все норм, но тест не проходит...