Биквадратные уравнения

SerginhoLD · #16 05.12.2010, 19:19

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 · #17 05.12.2010, 20:25

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

Код HTML:

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 · #18 05.12.2010, 21:32

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

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

Konrad · #19 05.12.2010, 23:27

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

SerginhoLD · #20 06.12.2010, 00:11

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 · #21 06.12.2010, 00:37

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

Код:

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 · #22 06.12.2010, 00:54

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

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

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 · #23 06.12.2010, 01:04

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

SerginhoLD · #24 06.12.2010, 01:08

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

razh2009 · #25 06.12.2010, 01:12

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

SinEater · #26 06.12.2010, 01:16

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

SerginhoLD · #27 06.12.2010, 01:21

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

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

razh2009 · #28 06.12.2010, 01:24

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

SerginhoLD · #29 06.12.2010, 01:27

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

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

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

razh2009 · #30 06.12.2010, 01:29

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты