|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Цитата:
Та и формулы он написал для квадратного... Хотя))) Кстати: би квадратное: ax^4+bx^2+c=0. Последний раз редактировалось Konrad, 25.10.2010 в 22:30. |
#17
|
|||
|
|||
большое спасибо вам
|
#18
|
|||
|
|||
Цитата:
Ну да, я сейчас не о би квадратном думаю, а о квадратном при отрицательном дискриминанте - это уже мне задали. Но тут я уже сам разберусь. |
#19
|
|||
|
|||
ax^4+bx^2+c=0 всё таки нам такое задали . мы представляем х^2=z и решаем обычное квадратное уравнение . Konrad можете позайлуста внести изменения в программку что бы я смог решить ax^4+bx^2+c=0
|
#20
|
||||
|
||||
Цитата:
Если биквадратное, тогда нужно еще найти PHP код:
где х11,х12,х21,х22 и будут искомые корни. Последний раз редактировалось Konrad, 25.10.2010 в 22:40. |
#21
|
|||
|
|||
биквадратное )))
|
#22
|
||||
|
||||
Коряво, но в учебных целях пойдет:
PHP код:
|
#23
|
|||
|
|||
огромное спасибо
|
#24
|
|||
|
|||
вот:
Код:
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. сначала выводится количество ответов, потомсами решения |