HS: Ghi chÐp cÊu tróc vµ lÜnh héi GV: Đưa nội dung chương trình bài thực hành 3 lên màn hình, yêu cầu học sinh đọc chương trình, tìm hiểu hoạt động của chương trình.. HS: Hoạt động theo [r]
Trang 1Ngày soạn:
Bài thực hành 5
Sử dụng lệnh lặp for do
(Tiết 41)
A Mục tiêu.
* Kiến thức: - Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chương
trình.
* kỹ năng: - Viết được chương trình có sử dụng vòng lặp for … do;
- Sử dụng được câu lệnh ghép;
- Rèn luyện kỹ năng đọc hiểu chương trình có sử dụng vòng lặp for … do.
* Thái độ: - Nghiêm túc Yêu thích môn học
B Phương pháp.
- Hoạt động nhóm, làm bài tập trên máy.
- Thực hành, rèn luyện kỹ năng đọc hiểu vòng lặp for … do.
C Chuẩn bị.
1 Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2 Chuẩn bị của học sinh: Học bài, SGK, làm bài thực hành.
D Tiến trình lên lớp.
I ổn định: Kiểm tra sĩ số ( 1 phút)
II Kiểm tra bài cũ: ( 4 phút)
- Làm bài tập 5, 6 SGK trang 61.
III Bài mới:
1 Đặt vấn đề: Chúng ta đã nghiên cứu lý thuyết về vòng lặp for … do Để biết vòng lặp chạy như thế nào thì hôm nay chúng ta cùng nhau đi vào tiết thực hành.
2 Triển khai bài:
a Hoạt động 1: Viết chương trình cho các bài tập (35 phút).
Hoạt động của thầy và trò Nội dung kiến thức GV
HS
GV
Yêu cầu HS trình bày câu lệnh lặp với số lần
biết trước?
Lên bảng thực hiện.
Yêu cầu HS trình bày nguyên tắc hoạt động
1 Nội dung thực hành.
* Lý thuyết:
- Câu lệnh lặp với số lần biết trước:
For<Biến đếm>:=<Giá trị đầu> To <Giá trị cuối> Do <Câu lệnh>;
Trang 2GV
HS
GV
GV
GV
HS
GV
HS
GV
HS
GV
HS
GV
của câu lệnh for … do.
Trả lời.
Yêu cầu HS thực hiện viết chương trình tính
tổng n số tự nhiên đầu tiên.
Gõ chương trình, chạy thử chương trình và
báo cáo kết quả.
Nhận xét, bổ sung bài làm của HS.
Hỗ trợ học sinh trong quá trình thực hành.
Đưa ra nội dung của bài toán.
Nghiên cứu bài toán, tìm input và output.
Đưa nội dung chương trình lên màn hình, yêu
cầu học sinh đọc hiểu chương trình.
Đọc, phân tích câu lệnh tìm hiểu hoạt động
của chương trình.
Yêu cầu một học sinh đứng tại vị trí trình bày
hoạt động của chương trình, các nhóm khác
cùng tham gia phân tích.
Tham gia hoạt động của giáo viên
Yêu cầu học sinh lập bảng hoạt động của
chương trình theo mẫu:
Giả sử N=2:
Bước i i<=10 Writeln( n,’.’,i,’=’,n*i )
Các nhóm lập bảng và đại diện nhóm báo cáo
kết quả.
Nhận xét, cho chương trình chạy trên máy, yêu
cầu học sinh quan sát kết quả.
Bài 1: Tính tổng của n số tự nhiên đầu tiên Program tinh_tong;
Uses crt;
Var i, n: integer ; tong: longin ; Begin
Clrscr;
Tong:=0;
Writeln(‘Nhap vao so n’); readln(n);
For i:=1 to n do Tong: = Tong+i;
Writeln(‘Tong của’, n,’so tu nhien dautien la’,tong);
Readln;
End.
Bài 2: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát kết quả.
Uses crt;
Var i, n: integer ; Begin
Clrscr;
Writeln(‘Nhap vao so n’); readln(n);
Writeln(‘Bang nha’,n);
Writeln;
For i:=1 to 10 do Writeln(n,’x’,i:2,’=’,n*i:3);
Readln;
End.
Trang 3
IV Cũng cố: (5 phút)
- Nhận xét bài làm của các nhóm và chung cho toàn lớp
- Kết thúc tiết học, cho HS tắt máy.
V Dặn dò:
- GV: Hướng dẫn HS nghiên cứu trước các bài thực hành còn lại:
+ Đọc trước bài tập 2, giải thích câu lệnh gotoxy(), where<>.
Trang 4Ngày soạn:
Bài thực hành 5
Sử dụng lệnh lặp for do
(Tiết 42)
A Mục tiêu.
* Kiến thức: - Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chương
trình, tìm hiểu câu lệnh gotoxy(), where<>, lệnh for lồng trong for.
* kỹ năng: - Viết được chương trình có sử dụng vòng lặp for … do;
- Sử dụng được câu lệnh ghép;
- Rèn luyện kỹ năng đọc hiểu chương trình có sử dụng vòng lặp for … do.
* Thái độ: - Nghiêm túc Yêu thích môn học
B Phương pháp.
- Hoạt động nhóm, làm bài tập trên máy.
- Thực hành, rèn luyện kỹ năng đọc hiểu vòng lặp for … do.
C Chuẩn bị.
1 Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2 Chuẩn bị của học sinh: Học bài, SGK, làm bài thực hành.
D Tiến trình lên lớp.
I ổn định: Kiểm tra sĩ số ( 1 phút)
II Kiểm tra bài cũ:
III Bài mới:
1 Đặt vấn đề: Chúng ta đã nghiên cứu lý thuyết về vòng lặp for … do Để biết vòng lặp chạy như thế nào thì hôm nay chúng ta cùng nhau đi vào tiết thực hành.
2 Triển khai bài:
a Hoạt động 1: Làm đẹp màn hình kết quả bằng lệnh gotoxy, where (19 phút).
Hoạt động của thầy và trò Nội dung kiến thức GV
HS
GV
Yêu cầu HS khởi động máy tính, khởi động
Turbo Pascal.
Thực hiện.
cho chạy kết quả của bài thực hành
Bang_cuu_chuong Yêu cầu học sinh quan sát
kết quả và nhận xét khoảng cách giữa các
1 Nội dung thực hành.
* Bài tập:
- Bài 2 sgk (T63) a) Giới thiệu lệnh gotoxy(), wherex
- Gotoxy(a,b) Trong đó: a là chỉ số cột, b là chỉ số hàng
Trang 5GV
HS
GV
HS
GV
HS
hàng, cột
quan sát và đưa ra nhận xét.
? Có cách nào để khoảng cách giữa các hàng
và các cột tăng lên?
Trả lời.
Giới thiệu câu lệnh gotoxy và where.
yêu cầu học sinh mở chương trình
Bang_cuu_chương và sửa lại chương trình
theo bài trên màn hình của giáo viên.
Gõ chương trình vào máy, sửa lỗi chính tả,
chạy chương trình, quan sát kết quả.
Yêu cầu học sinh quan sát kết quả và so sánh
với kết quả của chương trinh khi chưa dùng
lệnh gotoxy(5, wherey)
Quan sát và nhận xét.
- ý nghĩa của câu lệnh là đưa con trỏ về cột a hàng b.
- Wherex: cho biết số thứ tự của cột, wherey cho biết số thứ tự của hàng.
* Lưu ý: Phải khai báo thư viện crt trước khi sử dụng hai lệnh trên
a) Chỉnh sửa chương trình như sau:
Uses crt;
Var i, n: integer ; Begin
Clrscr;
Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’, n);
Writeln;
For i:=1 to 10 do begin
gotoxy(5, wherey);
Writeln(n,’x’,i:2,’=’,n*i:3);
Readln;
End.
b Hoạt động 2: Sử dụng lệnh For lồng trong for (20 phút).
GV: Giới thiệu cấu trúc lệnh for lồng, hướng
dẫn học sinh cách sử dụng lệnh.
HS: Ghi chép cấu trúc và lĩnh hội
GV: Đưa nội dung chương trình bài thực hành 3
lên màn hình, yêu cầu học sinh đọc chương
trình, tìm hiểu hoạt động của chương trình.
HS: Hoạt động theo nhóm, tìm hiểu hoạt động
của chương trinh, đại diện của nhóm báo cáo
kết quả thảo luận.
GV: Cho chạy chương trình.
Bài 3 SGK (T64).
a) Câu lệnh for lồng trong for
- For < biến đếm1 >:= < giá trị đầu >to < giá trị cuối >do
For < biến đếm2 >:= < giá trị đầu > to
< giá trị cuối >do
< câu lệnh > ;
Uses crt;
Var i,j: byte ;
Trang 6HS : Quan sát kết quả trên màn hình.
Kết thúc cho HS tắt chương trình ứng dụng, tắt
máy, tắt nguồn.
Begin Clrscr;
For i:=1 to 9 do Begin
For j:=0 to 9 do Writeln(10*i+j:4);
Writeln;
End;
Readln;
End.
IV Cũng cố: (5 phút)
- Nhận xét bài làm của các nhóm và chung cho toàn lớp
- Nhận xét rút kinh nghiệm giờ thực hành.
- Kết thúc tiết học, cho HS tắt máy.
V Dặn dò:
- học sinh về nhà sử dụng lệnh gotoxy để chỉnh sửa lại bài thực hành số 3 cho kết quả in
ra màn hình đẹp.