GIẢI PHƯƠNG TRÌNH BẬC 2
Code:
GiaiPTB2[a_, b_, c_] :=
If[a == 0,
If[b == 0,
If[c == 0, Print["VSN"], Print["VN"]], Print["Phuong trinh co nghiem x = ", -c/b]],
delta := b^2 - 4*a*c;
If[delta > 0,
Print["x1=", (-b + Sqrt[delta])/(2a)];
Print["x2=", (-b - Sqrt[delta])/(2a)];
, If[delta == 0, Print["x=", -b/(2a)], Print["PT VN"]
]
]
];
a = Input["Nhap a"];
b = Input["Nhap b"];
c = Input["Nhap c"];
GiaiPTB2[a, b, c];