[r]
(1)1
2
3
4
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 <
1 (
) / 2
2 (
) / 2
t
b
D
a
t
b
D
a
PTVN
t1 < t2 <
0 t2 <
PTVN
3
2
4
2
x
t
x
t
1
1
2
1
x
t
x
t
1
2
3
4
x t
x t
x t
x t
Kết Thúc
SƠ ĐỒ KHỐI THUẬT TỐN GIẢI PHƯƠNG TRÌNH TRÙNG PHƯƠNG
Đúng
Sai
Đúng Sai
Đúng
Sai Đúng
(2)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 < Xuất “PTVN” Ngược lại tính:
( ) /
+ ( ) /
t b D a
t b D a
B4:
Nếu
t1 <
thì
Nếu
t2 <
thì
Tính xuất “PTVN”
Ngược lại
Tính xuất “
x t
x t
”
Ngược lại
Nếu
t2 <
thì
Tính xuất “
12
x t
x t
”
Ngược lại
Tính xuất “
1
2
3
4
x t
x t
x t
x t
”
B5: Kết thúc.
(3)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 < 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 < Then if t2 < then write('Phuong trinh vo nghiem') else
begin
x3 := sqrt(t2); x4 := -sqrt(t2);
writeln('Phuong trinh co nghiem:'); write('x3 = ', x3:6:2,' x4 = ',x4:6:2); end
Else
If t2 < Then begin
x1 := sqrt( t1 ); x2 := -sqrt( t1 );
writeln('Phuong trinh co 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 nghiem:');
write(' x1 = ',x1:6:2, ' x2 = ',x2:6:2, ' x3 = ', x3:6:2, ' x4 = ',x4:6:2); end;