Câu 1

Program GIAI_PHUONG_TRINH_BACII;
Uses CRT;
Var a,b,c,D,x,x1,x2: real;
Begin
  Clrscr;
  Writeln('GIAI PHUONG TRINH BAC II: ');
  Writeln('-------------------------------------------');
  Write('Nhap he so a='); readln(a);
  Write('Nhap he so b='); readln(b);
  Write('Nhap he so c='); readln(c);
  If a=0 then
    If b=0 then
      If c=0 then
        Writeln('Phuong trinh co vo so nghiem')
      Else Writeln('Phuong trinh vo nghiem')
    Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)
  Else
    Begin
      D:=b*b-4*a*c;
      If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)
      Else 
        If D<0 then Writeln('Phuong trinh vo nghiem')
        Else
           Begin
             x1:=(-b-sqrt(D))/(2*a);
             x2:=(-b+sqrt(D))/(2*a);
             Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2); 
           End;
     End;
Readln
End. 

Xác định bài toán:

- Input: Các số thực a, h, c (a≠0).

- Output: Các số thực X thoả mãn ax2 + bx + c = 0.

• Ý tưởng:

- Tính d = b2 - 4ac.

- Lần lượt xét ba trường hợp cho giá trị d:

+ nếu d < 0 thì kết luận phương trình vô nghiệm ;

+ nếu d = 0 thì kết luận phương trình có một nghiệm x =-b/2a;

+ nếu d > 0 thì kết luận phương trình có hai nghiệm phân biệt là: x = (-b ± √d) / 2a.

• Thuật toán:

Mô tả thuật toán bằng cách liệt kê:

Bước I. Nhập ba số a, b, c;

Bước 2. d ← (b*b - 4*a*c);
Bước 3.

nếu d < 0 thì đưa ra thông báo phương trình vô nghiệm rồi kết thúc;

nếu d = 0 thì đưa ra thông báo phương trình có một nghiệm và tính nghiệm

x = -b/(2*a), rồi kết thúc;

nếu d> 0 thì đưa ra thông báo phương trình có hai nghiệm phân biệt, tính nghiệm x1= (-b + -√d) / (2*a) và x2 = (-b - √ d ) / (2*a), rồi kết thúc;