- Rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp for … do, tìm hiểu tác dụng của các câu lệnh.. Thái độ.[r]
(1)Ngày soạn:
Ngày dạy: 8C1: 8C2: 8C3: Tiết 42 Bài thực hành 5:
SỬ DỤNG LỆNH LẶP FOR…DO I MỤC TIÊU:
1 Kiến thức:
- Viết chương trình có sử dụng vòng lặp for…do - Sử dụng câu lệnh ghép
2 Kỹ năng
- Rèn luyện kĩ đọc hiểu chương trình có sử dụng vịng lặp for … do, tìm hiểu tác dụng câu lệnh
3 Thái độ
- Ham thích lập trình máy tính để giải tập 4 Năng lực
Năng lực tự học; giải vấn đề; sáng tạo; giao tiếp; tự quản lý; hợp tác; sử dụng công nghệ thông tin truyền thông; sử dụng ngôn ngữ
II CHUẨN BỊ:
- Giáo viên: Giáo án, SGK, SGV, phòng máy. - Học sinh: Học cũ nhà.
III PHƯƠNG PHÁP, KĨ THUẬT
- Phương pháp: Đặt vấn đề, vấn đáp, gợi mở, phân tích, trực quan, thực hành. - Kĩ thuật: Động não, chia nhóm, giao nhiệm vụ.
IV TIẾN TRÌNH HOẠT ĐỘNG-GIÁO DỤC 1 Ổn định lớp (1')
2 Bài mới
A HOẠT ĐỘNG KHỞI ĐỘNG (3')
Hoạt động GV HS Nội dung
Mục tiêu: Nêu ví dụ hoạt động lặp
GV: Đặt tình HS: Trả lời
HS: Nhận xét, đánh giá GV: Nhận xét, đánh giá
Em nêu vài ví dụ hoạt động lặp mơn Tốn?
B HOẠT ĐỘNG HÌNH THÀNH KIẾN THỨC (24')
Hoạt động GV HS Nội dung
- Mục tiêu: Rèn luyện kĩ đọc hiểu chương trình có sử dụng vòng lặp for …
(2)- GV: Em biết ý tưởng bài ta làm nào?
- GV: ta nhập số vào từ bàn phím sử dụng vịng for cho chạy từ đến 10 Sau nhân số vừa nhập với biến vịng for
- HS nghiên cứu chương trình SGK nhóm thảo luận cho biết chương trình chạy hồn thành bảng tiến trình sau:
Bước i i10? x',i,' = ', N*i)Writeln(N,' 1 Đúng 3x1 =
2 Đúng 3x2 = 3 Đúng 3x3 = 4 Đúng 3x4 = 12 5 Đúng 3x5 = 15 6 Đúng 3x6 = 18 7 Đúng 3x7 = 21 8 Đúng 3x8 = 24 9 Đúng 3x9 = 27 10 10 Đúng 3x10 = 30 11 11 Sai Không thực
hiện lệnh writeln kết thúc
GV yêu cầu HS gõ chương trình vào máy chạy chương trình với giá trị nhập 1,2, 10 sau quan sát kết
HS: Thực hành theo nhóm máy GV: Quan sát, hướng dẫn HS
hình để quan sát kết Program Bang_nhan; Uses crt;
Var N, i : integer; Begin
clrscr;
Write('Nhập số N='); Readln(N); Writeln;
Write('bang nhan ',N); Writeln;
For i:= to 10
Writeln(N,' x',i:2,' = ', N*i:3); readln;
End.
C HOẠT ĐỘNG LUYỆN TẬP (5')
Viết chương trình tính xn=x.x.x ….x( n lần x với n nhập từ bàn phím).
Đáp án: Uses crt;
Var N, i : integer; Begin
clrscr;
(3)For i:= to n S:=S*x; Write(S);
readln; End.
D HOẠT ĐỘNG VẬN DỤNG, SÁNG TẠO (5')
Số hoàn hảo số tổng ước thực Hãy viết chương trình tìm số hồn hảo nhỏ 1000
Ví dụ, số hồn hảo 6=1+2+3 Uses crt;
Var N, i : integer; Begin
clrscr;
Write('Nhập số N='); Readln(N); Writeln;
For i:=1 to n do Begin
S:=1;
For j:= to i-1
If i mod j=0 then S:=S+j; If S=i then Write(S);
End; readln; End.
E HOẠT ĐỘNG TÌM TỊI, MỞ RỘNG (5')
Em viết chương trình ngơn ngữ lập trình khác mà em tìm hiểu Chạy thử cho biết kết nhận chương trình
* HƯỚNG DẤN VỀ NHÀ (2') - Thực hành lại tập nhà - Xem trước phần
(4)