Ветвление. Паскаль

[SIvk]

даны дейтсвительные числа a,b,c (a>0). Полностью исследовать биквадратное уравнение ax^4+bx^2+c=0, т.е если действительных корней нет, то должно быть выдано сообщение об этом, иначе найти действительные корни, сообщив, сколько из них являются различными.
можете написать прогу !

[p51x]

"можете написать прогу !"
Могу! Но заача ваша... так что либо свои попытки и затруднения, либо во фриланс.

[SIvk]

sdelal uge >:D

[RUSt88]

пиши на мыло, договоримся

[Sparky]

недавно решала почти такую же задачу, держи смотри исправляй

program urav;
var
   a,b,c:integer;
   k1,k2,k3,k4,k5,k6:real;
   input,output:text;
begin
   assign(input,'input.txt');
   assign(output,'output.txt');
   reset(input);
   rewrite(output);
   read(input,a);
   read(input,b);
   read(input,c);
   
   if (a=0) and (b=0) and (c=0) then write(output,'infinity');
   if (a=0) and (b=0) and (c<>0) then write(output,'0');
   if (a=0) and (b<>0) and (c=0) then write(output,'1');
   if (a=0) and (b<>0) and (c<>0) then
   begin
        if (-c/b)>0 then write(output,'2')
        else if (-c/b)<0 then write(output,'0')
        else write(output,'1');
   end;
   if (a<>0) then
   begin
        if ((b*b-4*a*c)<0) or (((-b+sqrt(b*b-4*a*c))/(2*a))<0) then write(output,'0')
        else
        begin
             k1:=(-b+sqrt(b*b-4*a*c))/(2*a);
             k2:=(-b-sqrt(b*b-4*a*c))/(2*a);
             if (k1<0) and (k2<0) then write(output,'0');
             if k1=k2 then if k1=0 then write(output,'1')
             else if k1>0 then write(output,'2')
             else write(output,'0');
             if (k1>=0) and (k2<0) then if k1=0 then write(output,'1')
             else write(output,'2');
             if (k2>=0) and (k1<0) then if k2=0 then write(output,'1')
             else write(output,'2');
             if (k1=0) and (k2<>0) then if k2>0 then write(output,'3')
             else write(output,'1');
             if (k1<>0) and (k2=0) then if k1>0 then write(output,'3')
             else write(output,'1');
             if (k1<>k2) and (k1>0) and (k2>0) then
             begin
                  k3:=-sqrt((-b+sqrt(b*b-4*a*c))/(2*a));
                  k4:=sqrt((-b+sqrt(b*b-4*a*c))/(2*a));
                  k5:=-(-b-sqrt(b*b-4*a*c))/(2*a);
                  k6:=(-b-sqrt(b*b-4*a*c))/(2*a);
                  if (k3=k5) and (k4=k6) then write(output,'2')
                  else if (k3=k5) and (k4<>k6) then write(output,'3')
                  else if (k3<>k5) and (k4=k6) then write(output,'3')
                  else if (k3<>k5) and (k4<>k6) then write(output,'4');
             end;
        end;
   end;
   close(input);
   close(output);
end.

[quit]

Автор написал же, что уже сделал...

[Sparky]

сорри не увидела, ну мало ли кому-то пригодится