Tải Giáo án Tin học 8 bài 7: Câu lệnh lặp theo Công văn 5512 - Giáo án điện tử môn Tin học 8 bài 7

Đị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.. CHUẨN BỊ BÀI [r]

Bài CÂU LỆNH LẶP I Mục tiêu:

1 Kiến thức:

- Biết nhu cầu cần có cấu trúc lặp ngơn ngữ lập trình

- Biết ngơn ngữ lập trình dùng cấu trúc lặp để dẫn máy tính thực lặp lặp lại cơng việc số lần

2 Kĩ năng:

- Rèn luyện kỹ vận dụng câu lệnh lặp Thái độ:

- Thái độ học tập nghiêm túc, u thích mơn học

4 Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm

PHƯƠNG PHÁP:

- Nêu lí thuyết – thực hành. II CHUẨN BỊ BÀI HỌC: Sách giáo khoa, máy tính điện tử III Tiến trình dạy:

1 Hoạt động 1: Khởi động (5 phút) - Kiểm tra sĩ số:

- Ổn định trật tự, tạo không khí thoải mái để bắt đầu tiết học Kiểm tra cũ : (Kiểm tra q trình ơn tập) Hoạt động 2: Hình thành kiến thức (30 phút):

Hoạt động GV HS Nội dung

+ Tìm hiểu cơng việc phải thực nhiều lần sống

Trong sống ngày, nhiều hoạt động thực lặp lặp lại nhiều lần ví dụ: - Các ngày tuần em lặp lặp lại hoạt động buổi sáng đến trường buổi trưa trở

+ Học sinh ý lắng nghe => ghi nhớ kiến thức

+ Số lần lặp biết trước:

Các ngày tuần em lặp lặp lại hoạt động buổ sáng đến trường buổi trưa trở nhà

+ Số lần lặp trước: Trong trận cầu lông em lặp lặp lại công việc đánh cầu kết thúc

1 Các công việc phải thực nhiều lần Khi viết chương trình máy tính, nhiều trường hợp ta phải viết lặp lại nhiều câu lệnh để thực phép tính định

về nhà

- Các em học phải đọc đọc lại nhiều lần thuộc ? Em cho vài dụ sống mà ta phải thực lặp lặp lại nhiều lần với số lần biết trước khơng biết trước

+ Tìm hiểu câu lệnh lặp -một lệnh thay cho nhiều lệnh

Ví dụ 1: Giả sử cần vẽ hình vng có cạnh đơn vị Mỗi hình vng ảnh dịch chuyển hình bên trái khoảng cách đơn vị ? Việc vẽ hình thực theo thuật tốn

Ví dụ 2: Thuật tốn tính S= 1+2+3+ … + 100 Bước 1: S ← 0; i ← Bước 2: i← i +

Bước 3: i ≤ 100, S ← S + i quay lại bước 2; ngược lại kết thúc

- Mọi ngơn ngữ lập trình có cách để thị cho máy tính thực cấu trúc lặp với câu lệnh “câu lệnh lặp”

trận cầu

+ Học sinh ý lắng nghe Việc vẽ hình thực theo thuật tốn sau:

- Bước 1: vẽ hình vuông(vẽ liên tiếp cạnh trở đỉnh ban đầu)

- Bước 2: Nếu số hình vng vẽ , di chuyển bút vẽ bên phải đơn vị trở lại bước 1; ngược lại kết thúc thuật tốn

Học sinh ý lắng nghe, ghi nhớ kiến thức

Học sinh ý lắng nghe

lệnh:

- Cách mơ tả hoạt động thuật tốn ví dụ gọi cấu trúc lặp

- Mọi ngơn ngữ lập trình có cách để thị cho máy tính thực cấu trúc lặp với câu lệnh “câu lệnh lặp”

? Cho vài ví dụ hoạt động thực lặp lại sống ngày Dặn dò:

- Về nhà học kết hợp sách giáo khoa  Rút kinh nghiệm:

Bài CÂU LỆNH LẶP (tiếp) I Mục tiêu:

1 Kiến thức:

- Biết pháp hoạt động vòng lặp xác định For - Biết sử dụng vòng lặp For để viết số chương trình Kĩ năng:

