tieát 23 giaùo aùn töï choïn tin 8 tröôøng thcs thaïnh myõ – ñôn döông ngµy so¹n 11012009 tuçn 21 ngµy d¹y 13012009 tiõt 41 baøi thöïc haønh soá 5 söû duïng leänh laëp for do t1 i muïc tieâu 1 k

2 16 0
tieát 23 giaùo aùn töï choïn tin 8 tröôøng thcs thaïnh myõ – ñôn döông ngµy so¹n 11012009 tuçn 21 ngµy d¹y 13012009 tiõt 41 baøi thöïc haønh soá 5 söû duïng leänh laëp for do t1 i muïc tieâu 1 k

Đang tải... (xem toàn văn)

Thông tin tài liệu

- 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étWhereY 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ò :

Ngày đăng: 12/04/2021, 11:54

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan