Tin9Tiet24.Bai thuc hanh so 2

CHÀO MỪNG CÁC THẦY CÔ GIÁO VÀ CÁC EM HỌC SINH
Câu 1. Em hãy nêu cú pháp và hoạt
động của câu lệnh tổ chức rẽ nhánh
dạng thiếu trong Turbo Pascal?
Câu 2. Em hãy nêu cú pháp và hoạt
động của câu lệnh tổ chức rẽ nhánh
dạng đủ trong Turbo Pascal?
Cú pháp của câu lệnh rẽ nhánh dạng thiếu:
if < điều kiện> then <câu lệnh>;
Hoạt động của câu lệnh rẽ nhánh dạng thiếu:
Khi gặp câu lệnh này, ch ơng trình sẽ kiểm tra
điều kiện. Nếu điều kiện đúng, ch ơng
trình sẽ thực hiện câu lệnh. Nếu điều
kiện sai câu lệnh bị bỏ qua.
Cú pháp của câu lệnh rẽ nhánh dạng đủ:
if < điều kiện> then <câu lệnh
1> else <câu lệnh
2>;
Hoạt động của câu lệnh rẽ nhánh dạng đủ:
Khi gặp câu lệnh này, ch ơng trình sẽ kiểm
tra điều kiện. Nếu điều kiện đ ợc thoả mãn,
ch ơng trình sẽ thực hiện câu lệnh 1 sau từ
khoá Then. Trong tr ờng hợp ng ợc lại, câu
lệnh 2 sẽ đ ợc thực hiện.

TiÕt 24
Bài thực hành số 2
THỰC HÀNH VỀ SỬ DỤNG CÁC
CÂU LỆNH RẼ NHÁNH, LỆNH LẶP
Bài tập thực hành
Bài 1. Viết ch ơng trình nhập hai số thực M và

N. Hãy cho biết kết quả so sánh hai số đó d ới
dạng M lớn hơn N, M nhỏ hơn N hoặc
M bằng N ?
a) Gõ ch ơng trình sau:
b) Tìm hiểu ý nghĩa các câu lệnh trong ch ơng
trình. Dịch và sửa lỗi nếu có, chạy ch ơng trình
với các bộ dữ liệu (1.5, 1.6), (1.6, 1.4) và (1.6, 1.6)
để thử ch ơng trình. Cuối cùng l u ch ơng trình với
tên So_sanh.

Program So_sanh;
Var M, N: Real;
BEGIN
Write( Moi ban nhap so M: ); Readln(M);‘ ’
Write(‘Moi ban nhap so N: ‘); Readln(N);
IF M > N THEN Writeln(‘M lon hon N‘)
ELSE IF M < N THEN Writeln(‘M nho hon N‘)
ELSE Writeln(‘M bang N‘);
Readln
END.
Bài tập thực hành
Bài 2. Viết ch ơng trình nhập ba số d ơng a, b
và c từ bàn phím, kiểm tra và in ra màn
hình kết quả kiểm tra ba số đó có thể là độ
dài các cạnh của một tam giác hay không?
ý T ởng: Ba số d ơng a, b và c là độ dài
các cạnh của một tam giác khi và chỉ khi
a + b > c, b + c > a và c + a > b.

Program
Program
Ba_canh_tam_giac;
Ba_canh_tam_giac;


Uses
Uses
Crt;
Crt;


Var
Var
a, b, c : Real;
a, b, c : Real;


BEGIN
BEGIN


Clrscr;
Clrscr;


Write(‘Moi ban nhap ba so a, b va c:’);

Write(‘Moi ban nhap ba so a, b va c:’);


Readln(a, b, c);
Readln(a, b, c);


If
If
(a+b>c)
(a+b>c)
and
and
(b+c>a)
(b+c>a)
and
and
( c+a>b)
( c+a>b)
Then
Then




writeln(‘a, b va c la 3 canh cua mot tam giac!’)
writeln(‘a, b va c la 3 canh cua mot tam giac!’)


Else

Else
writeln(‘a, b, c khong la 3 canh cua mot tam giac!’);
writeln(‘a, b, c khong la 3 canh cua mot tam giac!’);


Readln
Readln


END
END
.
.

Bài tập thực hành
Bài 3. Viết ch ơng trình nhập điểm kiểm tra 1 tiết
môn Tin học, sau đó thực hiện:
- Nếu điểm < 5, đ a ra dòng chữ Ban can co gang
hon
- Nếu điểm lớn hơn hoặc bằng 5 và nhỏ hơn 6.5, đ
a ra dòng chữ Ban dat diem Trung binh.
- Nếu điểm lớn hơn hoặc bằng 6.5 và nhỏ hơn 8, đ
a ra dòng chữ Ban dat diem Kha.
- Nếu điểm lớn hơn hoặc bằng 8, đ a ra dòng chữ
Hoan ho ban dat diem Gioi.

Tổng Kết
Tổng Kết

1. Câu lệnh điều kiện dạng thiếu:
1. Câu lệnh điều kiện dạng thiếu:


IF <Điều kiện> THEN <Câu lệnh>;
IF <Điều kiện> THEN <Câu lệnh>;


2. Câu lệnh điều kiện dạng đầy đủ:
2. Câu lệnh điều kiện dạng đầy đủ:


IF <Điều kiện> THEN <Câu lệnh1>
IF <Điều kiện> THEN <Câu lệnh1>


ELSE <Câu lệnh2>;
ELSE <Câu lệnh2>;


3. Có thể sử dụng câu lệnh
3. Có thể sử dụng câu lệnh
IF THEN
IF THEN
lồng nhau.
lồng nhau.


4. Sử dụng từ khoá
4. Sử dụng từ khoá

and
and
có thể kết hợp nhiều phép so
có thể kết hợp nhiều phép so
sánh đơn giản thành một phép so sánh phức hợp. Giá
sánh đơn giản thành một phép so sánh phức hợp. Giá
trị của phép so sánh này
trị của phép so sánh này
đúng
đúng
khi và chỉ khi
khi và chỉ khi
tất cả
tất cả


các phép so sánh đơn giản đều
các phép so sánh đơn giản đều
đúng
đúng
. Ng ợc lại, nó có
. Ng ợc lại, nó có
giá trị
giá trị
sai
sai

CHÚC CÁC EM
HỌC TỐT !!!