- Rèn luyện kỹ sử dụng vòng lặp để làm tập Thái độ:

- Thái độ học tập nghiêm túc, u thích mơn học

4 Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm

PHƯƠNG PHÁP:

- Nêu lí thuyết – thực hành II CHUẨN BỊ BÀI HỌC: Sách giáo khoa, máy tính điện tử III Tiến trình dạy:

1 Hoạt động 1: Khởi động (5 phút) - Kiểm tra sĩ số:

- Ổn định trật tự, tạo khơng khí thoải mái để bắt đầu tiết học Kiểm tra cũ:

? Cho vài ví dụ hoạt động thực lặp lại sống ngày 2.Hoạt động 2: Hình thành kiến thức (30 phút):

Hoạt động GV HS Nội dung

+ Ví dụ cầu lệnh lặp - Cú pháp:

For <biến đếm>:= <giá

+ Học sinh ý lắng nghe => ghi nhớ kiến thức

3 Ví dụ câu lệnh lặp: - Cú pháp:

trị đầu> to <giá trị cuối> do

<câu lệnh>;

- Học sinh quan sát hoạt động vòng lặp sơ đồ khối => nêu hoạt động vịng lặp

Ví dụ: Chương trình sau in hình thứ tự lần lặp

Program lap; Var i: integer; Begin

Clrscr;

For i:= to 10 Writeln(‘Day la lan lap thu’,i);

Readln; End

+ Tìm hiểu tính tổng tích câu lệnh lặp Ví dụ 5: Chương trình sau tính tổng N số tự nhiên với N nhập từ bàn phím

Program tinh_tong; Var N,i: Integer;

S: longint; Begin

Clrscr;

Writeln(‘Nhap N =’); Readln(N);

S:=0;

For i:=1 to N S:=S+i;

+ Hoạt động vòng lặp: - B1: biến đếm nhận giá trị đầu

- B2: Chương trình kiểm tra biểu thức điều kiện, biểu thức điều kiện thực câu lệnh - B3: Biến đếm tự động tăng lên đơn vị quay lại B2

- B4: Nếu biểu thức điều kiện nhận giá trị sai khỏi vòng lặp Học sinh ý lắng nghe Học sinh ý lắng nghe => ghi nhớ kiến thức Program tinh_giai_thua; Var N,i: Integer;

P: Longint; Begin

Clrscr;

Write(‘Nhap N =’); readln(N);

P:=1;

For i:=1 to N P:=P*i;

Wirteln(N,’!=’,P); Readln;

End

trị đầu> to <giá trị cuối>

<câu lệnh>;

4 Tính tổng tích bằng câu lệnh lặp: Ví dụ 5: Chương trình sau tính tổng N số tự nhiên với N nhập từ bàn phím

Program tinh_tong; Var N,i: Integer;

S: longint; Begin

Clrscr;

Writeln(‘Nhap N =’); Readln(N);

S:=0;

For i:=1 to N S:=S+i;

Witeln(‘tong la:’,S); Readln;

End

- Ví dụ 6: Ta kí hiệu N! tích N số tự nhiên đầu tiên:

N! = 1.2.3…N

Program tinh_giai_thua; Var N,i: Integer;

P: Longint; Begin

Clrscr;

Write(‘Nhap N =’); readln(N);

P:=1;

Witeln(‘tong la:’,S); Readln;

End

- Ví dụ 6: Ta kí hiệu N! tích N số tự nhiên đầu tiên: N! = 1.2.3…N

Yêu cầu học sinh viết chương trình theo hướng dẫn giáo viên

P:=P*i;

Wirteln(N,’!=’,P); Readln;

End

3 Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút):

? Hãy nêu cú pháp hoạt động vịng lặp khơng xác định For Dặn dị:

- Về nhà học kết hợp sách giáo khoa * Rút kinh nghiệm:

Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO I.Mục đích

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

 Đọc hiểu chương trình có vịng lặp For…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 1 Định hướng phát triển lực: lực sử dụng máy tính, lực giải

quyết vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm

PHƯƠNG PHÁP:

 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 - Đồ dùng dạy học

- Đọc trước Thực hành III TIẾN TRÌNH BÀI HỌC:

