1. Trang chủ
  2. » Y Tế - Sức Khỏe

Bai tap CTruc re nhanhTT so do khoiliet keCT

3 3 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 3
Dung lượng 56 KB

Nội dung

[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 = b2 – 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 := b2 – 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 “ 1

2

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;

Ngày đăng: 30/04/2021, 12:47

TỪ KHÓA LIÊN QUAN

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w