Viết chương trình Pascal ạ

Để giải phương trình bậc hai dưới dạng \( ax^2 + bx + c = 0 \) trong chương trình Pascal, bạn có thể làm theo các bước sau:

1. Khởi tạo các biến: Bạn cần khai báo các biến cho hệ số \(a\), \(b\), \(c\) và các biến dùng để tính nghiệm (với \(x1\) và \(x2\)).

2. Nhập dữ liệu: Sử dụng thủ tục để nhập các giá trị của \(a\), \(b\), \(c\) từ người dùng.

3. Tính toán discriminant (delta): Tính \(D = b^2 - 4ac\) để kiểm tra số nghiệm của phương trình.

4. Xác định nghiệm:
- Nếu \(D > 0\), phương trình có hai nghiệm phân biệt.
- Nếu \(D = 0\), phương trình có nghiệm kép.
- Nếu \(D < 0\), phương trình không có nghiệm thực.

5. In kết quả: Hiển thị các nghiệm cho người sử dụng.

Dưới đây là đoạn code mẫu cho chương trình:

```pascal
program GiaiPhuongTrinhBacHai;
uses crt;

var
a, b, c, D, x1, x2: real;

begin
clrscr;

// Nhập các hệ số
writeln('Nhập hệ số a: ');
readln(a);
writeln('Nhập hệ số b: ');
readln(b);
writeln('Nhập hệ số c: ');
readln(c);

// Tính delta
D := b b - 4 a * c;

// Xác định số nghiệm
if D > 0 then
begin
x1 := (-b + sqrt(D)) / (2 * a);
x2 := (-b - sqrt(D)) / (2 * a);
writeln('Phương trình có hai nghiệm phân biệt: x1 = ', x1:0:2, ', x2 = ', x2:0:2);
end
else if D = 0 then
begin
x1 := -b / (2 * a);
writeln('Phương trình có nghiệm kép: x1 = x2 = ', x1:0:2);
end
else
writeln('Phương trình không có nghiệm thực.');

readln;
end.
```

### Giải thích:

- Khai báo biến: Các biến \(a\), \(b\), \(c\) là hệ số của phương trình, còn \(D\) là giá trị phân biệt để xác định số nghiệm.

- Nhập liệu: Sử dụng hàm `readln` để lấy dữ liệu từ người dùng.

- Tính delta: Công thức delta giúp bạn quyết định số nghiệm của phương trình.

- Điều kiện số nghiệm: Qua ba điều kiện kiểm tra \(D\), ta xác định được số nghiệm và tính giá trị cụ thể của các nghiệm đó.

- Biểu diễn kết quả: Sử dụng `writeln` để in kết quả ra màn hình người dùng với định dạng có số thập phân (0:2 nghĩa là hai chữ số thập phân).

Chương trình này rất cơ bản, nhưng nó giúp bạn hiểu cách thức hoạt động của phương trình bậc hai và cách lập trình trong Pascal.