1 Hoạt động 1: Khởi động (5 phút) Kiểm tra cũ

Cho vài ví dụ hoạt động thực lặp lại sống ngày?

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 VÀ HỌC

SINH

NỘI DUNG, YÊU CẦU CẦN ĐẠT

Hướng dẫn BÀI 1: Viết chương trình in hình bảng nhân số từ đến nhập từ bàn phím dừng hình để quan sát kết G: Yêu cầu học sinh khai báo

G: Nhập n?

G: Writeln dùng để làm gì?

G: Giải thích vịng lặp For in kết bảng nhân

Bước i i< 10 ? Writeln(N,’x’,I,’=’,N*i)

1 Đúng 3x1=3

2 Đúng 3x2=6

3 Đúng 3x3=9

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 lệnh writeln ( ) kết thúc

vòng lặp G: Vì bảng nhân in khơng đẹp lắm,

H: Chú ý nghe giảng hướng dẫn viết chương trình chạy thử bảng

H: Viết chương trình Program Bảngnhân; Uses crt;

Var N, i: integer; Begin

Clrscr;

Write (‘nhap so N =’); Readln (N); Writeln;

Writeln (‘Bang nhan ‘N,); Writeln;

For i:=1 to 10

Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); Readln

End

H: Bấm tổ hợp phím ctrl+F9 chạy chương trình suất hình bảng nhân

muốn đưa bảng nhân làm nào? G: Giới thiệ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ột Wherey: cho biết số thứ tự hàng

G: Thử với gotoxy(40,12) đưa dòng Nhưng muốn cho bảng nhân phải để begin end;

G: Gợi ý cho HS sửa lại chương trình G: Chạy chương trình theo bước để học sinh thấy rõ

Bước i i< 10 ? Writeln(N,’x’,I,’=’,N*i) 1 Đúng Đi tới cột 40 3x1=3 2 Đúng Đi tới cột 40 3x2=6 3 Đúng Đi tới cột 40 3x3=9 4 Đúng Đi tới cột 40 3x4=12 5 Đúng Đi tới cột 40 3x5=15 6 Đúng Đi tới cột 40 3x6=18 7 Đúng Đi tới cột 40 3x7=21 8 Đúng Đi tới cột 40 3x8=24 9 Đúng Đi tới cột 40 3x9=27 10 10 Đúng Đi tới cột 40 3x10=30 11 11 Sai Không thực lệnh

writeln ( ) kết thúc vòng lặp

Bài 3: Sử dụng câu lệnh For… Do lồng để in hình số từ đến 99 theo dạng bảng hình 38 SGK

G: Giới thiệu vịng for lồng chạy chương trình

Khi i=0 j chạy từ đến đưa kết Khi i=1 j chạy từ đến đưa kết i=10 kết thúc

8 x = 16 x = 24 x = 32 x = 40 x = 48 x = 56 x = 64 x = 72 x 10 = 80

Program Bảngnhân; Uses crt;

Var N, i: integer; Begin

Clrscr;

Write (‘nhap so N =’); Readln (N); Writeln;

Writeln (‘Bang nhan ‘N,); Writeln;

For i:=1 to 10 Begin

Gotoxy(40,wherey);

Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); End;

Readln End

- Sử dụng for…do lồng vào nhau?câu lệnh Gotoxy(a,b) có tác dụng gì? Wherex,wherey dùng để làm gì?

Dặn dò:

- Về nhà làm tập SGK

- Chạy sửa lỗi chương trình Rút kinh nghiệm:

Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO (tiếp) I.Mục đích

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

 Đọc hiểu chương trình có vịng lặp For…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 lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm PHƯƠNG PHÁP:

 Đặt giải vấn đề II CHUẨN BỊ BÀI HỌC: 1 Giáo viên:

- SGK, SGV, tài liệu, Giáo án, máy chiếu - Đồ dùng dạy học

2 Học sinh : - Đọc trước

Kiểm tra cũ

? Cõu lệnh Gotoxy(a,b) wherex,wherey dựng để làm gỡ ? 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 VÀ HỌC SINH

NỘI DUNG, YÊU CẦU CẦN ĐẠT Thực hành

G: Yêu cầu viết chương trình in bảng nhân

G: Yêu cầu chạy sửa lỗi

