Bài tập CTrúc rẽ nhánh(TT sơ đồ khối+liệt kê+CT)

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.