Bài giảng Tin học Lớp 8 - Chủ đề 8: Cấu trúc rẽ nhánh

Tin học 8
Chủ đề 8
CẤU TRÚC RẼ NHÁNH
- Lệnh liền trước else không có dấu chấm
phẩy để phân cách.
- Khi câu lệnh 1 hay câu lệnh 2 là một nhóm
lệnh thì phải bao nhóm lệnh đó trong cặp
begin..end; cụ thể như sau:
Ghi chú
If (điều kiện)
then
begin
câu lệnh 1a;
câu lệnh 1b;
;
end
else
begin
câu lệnh 2a;
câu lệnh 2b;
;
end;
1. Cấu trúc rẽ nhánh đủ
HĐ1: Viết chương trình thực hiện phép tính chia 2 số lẻ
Var a,b:real;
BEGIN
Readln(a);
Readln(b);
If b0
Then write (‘Ket qua: ’, a/b:6:2)
Else write(‘phep chia khong thuc hien duoc’);
Readln;
END.
1. Cấu trúc rẽ nhánh đủ
HĐ2: Viết chương trình giải phương trình bậc nhất Ax + B = 0
Var a,b,x:real;
Begin
Readln(a);
Readln(b);
If A0
Then begin
x:=-B/A;
write(‘Nghiem x=’,x:0:2);
end
Else if B=0
then write(‘Phuong trinh vo so nghiem.’)
else write(‘Phuong trinh vo nghiem.’);
Readln;
End.
1. Cấu trúc rẽ nhánh đủ
HĐ3: Viết chương nhập một số nguyên N. Xét số đó có là số lẻ dương hay không?
Var N:integer;
BEGIN
Readln(N);
If (N>0) and (N mod 20)
Then write (N, ‘la so le duong’)
Else write (N, ‘khong phai so le duong’);
Readln;
END.
2. Cấu trúc rẽ nhánh thiếu
If (điều kiện)
then
begin
câu lệnh 1;
câu lệnh 2;
;
end;
Điều kiện
T
F
Câu lệnh
2. Cấu trúc rẽ nhánh thiếu
HĐ4: Viết chương tính bình phương của một số chẳn được nhập từ bàn phím.
Var N:integer;
BEGIN
Readln(N);
If N mod 2=0
Then write (‘Binh phuong=’,N*N);
Readln;
END.