G: Hưỡng dẫn học sinh đọc sửa lỗi G: Bấm F9 kiểm tra lỗi

G: Bấm CTRL +F9 chạy chương trình

Sau chạy bảng cửu chương yêu cầu HS viết cho bảng cửu chương

G: Nhắc lại câu lệnh ghép câu lệnh Gotoxy(a,b);

G: Yêu cầu HS chạy chỉnh sửa giá trị cho in bên phải, bên trái

H: Gõ chương trình vào máy tính Program Bảngnhân;

Uses crt;

Var N, i: integer; Begin

Clrscr;

Write (‘nhap so N =’); Readln(N); Writeln;

Writeln (‘Bang nhan ‘N,); Writeln;

For i:=1 to 10

Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); Readln

End

Program Bảngnhân; Uses crt;

Var N, i: integer; Begin

Clrscr;

Write (‘nhap so N =’); Readln (N); Writeln;

Writeln (‘Bang nhan ‘N,); Writeln;

For i:=1 to 10 Begin

Gotoxy(40,wherey);

Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3); End;

Bài 3: Gõ chạy chương trình

G: Nhắc lại câu lệnh for lồng vào

G: Muốn điều chỉnh bảng kết hình làm nào?

End

H: gõ chương trình Program taobang; Uses crt;

Var i: byte; J: byte; Begin

Clrscr;

For i:= to Begin

For j:=0 to

Write(10*i*j:4); writeln; End;

Readln End

H: For i:= to Begin

For j:=0 to Begin

Gotoxy(10,wherey); Write(10*i*j:4); writeln;

end; End;

H: Chỉnh sửa chạy lại chương trình

H: Nhận xét rút 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): - Cú pháp câu lệnh lặp?

- Sử dụng for…do lồng vào

.Dặn dò

- Về nhà làm tập sách tập R ú t kinh nghi ệ m

……… ……… …

TRẢI NGHIỆM: HỌC MÀ CHƠI, CHƠI MÀ HỌC I Mục tiêu:

1 Kiến thức:

- Sử dụng kiến thức học để làm số tập Kĩ năng:

- Rèn luyện kĩ sử dụng câu lệnh Pascal Thái độ:

- Thái độ học tập nghiêm túc, yêu thích môn học

4.Định hướng phát triển lực: lực sử dụng máy tính, lực giải vấn đề, lực sáng tạo, ứng dụng KHKT, lực tự học, lực hợp tác, làm việc nhóm

PHƯƠNG PHÁP:

Luyện tập thực hành II CHUẨN BỊ BÀI HỌC:

Sách giáo khoa, máy tính điện tử III Tiến trình dạy:

1.Hoạt động 1: Khởi động (5 phút)

2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)

Hoạt động GV HS Nội dung

+ Bài tập

- Sau thực đoạn chương trình sau, giá trị biến j ?

j:= 0;

For i:= to j:= j + 2;

+ Sau thực đoạn chương trình trên, giá trị biến j = 10

1 Bài tập 1

- Sau thực đoạn chương trình sau, giá trị biến j ?

j:= 0;

+ Bài tập

- Các câu lệnh Pascal sau có hợp lệ khơng? Vì sao?

a) For i:= 100 to Writeln(‘A’);

b) For i:= 1.5 to 10.5 Writeln(‘A’);

c) For i:= to 10 Writeln(‘A’); d) For i:= to 10 do;

Writeln(‘A’); + Bài tập

- Viết chương trình in hình bảng cửu chương

- Yêu cầu học sinh viết chương trình

- Nhận xét chương trình học sinh

- Yêu cầu học sinh dịch, sửa lỗi chạy chương trình

+ Học sinh đọc đề => suy nghĩ trả lời

a) Câu lệnh khơng hợp lệ giá trị đầu lớn giá trị cuối

b) Câu lệnh khơng hợp lệ giá trị đầu giá trị cuối giá trị nguyên c) Đây câu lệnh hợp lệ d) Đây câu lệnh khơng hợp lệ sau từ khóa khơng có dấu chấm phẩy

+ Học sinh tìm hiều đề

+ Học sinh viết chương trình theo yêu cầu giáo viên Program in_bang_cuu_chuong ;

