- Chuù yù coù theå keát hôïp caâu leänh GotoXY(a,b)vôùi caùc haøm chuaån WhereX vaø WhereY ñeå ñieàu khieån vò trí cuûa con troû treân maøn hình. Daên doø :[r]
(1)Ngày soạn: 11/01/2009 Tuần:21
Ngày dạy: 13/01/2009 TiÕt: 41
BAØI THỰC HAØNH SỐ
SỬ DỤNG LỆNH LẶP FOR … DO (T1)
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 … - Sử dụng câu lênh
2 Kó naêng:
- Rèn kỹ đọc hiểu chương trình có sử dụng vịng lặp for … Thái Độ: Thấy nhu cầu cần có cấu trúc lặp ngơn ngữ lập trình II Phương Pháp: Thuyết trình, vấn đáp, thực hành luyện tập.
III Chuẩn Bị: 1 Giáo Viên:
-Nội dung dạy, phòng máy phần mềm liên quan -Máy chiếu, sgk thiết bị dạy học
2 Hoïc Sinh:
-Vở ghi, sgk, xem nội dung thực hành IV.Tiến trình dạy học:
1 Ổn định:
2 Kiểm tra cũ:
Cho đoan chương trình :
for i:= to Begin
Write(‘Nhap ten cua ban : ‘); Readln(Ten); Writeln(‘Chao ban : ‘,Ten);
End;
- Sau thực chương trình trên, ta thấy kết ? 3 Bài mới:
Đặt vấn đề :
- Để có kết in hình bảng sau sử dụng câu lệnh ?
Hoạt động thầy Hoạt động trò Nội Dung
Hoạt động : Nhập tìm hiểu 1 - GV giới thiệu tập (trên máy
chiếu) Cho học sinh thực hành gõ chương trình (SGK/62) - GV quan sát tiến trình thực hành
của học sinh
- Các em tìm hiểu ý nghóa câu lênh chương trình
- HS thực hành theo nhóm (2HS)
- HS tìm hiểu đại diện số nhóm trả lời
Baứi : Viết chơng trình in hình bảng nhân số từ đến 9, số đợc nhập từ bàn phím dừng hình để quan sát kết quả:
a Gõ chương trình sau : uses crt;
var N,i:integer;
begin
(2)- GV nhấn mạnh câu lệnh for … - GV ý cho HS : Trong vịng lặp for … có nhiều câu lệnh phải đặt Begin … end; - Cho HS dịch chương trình sửa
lỗi
- Cho HS tiếp tục làm câu c, quan sát kết nhận hinh, nhận xét
- Hãy cho biết số lần lặp vòng lặp for … ứng với giá trị 1, 2, 3,…, 10 ?
- Chú ý : Nếu chương trình lặp lại nhiều lần, ta muốn ngắt chương trình sử dụng tổ hợp phím Ctrl + Break.
- Theo em nhận xét kết nhận có đẹp chưa ? Vậy quan sát hình 37 tiến hành làm (SGK/63)
- HS ý
- HS thực theo yêu câu
- HS trả lời Quan sát - Chú ý lắng nghe
write('Nhap so N='); readln(N); writeln;
writeln('Bang nhan ',N); writeln;
for i:=1 to 10 do writeln(N,' x ',i:2,' = ',N*i:3);
readln
end
b T×m hiĨu ý nghÜa cđa câu lệnh chơng trình, dịch chơng trình sửa lỗi, có
c Chy chng trỡnh vi giá trị nhập vào lần lợt 1, 2, , 10 Quan sát kết nhận đợc hình
Hoạt động : Thực hành 2 - Trong hình 36, khác kết
nhận chổ nào?
- GV giới thiệu cho HS lệnh GotoXY, WhereX WhereY (Máy chiếu)
- Cho học sinh thực bổ sung câu lênh
- HS trả lời
- HS ý phần lưu ý sách giáo khoa, quan sát theo doõi
- HS thực hành theo yêu cầu
Bài 2: Chỉnh sửa chương trình hình để làm đẹp thêm hình
* Lưu yù:
- Chỉ sử dụng đợc lệnh GotoXY, WhereX WhereY sau khai báo th viện crt ca Pascal
- Câu lệnh GotoXY(a, b) có tác dụng đa trỏ cột a, hàng b
- WhereX cho biÕt sè thø tù cđa cét vµ WhereY cho biết số thứ tự hàng có trỏ Ví dụ GotoXY(5,WhereY) đa trỏ vị trí cột hàng
Củng cố :
- Số lần lặp chương trình for có biết trước khơng? - Câu lệnh GotoXY(a,b) có tác dụng ?
- Chú ý kết hợp câu lệnh GotoXY(a,b)với hàm chuẩn WhereX WhereY để điều khiển vị trí trỏ hình
Dăn dò :