Thư Viện STEM STEAM Bài thực hành 6 SỬ DỤNG LỆNH LẶP WHILE DO I Mục đích 1 Kiến thức Viết được chương trình có sử dụng vòng lặp While do Sử dụng được câu lệnh ghép 2 Kĩ năng Đọc hiểu chương trình có v[.]
Trang 1
Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO I.Mục đớch
1 Kiến thức
Viết được chương trỡnh cú sử dụng vũng lặp While…do
Sử dụng được cõu lệnh ghộp
2.Kĩ năng
Đọc hiểu chương trỡnh cú vũng lặp while…do
3.Thỏi độ
Cú ý thức tư duy, cú thỏi độ ham học hỏi, tỏc phong làm việc nghiờm tỳc
4 Định hướng phỏt triển năng lực: năng lực sử dụng mỏy tớnh, năng lực giải quyết vấn đề,
năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm
PHƯƠNG PHÁP:
Đặt và giải quyết vấn đề - Luyện tập thực hành
II CHUẨN BỊ BÀI HỌC:
1 Giỏo viờn : - SGK, tài liệu, Giỏo ỏn, Phũng mỏy
2 Học sinh :- Đọc trước bài TH6
III TIẾN TRèNH BÀI HỌC:
1.Hoạt động 1: Khởi động
Kiểm tra 15’: Viết chương trỡnh tớnh tổng hai số a, b (với giỏ trị của a, b được nhập vào từ
bàn phớm)
Biểu chấm: (hs thiếu 5 dấu ; trở lờn trừ 1đ)
Program tong_hai_so;
Uses crt ;
Var a, b : real ;
Begin
Clrscr;
Write(‘Nhập a, b :) ;
Readln(a,b) ;
Writeln(‘Tong của a va b la:’, (a+b):4:2) ;
Readln ;
End
1 điểm khụng được cho dấu , vào tờn và khụng cú dấu cỏch
1 điểm
1 điểm
1 điểm sau begin cú ; khụng cho điểm
1 điểm viết trước begin khụng cho điểm
1 điểm
1 điểm
1 điểm Nếu viết Writeln(‘Tong của a va b la:’,s); s:=a+b; sẽ khụng ra kq, chỉ ra =0
1 điểm khụng cú dấu ; vẫn đỳng
1 điểm
2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)
HOẠT ĐỘNG CỦA GIÁO VIấN
Trang 2Luyện tập Bài 1: Tính trung bình của n số
x1,x2,x3, xn.
G: Yêu cầu hs xác định bài toán
G: Học sinh mô tả thuật toán
G: Gợi ý để học sinh viết thuật toán
G: Dựa vào thuật toán và sử dụng lệnh
While do để viết chương trình
- Khai báo biến cho chương trình
+Gán biến đem =0 và tb=0;
Nhập n;
+Trong khi dem<n thì
- Tăng dem lên 1
- Nhập x
- Cộng dồn giá trị TB vào
+Tính giá trị trung bình
+In ra màn hình
H: Xác định bài toán:
- Input: Cho n số x1, x2, x3…xn.
- Output: Tính trung bình.
H: Mô tả thuật toán:
B1: dem0; TB0;
B2: nhập n;
B3: Nếu dem>n thì tới bước 5 B4: demdem+1; nhập x; TBTB+x; B5: Kết thúc và in kết quả ra màn hình Program trungbinh;
Uses crt;
Var N, dem: integer;
X, TB: Real;
Begin Clrscr;
begin Dem:=0; TB:=0;
Write (‘nhap so N =’); Readln(N);
While dem<n do Begin
Dem:=dem +1;
Write(‘nhap x:’); Readln(x);
Tb:= TB+x;
End;
TB:=TB\n;
Writeln(‘ Trung bình của’,n, ‘ so là:’,tb); Readln
End
Thực hành
G: Hướng dẫn và quan sát học sinh gõ
chương trình vào Pascal
G: Dặn dò học sinh và tìm các lỗi sai
để sửa cho học sinh
H: Gõ chương trình H: Chỉnh sửa và chạy lại chương trình H: Bấm F9 để sửa lỗi
H: Bấm CTRl+F9 để chạy chương trình H: Nhận xét và rút ra kết luận
Trang 3 Câu lệnh lặp với số lần biết trước và câu lệnh lặp với số lần chưa biết trước Sử dụng câu lệnh lặp chưa biết trước vào các bài toán
Cú pháp câu lệnh lặp chưa biết trước? Lỗi lặp vô hạn lần
Dặn dò
Làm bài tập trong SGK
VI Rút kinh nghiệm
………
………
Trang 4Bài thực hành 6: SỬ DỤNG LỆNH LẶP WHILE…DO (tiếp) I.Mục đớch
1 Kiến thức
Viết được chương trỡnh cú sử dụng vũng lặp While…do
Sử dụng được cõu lệnh ghộp
2.Kĩ năng
Đọc hiểu chương trỡnh cú vũng lặp while…do
3.Thỏi độ
Cú ý thức tư duy, cú thỏi độ ham học hỏi, tỏc phong làm việc nghiờm tỳc
4 Định hướng phỏt triển năng lực: năng lực sử dụng mỏy tớnh, năng lực giải quyết vấn đề,
năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm
PHƯƠNG PHÁP:
Đặt và giải quyết vấn đề - Luyện tập thực hành
II CHUẨN BỊ BÀI HỌC:
1 Giỏo viờn :
- SGK, tài liệu, Giỏo ỏn, Phũng mỏy
2 Học sinh :
- Đọc trước bài TH6
III TIẾN TRèNH BÀI HỌC:
1.Hoạt động 1: Khởi động (5 phỳt)
Kiểm tra bài cũ ( Kiểm tra trong qua trỡnh thực hành).
2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)
HOẠT ĐỘNG CỦA GIÁO VIấN
Luyện tập Bài 2: Viết chương trỡnh kiểm tra xem
số nhập vào cú phải là số nguyờn tố
hay khụng?
G: Thế nào được gọi là số nguyờn tố?
G: Kiểm tra số nhập vào chia hết cho
1,2,3…n khụng? Nếu chia hết nú
khụng phải là số nguyờn tố, cũn nú
khụng chia hết cho bất kỡ số nào trừ số
1 và chớnh nú thỡ đưa ra màn hỡnh nú là
Số nguyờn tố là số lớn hơn 1 và là ước của 1 và chớnh nú
Trang 5G: Dựa vào thuật toán và sử dụng lệnh
While do để viết chương trình
- Khai báo biến cho chương trình
+ Nhập n;
Kiểm tra xem n<=1;
Kiểm tra điều kiện nếu phần dư của n
mod I <>0 thì n là số nguyên tố
Ngược lại n không phải là số nguyên
tố
tố Program trungbinh;
Uses crt;
Var N, i: integer;
Begin Clrscr;
begin Write (‘nhap so N =’); Readln(N);
If n<=1 then writeln(n, ‘ khong phai la nguyen to’);
Else Begin I:=2;
While (n mod i)<>0 do Begin
i=i+1;
if i=n then writeln(n, ‘là so nguyen to’) else writeln(n, ‘ khong la so nguyen to’);
End;
Readln End
Thực hành
G: Hướng dẫn và quan sát học sinh gõ
chương trình vào Pascal
G: Dặn dò học sinh và tìm các lỗi sai
để sửa cho học sinh
H: Gõ chương trình H: Chỉnh sửa và chạy lại chương trình
H: Bấm F9 để sửa lỗi
H: Bấm CTRl+F9 để chạy chương trình
H: Nhận xét và rút ra kết luận H: Tự khám phá
3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút):
- Sử dụng vòng lặp While do cho các bài toán
- Sử dụng câu lệnh ghép
Dặn dò:
- Ôn tập tuần sau kiểm tra 1 tiết
VI Rút kinh nghiệm
………
………