Bài 9. Cấu trúc rẽ nhánh

Lệnh ghép là một nhóm các câu lệnh được đặt giữa hai từ khóa Begin và End. Lệnh ghép được thực hiện bằng cách thực hiện tuần tự các câu lệnh nằm giữa Begin và End.
Begin
;
end;
3. Câu lệnh ghép
- Câu lệnh, câu lệnh 1, câu lệnh 2 trong các câu lệnh If- Then có thể là câu lệnh ghép.
Chú ý
- Thuật ngữ câu lệnh được hiểu chung cho câu lệnh đơn và câu lệnh ghép
- Sau từ khóa End có thể có dấu ; hoặc không
Cú pháp:
If Delt a<0 then
Writeln(‘Phương trình vô nghiệm’)
Else
BEGIN
X1:= (-b + SQRT(Delta))/(2*a);
X2:= (-b - SQRT(Delta))/(2*a);
Writeln(‘ Nghiem X1= ’, X1:5:1);
Writeln(‘ Nghiem X2= ’, X2:5:1);
END;
Ví dụ :
Ví dụ 1: Tìm nghiệm của phương trình bậc 2
ax+bx+c=0 (a#0)
Input :
Các hệ số a, b, c nhập từ bàn phím
Output :
Đưa ra màn hình nghiệm thực hoặc thông báo ”Phương trình vô nghiệm”
4. Ví dụ
Khai báo tên chương trình
program giaiPTB2;
Khai báo thư viện
uses crt;
Khai báo biến
var a,b,c,d,x1,x2:real;
Bắt đầu phần thân
begin
Lệnh xóa màn hính
clrscr;
Thủ tục đưa dữ liệu ra màn hình
write(`nhap a, b, c :`);
Thủ tục Nhập dữ liệu vào từ bàn phím
readln(a, b, c);
Tính delta
d:=b*b-4*a*c;
Kiểm tra điều kiện và thực hiện rẽ nhánh
if d<0 then
writeln(`phuong trinh vo nghiem`)
else
Khối lệnh
Begin




End;
x1:=(-b-sqrt(d))/2*a;
x2:=-b/a-x1;
writeln(`x1= `, x1:4:2, ` x2= `, x2:4:2);
Tạm dừng màn hình
Readln
End.
Kết thúc chương trình
- Tính x1
- Tính x2
- Đưa ra màn hình giá trị của x1 và x2
Chương trình
Ví dụ 2: Tìm số ngày của năm N
Input :
N nhập từ bàn phím
Output :
Đưa số ngày của năm N ra màn hình
Khai báo tên chương trình
Khai báo thư viện
Khai báo biến
Bắt đầu phần thân
Lệnh xóa màn hính
Thủ tục đưa dữ liệu ra màn hình
program Nam_Nhuan;
uses crt;
var N, SN: Integer;
begin
clrscr;
write(`nhap nam N :`);
Thủ tục Nhập dữ liệu vào từ bàn phím
readln(N);
Kiểm tra điều kiện và thực hiện rẽ nhánh
if (N mod 400=0)or((N mod 4= 0) and (n mod 100<>0) then
SN:=366
Else N:=365;
Tạm dừng màn hình
Kết thúc chương trình
Đưa ra màn hình số ngày của năm N
writeln(`So ngay cua nam `, N, ` la `, SN);
Readln
End.
Chương trình
Bài tập
Bài 1:
Viết chương trình nhập vào 3 độ dài (a,b,c) kiểm tra xem chúng có phải là 3 cạnh của tam giác hay không?Nếu có, in diện tích tam giác đó.Nếu không in thông báo không phải là tam giác?
Bài 2:
Viết chương trình giải phương trình bậc nhất ax+b=0