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

THUẬT TOÁN GIẢI PTB4 DẠNG LIỆT KẾ BI: Nhập a.

SƠ ĐỎ KHÓỎI THUẬT TOÁN GIẢI PHƯƠNG TRÌNH TRÙNG PHƯƠNG

V Nhap a <>0, b<>0, c<>0

Ỷ Tinh D = b’ — 4ac

|

V

pnw —>#"#<<Sc>

Q

Vv Sal

fl =(-b+VD)/2a

(2 =(-b- VD)/2a

Ỷ

x3 Na

4=

x3 =V12 x4 =- J12

THUẬT TOÁN GIẢI PTB4 DẠNG LIỆT KẾ

BI: Nhập a b, c (điều kiện a #0, b #0, e #0)

B2: Tinh Delta : D := b’ — 4ac

B3: Nếu D <0 thì Xuất “PTVN” Ngược lại thì tính:

+ fl =(-b+VD)/2a

+12 =(-b- JD)/2a

B4: Néutl <0 thi Nếu t2 <0 thi Tinh va xuat “PT VN”

A + x3 —/12

+x4 =- A2

Ngược lại Nêu t2 <0 thì Tính và xuất “ ”

x2 =- Vel

xl — Jt

x3 = 42 x4 =- J72 B5: Kết thúc

Program Giai_PTB4;

Uses crt;

var a,b,c : real;

tl, 2 : 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

tl := (-b + sqrt(D)) / (2*a); writeln(‘tl =', t1:6:2);

{2 :=(cb - sqrt(D))/(2*a); writeln(t2 =',t2:6:2);

If tl < 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( tl );

x2 := -sqrt( tl );

wrIfeln(Phuong trinh co 2 nghiem:`);

wrIte(xl = ', x1:6:2,' x2 =')x2:6:2);

end else

begin x1 := sqrt( tl );

x2 := -sqrt( tl );

x3 := sqrt(t2);

x4 := -sqrt(t2);

wrIteln(Phuong trinh co 4 nghiem:`);

write(’ xl =')x1:6:2,' x2 =')x2:6:2,' x3 =', x3:6:2,' x4 ='x4:6:2); end;

end;

Readln;

end.