Giải phương trình bậc ba code program Phuong trinh bac ba; uses crt; var a,b,c,d integer; f,g,h,i,j,k,l,m,n,p,x1,x2,x3,r,s,t,u,z real; tiep char; { } function canbacba(x real) real; var z real; begin[.]
Giải phương trình bậc ba begin code x1:=canbacba(d/a)*(-1); program Phuong_trinh_bac_ba; writeln('Phuong trinh co nghiem kep X=',x1:8:4); uses crt; end var a,b,c,d:integer; else if h>0 then f,g,h,i,j,k,l,m,n,p,x1,x2,x3,r,s,t,u,z:real; begin tiep:char; r:=-g/2+sqrt(h); { } s:=canbacba®; function canbacba(x:real):real; t:=-(g/2)-sqrt(h); var z:real; u:=canbacba(t); begin x1:=(s+u)-(b/(3*a)); if x>0 then z:=(s-u)*sqrt(3)/2; canbacba:=exp( 1/3*ln(x) ) writeln('Phuong trinh co mot nghiem thuc:'); else writeln(' X1=',x1:8:4); if x=0 then canbacba:=0 writeln(' X2=',-(s+u)/2-(b/(3*a)):8:4,'+',z:8:4,'*i'); else writeln(' X3=',-(s+u)/2-(b/(3*a)):8:4,'-',z:8:4,'*i'); begin end z:=-x; else canbacba:=-exp(1/3*ln(z)); begin end; i:=sqrt((g*g/4)-h); end; j:=canbacba(i); { } k:=arccos(-g/(2*i)); function arccos(x:real):real; l:=j*(-1); var arcsin:real; m:=cos(k/3); begin n:=sqrt(3)*sin(k/3); if (x>0) and (x