Ngày tải lên :
10/04/2015, 00:50
... mang[d,2]:=parse(substring (pt, (j+1) (k-2))); end if; l:=searchtext( "z" ,pt) ; if l=0 then mang[d,3]:=0; dz:=dz+1; else mang[d,3]:=parse(substring (pt, (k+1) (l-2))); end if; o:=searchtext("=" ,pt) ; mang[d,4]:=parse(substring (pt, (o+1) ... tục giaiptbac2:=proc (pt) local f,a,b,c,d,x1,x2,t,listm,i,f1; #B1: đưa pt dạng ax^2 +bx +c =0 f:=lhs (pt) - rhs (pt) ; a:=coeff(f,x^2); b:=coeff(f,x); c:=expand(f-a*x^2 - b*x); #B2: Biện luận pt theo ... trúc rẽ nhánh if, cấu trúc lặp for để giải biện luận phương trình - Dùng danh sách tập hợp để lưu trữ danh sách nghiệm II.3.3 Thuật giải Dùng phương pháp Cramer để giải biện luận hệ phương trình...