1 1 2 1 3 2 4 2 x t x t x t x t = = − = = − Bắt đầu Nhập a <>0, b<>0, c<>0 Tính D = b 2 – 4ac D < 0 1 ( ) / 2 2 ( ) / 2 t b D a t b D a = − + = − − PTVN t1 < 0 t2 < 0 t2 < 0 PTVN 3 2 4 2 x t x t = = − 1 1 2 1 x t x t = = − 1 1 2 1 3 2 4 2 x t x t x t x t = = − = = − Kết Thúc SƠ ĐỒ KHỐI THUẬT TOÁN GIẢI PHƯƠNG TRÌNH TRÙNG PHƯƠNG Đúng Sai Đúng Sai Đúng Sai Đúng Sai B1: Nhập a, b, c (điều kiện a ≠ 0, b ≠ 0, c ≠ 0) B2: Tính Delta : D := b 2 – 4ac B3: Nếu D < 0 thì Xuất “PTVN” Ngược lại thì tính: 1 ( ) / 2 + 2 ( ) / 2 t b D a t b D a + = − + = − − B4: Nếu t1 < 0 thì Nếu t2 < 0 thì Tính và xuất “PTVN” Ngược lại Tính và xuất “ 3 2 4 2 x t x t + = + = − ” Ngược lại Nếu t2 < 0 thì Tính và xuất “ 1 1 2 1 x t x t = = − ” Ngược lại Tính và xuất “ 1 1 2 1 3 2 4 2 x t x t x t x t = = − = = − ” B5: Kết thúc. THUẬT TOÁN GIẢI PTB4 DẠNG LIỆT KÊ Program Giai_PTB4; Uses crt; var a, b, c : real; t1, t2 : real; x1, x2, x3, x4 : real; D : real; Begin clrscr; writeln(' Ban hay nhap a<>0, b<>0, c<>0 :'); writeln; write( ' Nhap a, b, c = '); readln(a, b, c); writeln; D := sqr(b) - 4*a*c; writeln('Delta =',D:6:2); If D < 0 Then write('Phuong trinh vo nghiem') else begin t1 := (-b + sqrt(D)) / (2*a); writeln('t1 = ', t1:6:2); t2 := (-b - sqrt(D)) / (2*a); writeln('t2 = ',t2:6:2); If t1 < 0 Then if t2 < 0 then write('Phuong trinh vo nghiem') else begin x3 := sqrt(t2); x4 := -sqrt(t2); writeln('Phuong trinh co 2 nghiem:'); write('x3 = ', x3:6:2,' x4 = ',x4:6:2); end Else If t2 < 0 Then begin x1 := sqrt( t1 ); x2 := -sqrt( t1 ); writeln('Phuong trinh co 2 nghiem:'); write('x1 = ', x1:6:2,' x2 = ',x2:6:2); end else begin x1 := sqrt( t1 ); x2 := -sqrt( t1 ); x3 := sqrt(t2); x4 := -sqrt(t2); writeln('Phuong trinh co 4 nghiem:'); write(' x1 = ',x1:6:2, ' x2 = ',x2:6:2, ' x3 = ', x3:6:2, ' x4 = ',x4:6:2); end; end; Readln; end. . 1 1 2 1 x t x t = = − 1 1 2 1 3 2 4 2 x t x t x t x t = = − = = − Kết Thúc SƠ ĐỒ KHỐI THUẬT TOÁN GIẢI PHƯƠNG TRÌNH TRÙNG PHƯƠNG Đúng Sai Đúng Sai Đúng Sai