Ngày dạy: / /2020 tại lớp 11B6

Ngày dạy: / /2020 tại lớp 11B7

Ngày dạy: / /2020 tại lớp 11B8

Ngày dạy: / /2020 tại lớp 11B9



PPCT: 19
BÀI TẬP THỰC HÀNH 2
I. MỤC TIÊU
1. Kiến thức:
- Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh
- Làm quen với việc hiệu chỉnh chương trình
2. Kỹ năng:
- Thực hiện được các bài tập trong sách giáo khoa.
3. Thái độ
- Ham thích môn học, có tính kỉ luật cao và tinh thần làm việc theo nhóm
4. Phát triển năng lực
Giúp học sinh khám phá, tự học, năng lực hợp tác trong thực hành, năng lực trình bày về vòng lặp For trong lập trình.
II. CHUẨN BỊ CỦA GV VÀ HS.
1. Chuẩn bị của GV: - Giáo án, phấn, bảng, phòng thực hành
2. Chuẩn bị của HS: - Sách giáo khoa, vở ghi
III. HOẠT ĐỘNG DẠY HỌC
1. Hoạt động khởi động
Mục tiêu:
- Giúp học sinh huy động kiến thức và kĩ năng để tổng hợp các kiến thức về cấu trúc lặp trong lập trình.
- Giáo viên quan sát học sinh, hướng dẫn học sinh vận dụng những bài tập về vòng lặp For.
Tiến hành:
- Hướng dẫn về viết cấu trúc lặp trong Pascal.
- Giáo viên kết luận về hoạt động của học sinh và vào bài mới.
2. Bài mới:
Hoạt động của GV và HS
Nội dung chính

HĐ1.(40`)Giáo viên nêu nội dung các bài tập có sử dụng cấu trúc rẽ nhánh
GV: Nêu yêu cầu của bài:
Bài toán: Cho bộ ba số nguyên a, b, c được gọi là bộ số Pi-ta-go nếu tổng các bình phương của hai số bằng bình phương của số còn lại. Viết chương trình nhập từ bàn phím ba số nguyên a, b, c và kiểm tra xem chúng xem chúng có là bộ số Pi-ta-go không?
- ý tưởng: Kiểm tra đẳng thức sau đây có xảy ra hay không:
a2 = b2 + c2
b2 = a2 + c2
c2 = a2 + b2
GV: Hướng dẫn học sinh thực hiện nhập chương trình, lưư chương trình với tên là PITAGO và thực hiện với các bộ số trong sách giáo khoa.
HS: Nhập chương trình
GV: Hướng dẫn học sinh cách lưu chương trình?
HS: Thực hiện theo hướng dẫn của GV








GV: Hướng dẫn hs nhấn phím F7 để thực hiện các câu lệnh.

HS: Thực hiện theo hướng dẫn của GV

GV: Yêu cầu hs về nhà tự làm các ý còn lại
I. NỘI DUNG:
Bài toán: Bộ số Pitago
a) Gõ chương trình kiểm tra bộ số Pi-ta-go
Program Pi_ta_go;
Var a, b, c :Integer;
a2, b2, c2: Longint;
Begin
Write(‘ a, b, c ‘); Readln(a, b, c);
a2:=a; b2:=b; c2:=c;
a2:=a2*a; b2:=b2*b; c2:=c2*c;
If (a2=b2+c2) or (b2=a2+c2) or
(c2=a2+b2) then
Writeln(‘ Day la bo so Pi-ta-go’)
Else Writeln(‘ Day khong phai bo so
Pi-ta-go’);
Readln
End.
b) Lưu chương trình với tên Pitago lên đĩa
Muốn lưu tên chương trình được thì sau khi gõ xong chương trình ta nhấn phím F2 hoặc chọn vào File-> Saves hiển thị hộp thoại ta gõ tên chương trình là:Pitago rồi chọn OK.
c) Nhấn phím F7 để thực hiện từng câu lệnh chương trình, nhập các giá trị
a =3, b=4 , c=5.
d)Vào bảng chọn Debug để hiệu chỉnh các giá trị a2, b2, c2
Muốn thực hiện được ta chọn vào Debug ở trên thanh bảng chọn

e)Nhấn phím F7 để thực hiện từng câu lệnh chương trình, nhập các giá trị
a =9, b=16 , c=25.




3. Củng cố, luyện tập(3’)
- Nhắc nhở lại kiến thức cơ bản của bài học về cấu trúc rẽ nhánh, lăp, cấu trúc chương trình và các thành phần của chương trình.
Luyện tập:
Hãy Nhấn phím F7 để thực hiện từng câu lệnh chương trình, nhập các giá trị
a =6, b=15 ,