Ôn tập môn Tin học Lớp 8 - Bài thực hành 4: Sử dụng lệnh điều kiện If ... then ..

b1) Vẽ sơ đồ thuật toán để giải bài tập trên. 
b2) Gõ chương trình sau đây: 
NỘI DUNG HỌC TẬP MÔN TIN HỌC KHỐI 8 
(DÀNH CHO CÁC EM HỌC SINH 
TRONG THỜI GIAN NGHỈ PHÒNG DỊCH CORONA). 
BÀI THỰC HÀNH 4 . SỬ DỤNG LỆNH ĐIỀU KIỆN If ... then 
1) CẤU TRÚC RẼ NHÁNH: 
2) CÂU LỆNH ĐIỀU KIỆN: 
a) Dạng lệnh: 
b) ÁP DỤNG: 
* Bài tập 1: 
Viết chuong trình nhập 2 số thực a, b khác nhau từ bàn phím. Và in 2 số đó ra màn 
hình theo thứ tự tăng dần. 
b3) 
3) LUYỆN TẬP: 
a) Bài tập 1: 
Viết chương trình nhập vào chiều cao của 2 bạn học sinh Minh và Phúc. 
In ra màn hình kết quả so sánh chiều cao của 2 bạn đó. Chẳng hạn: “ bạn Minh cao 
hơn bạn Phúc”. 
Program Sap_xep; 
uses crt ; 
var A, B: Real; 
Begin 
 clrscr; 
 write(‘ Nhap so A = ’); readln(A); 
 write(‘Nhap so B = ’); readln(B); 
 If A < B then writeln(A, ‘ ‘, B) 
 else writeln(B, ‘ ‘, A); 
readln; 
End. 
a1) Vẽ sơ đồ thuật toán để giải bài tập trên. 
a2) Gõ chương trình sau đây: 
a3) 
a4) 
a5) 
b) Bài tập khai thác nâng cao: 
Từ Bài tập 1 ở trên. Em hãy viết lại thành chương trình mới theo đoạn lệnh sau đây: 
Program Ai_cao_hon; 
uses crt ; 
var Minh, Phuc: Real; 
Begin 
 clrscr; 
 write(‘ Nhap chieu cao cua Minh = ’); readln(Minh); 
 write(‘ Nhap chieu cao cua Phuc = ’); readln(Phuc); 
 If Minh > Phuc then writeln(‘ ban Minh cao hon ban Phuc ’ ); 
If Minh < Phuc then writeln(‘ ban Phuc cao hon ban Minh ’ ) 
else writeln(‘ hai ban cao bang nhau’); 
readln; 
End. 
If Minh > Phuc then writeln(‘ ban Minh cao hon ban Phuc ’ ) 
else If Minh < Phuc then writeln(‘ ban Phuc cao hon ban Minh ’ ) 
else writeln(‘ hai ban cao bang nhau’); 
c
b
a
CB
A
a) Vẽ sơ đồ thuật toán để giải bài tập trên. 
b) Viết chương trình thực hiện. 
c) Em hãy tìm chỗ sai trong đoạn chương trình sau và sửa lại thành chương trình đúng. 
4). BÀI TẬP TƯƠNG TỰ: 
* Lưu ý: 3 số a, b và c là 3 cạnh của một 
tam giác khi và chỉ khi đồng thời thỏa 
mãn: a + b > c, b + c > a và a + c > b 
* Em hãy nhập 3 số dương a, b và c vào từ 
bàn phím. 
Kiểm tra và đưa ra màn hình kết quả 
thông báo: 3 số đó có phải là 3 cạnh của 
một tam giác hay không ? 
Program Ba_canh_tam_giac; 
uses crt ; 
var a, b, c : Real; 
Begin 
 clrscr; 
 write(‘ Nhap canh a = ’); readln(a); 
write(‘ Nhap canh b = ’); readln(b); 
write(‘ Nhap canh c = ’); readln(c); 
 If a+b>c va b+c>a va a+c>b then writeln( ‘ a,b,c la 3 canh cua 1 tam giac ’) 
 else writeln( ‘ a,b,c khong phai la 3 canh cua 1 tam giac ’); 
readln; 
End.