TRONG THỜI GIAN NGHỈ PHÒNG DỊCH CORONA). Và in 2 số đó ra màn hình theo thứ tự tăng dần.. 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”[r]
Trang 1b1) 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
Trang 2b3)
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
Trang 3a1) 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’);
Trang 4b
B 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