Var i: integer; Begin

Clrscr;

For i:= to 10

Writeln(2,’ x ‘,i,’ = ’,i*2);

Readln; End

+ Thực theo yêu cầu giáo viên

- Các câu lệnh Pascal sau có hợp lệ khơng? Vì sao? a) For i:= 100 to

Writeln(‘A’);

b) For i:= 1.5 to 10.5 Writeln(‘A’);

c) For i:= to 10 Writeln(‘A’); d) For i:= to 10 do;

Writeln(‘A’); 3 Bài tập 3

3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút): - Cú pháp câu lệnh lặp?

- Sử dụng for…do lồng vào

- câu lệnh Gotoxy(a,b) có tác dụng gì? Wherex,wherey dùng để làm gì? .Dặn dị

- Về nhà làm tập sách tập Giáo viên nhận xét đánh giá tiết tập

- Về nhà hệ thống lại kiến thức học, tiết sau làm tập (tiếp) R

ú t kinh nghi ệ m

TRẢI NGHIỆM: HỌC MÀ CHƠI, CHƠI MÀ HỌC (tiếp) I Mục tiêu:

1 Kiến thức:

- Sử dụng kiến thức học để làm số tập Kĩ năng:

- Rèn luyện kĩ sử dụng câu lệnh Pascal Thái độ:

- Thái độ học tập nghiêm túc, u thích mơn học II CHUẨN BỊ BÀI HỌC:

Sách giáo khoa, máy tính điện tử III Tiến trình dạy:

1.Hoạt động 1: Khởi động (5 phút) 2.Hoạt động 2: Hỡnh thành kiến thức (30 phút)

Hoạt động GV HS Nội dung

+ Bài tập

- Đối với đoạn chương trình Pascal sau đây, cho biết lệnh Writeln in hình giá trị i, j, k bao

+ Học sinh đọc đề => suy nghĩ trả lời

1.) Bài tập 1:

nhiêu? - Đoạn 1: j:=2; k:=3;

for i:=1 to j:=j+1; k:=k+1; cach:=’ ‘;

writeln(j,cach,k); - Đoạn 2:

j:=2; k:=3;

for i:=1 to begin j:=j+1; k:=k+1; end; cach:=’ ‘; writeln(j,cach,k); - Đoạn 3:

j:=2; k:=3;

for i:=1 to

if i mod = then j:=j+1;

k:=k+1; cach:=’ ‘;

writeln(j,cach,k); + Bài tập

- Viết chương trình tính tổng: S=1/1+1/2+ +1/n với giá trị n nhập vào từ bàn phím

- Yêu cầu học sinh viết chương trình

- In hình:

- In hình:

- In hình: 4

+ Học sinh tìm hiều đề

+ Học sinh viết chương trình theo yêu cầu giáo viên Program Tinh_tong;

nhiêu? - Đoạn 1: j:=2; k:=3;

for i:=1 to j:=j+1; k:=k+1; cach:=’ ‘;

writeln(j,cach,k); - Đoạn 2:

j:=2; k:=3;

for i:=1 to begin j:=j+1; k:=k+1; end; cach:=’ ‘; writeln(j,cach,k); - Đoạn 3:

j:=2; k:=3;

for i:=1 to

if i mod = then j:=j+1;

k:=k+1; cach:=’ ‘;

writeln(j,cach,k); 2.) Bài tập 2:

- Nhận xét chương trình học sinh

- Yêu cầu học sinh dịch, sửa lỗi chạy chương trình

Var i,n: integer; S: real; Begin

Clrscr;

Write(‘Nhap n: ‘); Readln(n);

S:=0;

For i:= to n S:=S+1/i; Writeln(‘S=’,S); Readln;

End

+ Thực theo yêu cầu giáo viên

3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phút): - Cú pháp câu lệnh lặp?

- Sử dụng for…do lồng vào

- câu lệnh Gotoxy(a,b) có tác dụng gì? Wherex,wherey dùng để làm gì? .Dặn dị

- Về nhà làm tập sách tập Giáo viên nhận xét đánh giá tiết tập - Về nhà hệ thống lại kiến thức học, R

ú t kinh nghi ệ m

Thư viện Giáo Án điện tử VnDoc