tiết § môn tin học lớp 6 ngày dạy 2006 môn tin lớp8 nnlt pascal ngày soạn ngày dạy tiết 45 §7 câu lệnh lặp xác định for do t1 i mục tiêu học sinh hiểu được câu lệnh lặp làm quen với

- Công cụ dùng để tạo ra một đối tượng đối xứng với một đối tượng cho trước qua một trục là đường hoặc đoạn thẳng. III/ Kiểm tra bài cũ:.. - Giới thiệu các đối tượng tự do và các đối t[r]

(1)

Tiết 45 §7 : CÂU LỆNH LẶP XÁC ĐỊNH FOR … DO(T1) I/Mục tiêu:

- Học sinh hiểu câu lệnh lặp, làm quen với câu lệnh lặp II/ Chuẩn bị: - Giáo án

III/ Quá trình dạy học:

Hoạt động

giáo viên học sinh Nội dung

- Y/c hs lấy ví dụ hoạt động sống ngày ta thực lặp lại với số lần định biết trước?

ăn ngày bữa (sáng, trưa, tối) Đánh ngày lần,… - Có công việc lặp với số lần ko biết trước học đến thuộc, chợ đến mua xong,…

- Khi viết chương trình máy tính vậy, để dẫn cho máy tính thực công việc, ta phải viết lặp lại nhiều câu lệnh thực phép tốn định

- Ví dụ: In hình 20 lần với dịng “chào bạn”? Ta thực câu lệnh xuất liệu hình?

- Ta sử dụng câu lệnh lặp để câu lệnh thay cho nhiều câu lệnh

B1: Vẽ hình vng (Vẽ cạnh liên tiếp)

B2: Nếu số hình vuông nhỏ 3, di chuyển bút qua phải trở lại B1, nguợc lại kết thúc vẽ

- Số lần lặp thao tác vẽ hình vng bao nhiêu? - Nêu thuật toán

- Nêu thuật toán B1: Sum  B2: Sum  sum + …

B101:Sum sum +100 Y/c hs nêu thuật toán ?

- Thực bước ? Quá dài, bước có phép tốn cộng vào Sum giá trị 1, 2, 3, ,100 phép cộng lặp lại 100 lần Ta thực cộng vào biến i vào sum thực i không vượt 100

- Mô tả hoạt động lặp thuật toán gọi cấu trúc lặp

1/ Các công việc phải thực nhiều lần

2/ Câu lệnh lặp - lệnh thay cho nhiều lệnh

- Vd1: Vẽ hình vng có cạnh 1 đơn vị

B1: Vẽ hình vng (Vẽ cạnh liên tiếp)

B2: Nếu số hình vng nhỏ 3, di chuyển bút qua phải trở lại B1, nguợc lại kết thúc vẽ

- Vd2: Tính tổng 100 số tự nhiên đầu tiên: S=1+2+3+4+…+100

Thuật toán:

B1: Sum  0; i 0; B2: i  i+1;

B3: Nếu i <= 100, sum sum+i quay lại B2

B4: Thông báo kết kết thúc IV/ Củng cố:

V/ Dặn dò:

(2)

Tiết 46 §7 : CÂU LỆNH LẶP XÁC ĐỊNH FOR … DO(T2) I/Mục tiêu:

- Học sinh nắm vững cú pháp chức vịng lặp xác định For - Tìm hiểu vài ví dụ có sử dụng vịng lặp

II/ Chuẩn bị:

- Giáo án, máy chiếu III/ Kiểm tra cũ:

GV: - Hs 1: Cho vài ví dụ hoạt động thực lặp lại số lần biết trước sống ngày - Hs 2: Hãy cho biết tác dụng câu lệnh lặp với số lần biết trước

HS: - Lên bảng

IV/ Quá trình dạy học: Hoạt động

Giới thiệu câu lệnh lặp *Gợi ý:

- Viết chương trình mẫu giải thích cho hs - Biến đếm biến nào?

- Giá trị giá trị cuối ? Biến i

-Gtđ gtc 15

- Thế số chẵn? - Ta dùng lệnh nào? Gtđ gtc 100

-Số chẵn số chia cho có số dư = số i mod =

-Ta dùng vòng lặp For

-Hai hs lên bảng, hs khác làm vào -Gọi hs lên bảng, hs nxét

3/ Cú pháp câu lệnh lặp For … do

For <biến đếm>:=<giá trị dầu> to <giá trị cuối> do <câu lệnh>;

Trong đó:

- for, to, từ khoá - biến đếm: Kiểu số nguyên - Gtđ, gtc: Các giá trị nguyên

Hoạt động: Ban đầu biến đếm nhận giá trị đầu, sau vòng lặp biến đếm tự động tăng thêm đơn vị, trình lặp biến đếm lớn giá trị cuối kết thúc

4/ Một số ví dụ:

Vd1: In hình số thứ tự từ đến 15, với dịng thơng báo “So thu ti thu 1, 2, …”

Program thutu; Var i: integer; Begin

For i:=1 to 15

Writeln(‘so thu tu thu ’,i); Readln;

End

Vd2: Viết CT xuất hình số chẵn từ 1 đến 100.

Program sochan; Var i: integer; Begin

For i :=1 to 100 If i mod = then Writeln(i); Readln;

End

V/ Dặn dò:

(3)

- Làm tập 4, 5, Trang 61 (sgk)

Tiết 47 THỰC HÀNH VÒNG LẶP FOR …DO (T1)

I/Mục tiêu:

- Viết chương trình có sử dụng câu lệnh, vịng lặp phép tốn học - Tiếp tục nâng cao kĩ đọc hiểu chương trình

II/ Chuẩn bị: - Bài tập, phòng máy III/ Kiểm tra cũ:

GV: Viết chương trình xuất hình 20 dịng: “Chao cac em” (bằng For do). HS: - Lên bảng

IV/ Quá trình dạy học:

Hoạt động

-Y/c nhóm hồn thành CT +Số lẻ số ntn?

+Gtđ gtc vòng lặp? + Ta dùng câu lệnh nào? -Y/c hs hoàn thành CT máy

-GV quan sát, theo dõi trình làm hs, gợi ý, hướng dẫn nhóm yếu

-Y/c hs mở file mới, làm tập +Số chẵn số ntn?

+Gtđ gtc vòng lặp? + Ta dùng câu lệnh nào?

-Y/c hs hoàn thành CT máy

-GV quan sát, theo dõi trình làm hs, gợi ý, hướng dẫn nhóm cịn yếu

1 Viết CT xuất hình số lẻ từ 1 đến n.

Program sole; Var i, n: integer; Begin

Writeln(‘nhap n=’); Readln(n);

For i :=1 to n If i mod <> then Writeln(i); Readln;

End

2 Viết CT tính tổng số chẵn từ đến n (với n nhập vào từ bàn phím ). Program tinh_tong;

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

Begin

Write(‘Nhap n =’); Readln(n);

S:= 0;

For i: =1 to n If i mod = then S:= S + i;

Writeln(S:4:2); Readln;

End V/ Dặn dò:

(4)

Tiết 48 THỰC HÀNH VÒNG LẶP FOR…DO (T2)

I/Mục tiêu:

- Viết chương trình có sử dụng câu lệnh, vịng lặp phép tốn học - Nắm vững cách dùng câu lệnh If, vòng lặp For

- Bài tập, phịng máy IV/ Q trình dạy học:

Hoạt động

-Y/c nhóm hoàn thành CT

+BCC từ đến 9, bảng cửu chương đc in hình tuỳ chúng ta, vây ta phải thực ntn?

- Khai báo biến nào?

+Gtđ gtc vòng lặp?

+Ta xuất đối tượng? -Y/c hs hoàn thành CT máy

-GV quan sát, theo dõi trình làm hs

- Gọi đại diện nhóm lên trình bày ý nghĩa câu lệnh

1 Viết CT in hình bảng cửu chương đến cửu chương 9, Số bảng cửu chương nhập từ bàn phím.

Program ban_cuu_chuong; Var n, i: integer;

Begin

Write(‘’ Nhap bảng cửu chuong nao?’ ); Readln(n);

Writeln(‘Bang cuu chuong ’,n); For i :=1 to 10

Writeln(n,’x’,i,’=’,i*j,’ ‘); Readln;

End

2/ Y/c hs chạy chương trình Bài tr 64 (Sgk) Giải thích câu lệnh

(5)

Tiết 49 THỰC HÀNH VÒNG LẶP FOR (T3)

I/Mục tiêu:

- Viết chương trình có sử dụng câu lệnh, vịng lặp phép tốn học - Nắm vững cách dùng câu lệnh If, vòng lặp For

- Bài tập, phịng máy IV/ Q trình dạy học:

Hoạt động

-Y/c nhóm hoàn thành CT

+BCC từ đến 9, BCC nhân từ đến nên ta sử dụng vòng lặp?

+ Sử dụng vòng lặp lồng +Gtđ gtc vòng lặp? +Gtđ=1 gtc=9

+Ta dùng câu lệnh nào? +Lệnh lặp lệnh đk

+Ta xuất đối tượng?

-Xuất biến: i, j giá trị i*j, xuất xâu dấu x, =, khoảng trắng

-Nếu biến vòng lặp thứ chia hết cho 10 ta xuống dịng

+Mỗi dịng gồm 10 số ta dùng lệnh để thực hiện? -Y/c hs hoàn thành CT máy

-GV quan sát, theo dõi trình làm hs +Gtđ=1 gtc=150

+Câu lệnh lặp câu lệnh điều kiện -Hoàn thành CT, kiểm tra lỗi chạy CT

-Y/c hs mở file mới, hoàn thành btập +Gtđ gtc vòng lặp?

+ Ta dùng câu lệnh nào? -Y/c hs hoàn thành CT máy

1 Viết CT in hình bảng cửu chương đến cửu chương 10, dòng 10 số.

Program ban_cuu_chuong; Var i, j: integer;

Begin

For i :=1 to For j:=1 to Begin

Write(i,’x’,j,’=’i*j,’ ‘); If j mod 10=0 then writeln; End;

Readln; End

2 Viết CT tính tổng số từ đến 150.

Program tinh_tong; Var i: integer; S: longint; Begin

S:= 0;

(6)

Readln; End V/ Dặn dò: - Xem lại tập làm

Tiết 50 §8 : LẶP VỚI SỐ LẦN KHÔNG BIẾT TRƯỚC (WHILE …DO) (T1)

I/Mục tiêu:

- Học sinh nắm vững cú pháp chức vịng lặp khơng xác định While II/ Chuẩn bị: Giáo án

III/ Kiểm tra cũ:

GV: Viết thuật tốn tính tổng số chẵn từ 50 đến 150?

IV/ Quá trình dạy học: Trong trước làm quen với hoạt động lặp với số lần xác định trước Vd tính tổng số nguyên từ  100, ta viết câu lệnh lặp để máy tính thực phép cộng 99 lần

Hoạt động

- Khi em học biết học thời gian thuộc ko?

- Không , học đến thuộc

Hoặc bạn Minh gọi điện cho Hùng, ko có nhấc Như phút gọi lần đến có người nhấc máy Sự lặp lại hoạt động gọi điện lần?

Chưa biết trước

- Vậy điều kiện để kết thúc hoạt động lặp lại đến nào? Đến có người nhấc

- Hoạt động lặp ta gọi lặp với số lần chưa biết trước - Y/c hs mô tả thuật toán

- Cộng số tự nhiên để nhận tổng nhỏ 1000? - ĐK tổng vịng lặp kết thúc

- Y/c hs hoạt động nhóm

-Dựa vào sơ đồ nêu hoạt động của lệnh While

- Nếu lần <BTĐK> sai vịng lặp While có thực khơng?

- Giới thiệu câu lệnh lặp với số lần chưa biết trước

1/ Các hoạt động lặp với số lần chưa biết trước.

- Vd: Tính tổng số tự nhiên S= 1+2+3+4+…+n

(Tổng <= 1000) * thuật toán: B1: S  ; n  1;

B2: Nếu S <= 1000 n  n+1; Ngược lại chuyển đến bước B3: S  S+n, quay trở lại B2 B4: In kq, in S, in số tự nhiên n Sơ đồ:

Hoạt động:

CT kiểm tra BTĐK sau While lặp lại câu lệnh sau Do, quay lại kiểm tra BTĐK BTĐK sai khỏi vòng lặp

2/ Câu lệnh lặp với số lần chưa biết trước

While <ĐK> <Câu lệnh>; - ĐK: Thường phép so sánh - Câu lệnh: Có thể câu lệnh đơn

hoặc ghép V/ Củng cố:

- Y/c học sinh nêu lại hoạt động vòng lặp While VI/ Dặn dò:

- Mơ tả thuật tốn in hình 12 tháng năm với 12 dong “đây tháng …” vòng lặp While

Đ BTĐK

Câu lệnh S

(7)

Tiết 51 §8 : LẶP VỚI SỐ LẦN KHƠNG BIẾT TRƯỚC (WHILE …DO) (T2)

I/Mục tiêu:

- Học sinh nắm vững cú pháp chức vòng lặp không xác định While - Ứng dụng While để làm số ví dụ có sử dụng vòng lặp

II/ Chuẩn bị: Giáo án III/ Kiểm tra cũ:

GV: Viết câu lệnh While…do nêu hoạt động vòng lặp. IV/ Quá trình dạy học:

Hoạt động

- Y/c hs thảo luận nhóm viết chương trình vòng lặp while

+Cần biến?

- Cần biến: S n có kiểu integer

+ Giá trị đầu bao nhiêu? Giá trị cuối bao nhiêu? + BTĐK gì?

- gtđ = ; cuối 1000 - BTĐK: S<=1000

-Gọi đại diện nhóm viết CT, hs khác theo dõi nhận xét

-GV nhận xét sửa

- Giói thiệu cho hs cấu trúc viết câu lệnh lặp

- Y/ hs cho kq chương trình

- Khi viết chương trình sử dụng cấu trúc lặp cần ý tránh tạo nên vịng lặp khơng kết thúc Vd:

- Giá trị a luôn = 5, Đk a < Lệnh write (‘A’) thực

- Như thực vòng lặp ĐK câu lệnh phải thay đổi để giá trị ĐK chuyển từ sang sai, chương trình khơng rơi vào “Vịng lặp vơ tận”

3/ Ví dụ:

Vd1: Viết chương trìnhtính tổng số tự nhiên

S= 1+2+3+4+…+n(Tổng <= 1000) Program tong2;

Var S, n : integer; Begin

S:= 0; n:=1;

while S <= 1000 begin

S:= S+n; n := n+1; end;

writeln (‘so n de tong > 1000 la’,n); writeln (‘tong n lon hon 1000 la’,S); readln;

end Cấu trúc: Biến := gtđ;

while biến <= gtc do begin

Câu lệnh;

Biến := biến +1; end;

4/ Lặp vô hạn lần Lỗi lập trình cần tránh.

Var a : integer; Begin

a:= 5;

While a< write (‘A’); End

V/ Củng cố:

GV: Khác với vòng lặp For, vòng lặp While số lần lặp không xác định được, tuỳ thuộc vào người sử dụng Như CT số lần lặp thực tổng lớn 1000

(8)

Tiết52 THỰC HÀNH VÒNG LẶP WHILE…DO (T1)

I/Mục tiêu:

- Viết chương trình có sử dụng câu lệnh, vịng lặp phép toán học - Nắm vững cách dùng câu lệnh If, vòng lặp While …do

- Bài tập, phòng máy III/ Kiểm tra cũ:

GV: Viết cú pháp vòng lặp While… nêu hoạt động vòng lặp. HS: - Lên bảng

IV/ Quá trình dạy học:

Hoạt động

-Y/c nhóm hồn thành CT +Gtđ gtc vòng lặp? +Gtđ=1 gtc=12

-Y/c hs hoàn thành CT máy - Hoàn thành CT vào máy tính

- BTĐK vịng lặp thực hiện? Đầu CT x bao nhiêu?

x <= 12, x =

-Y/c hs hoàn thành CT máy

Cần biến? + Bắt đầu làm gì?

+Gán biến chạy gì? + BTĐK gì?

+Chương trình kiểm tra ĐK nào? Cần biến: i n có kiểu integer

- Cần phải nhập n - Gán biến chạy i =0; - BTĐK: i<=n

- Nếu ĐK ta kiểm tra xem số có phải số chẵn khơng, ta in ra, cịn khơng thơi Sau tăng biến lên đơn vị đến i>n khỏi vịng lặp

Y/c hs hoàn thành CT máy

1 Viết CT in hình 12 tháng trong năm với 12 dong “đây tháng …” 2 cách vòng lặp While for …do. C1: Program vonglapFor;

Var x: interger; Begin

For x :=1 to 12

Writeln (‘day la thang: ‘ , x); Readln;

End

C2: Program vonglapWhile; Var x: interger;

Begin x:=1;

While (x <=12) Begin

Writeln (‘day la thang: ‘ , x); x := x+1;

End; Readln; End

Viết CT số lẻ từ đến n? Program sole;

Var i, n : integer; Begin

Write(‘nhap n=’); Readln(n);

i:= 0;

while i <= n begin

(9)

end V/ Dặn dò: - Xem lại tập làm

Tiết 53 THỰC HÀNH VÒNG LẶP WHILE…DO (T2)

I/Mục tiêu:

- Viết chương trình có sử dụng câu lệnh, vịng lặp phép tốn học - Nắm vững cách dùng câu lệnh If, vòng lặp While …do

- Bài tập, phòng máy III/ Kiểm tra cũ:

GV: Viết cú pháp vòng lặp While… nêu hoạt động vòng lặp. HS: - Lên bảng

(10)

V/ Dặn dò:

- Xem lại tập làm

Tiết 54 BÀI TẬP ÔN TẬP (T1)

I/Mục tiêu:

- Củng cố lại kiến thức vòng lặp For…Do

- Sử dụng thành thạo vòng lặp để viết chương trình II/ Chuẩn bị: - Giáo án

GV: Viết cú pháp câu lệnh lặp For… do, nêu thành phần hoạt động vịng lặp. IV/ Q trình dạy học:

Hoạt động

giáo viên Nội dung

- Gọi hs trả lời a/ Sai, thừa dấu ;

b/ Sai, giá trị đầu phải nhỏ giá trị cuối c/ Đúng

d/ Sai, Thiếu từ khoá Do lệnh For thứ - Cho hs thảo luận gọi hs trả lời?

- Các nhóm nhận xét

- Y/c hs khai báo để hồn thành chương trình hồn chỉnh

-Y/c nhóm hồn thành CT

+Số lẻ số ntn? Ta sử dụng phép toán ? - Là số khơng chia hết cho Phép tốn mod +Gtđ gtc vòng lặp?

+Gtđ=n gtc=m - Y/c hs nêu thuật toán ?

+ Ta dùng câu lệnh nào? +Câu lệnh lặp câu lệnh điều kiện Thuật toán:

B1: Nhập n, m B2: Sum  0; i n; B3: i  i+1;

B4: Nếu i<= m i mod <> 0, sum sum+i quay lại B3, Ngược lại (i>m) thơng báo kết kết thúc -Y/c hs lên bảng viết chương trình

c nhóm hoàn thành CT

1 Các câu lệnh Pascal sau hay sai? Hãy lỗi sai có.

a/ For i:=1 to 10; x:=x+1; b/ For i:=10 to x:=x+1; c/ For i:=1 to 10 x:=x+1;

d/ For i:=1 to 10 For j:=1 to 10 x:=x+1; 2 Đoạn chương trình Pascal sau đây, hãy cho biết lệnh Writeln in hình giá trị của j bao nhiêu? (i,j: kiểu số nguyên).

j:=2; k:=3; For i:=1 to If i mod = then j:=j+1;

writeln(j);

3 Viết CT tính tổng số lẽ từ n đến m (với n, m nhập vào từ bàn phím, và n<m ).

Program tinh_tong_le; Var i, n : integer; Sl: real; Begin

Write(‘Nhap n =’); Readln(n); Write(‘Nhap m =’); Readln(m); Sl:= 0;

For i: =n to m If i mod <> then Sl:= Sl + i;

Writeln(‘tong le la:’,Sl:4:2); Readln;

End

(11)

- Viết chương trình in hình bảng cửu chương từ 1 Mỗi dòng 10 số

Tiết 55 BÀI TẬP ÔN TẬP (T2)

I/Mục tiêu:

- Củng cố lại kiến thức vòng lặp While…Do - Sử dụng thành thạo vòng lặp để viết chương trình II/ Chuẩn bị: - Giáo án

GV: Viết cú pháp câu lệnh lặp While… do, nêu thành phần hoạt động vịng lặp. IV/ Q trình dạy học:

Hoạt động

- Gọi hs trả lời Hs nhận xét

a/ Sai, x:=10 sau từ khố while khơng có dấu : b/ Sai, câu lệnh sau Do phải phép gán, thiếu dấu : c/ Sai, thiếu Begin…end; câu lệnh ghép sau

- Cho hs thảo luận gọi hs trả lời? - Các nhóm nhận xét

- Y/c hs khai báo để hoàn thành chương trình hồn chỉnh

- Y/c hs thảo luận nhóm sử dụng vòng lặp while + Cần biến?

+ Bắt đầu làm gì?

+ Tổng bắt đầu bao nhiêu? + Có gán biến chạy ko? Vì sao? + BTĐK gì?

+ Kiểm tra biểu thức điều kiện nào?

- Cần biến: biến số biến S (số kiểu integer, S kiểu longint)

- Cần phải nhập so - Gán tổng =

- ko Vì ko giới hạn từ đâu - so <>0

- Kiểm tra BTĐK khác gán S = S + so, BTĐK khỏi vịng lặp

-Gọi đại diện nhóm viết CT, hs khác theo dõi

1 Hãy lỗi câu lệnh sau đây. a/ x:=10; while x:=10 x:=x+5;

b/ x:=10; while x=10 x = x+5; c/ S:=0;n:=0; while S<=10 n:=n+1; S:=S+n;

2 Đoạn chương trình Pascal sau đây, hãy cho biết giá trị x bao nhiêu?

i:=1; j:=2; While i < Begin i:=i+1; j:=j+1; end;

writeln(i,’ ‘,j);

3. Viết CT tính tổng số nguyên được nhập vào từ bàn phím nhập vào số 0.

Program tong; Var so : integer; S: longint; Begin

Write(‘nhap so bất kì, nhập để kết thúc:’); Readln(so);

S:=0;

while so <>0 begin

S:=S+so; Readln (so); end;

writeln(‘tong cac so vưa nhap là:’,S); readln;

(12)

nhận xét

-GV nhận xét sửa V/ Dặn dò:

- Viết CT in hình 12 tháng năm với 12 dong “đây tháng …” cách vòng lặp While for …do

Tiết56 KIỂM TRA TIẾT

I/Mục tiêu: Thơng qua kiểm tra, góp phần: - Đánh giá kết học tập học sinh

- Giúp học sinh ý đến việc học

- Rút kinh nghiệm, bổ sung kịp thời tồn cần khắc phục học sinh - Rút kinh nghiệm, bổ sung kịp thời tồn cần khắc phục giáo viên II/ Chuẩn bị:

- Bài kiểm tra III/ Kiểm tra cũ: IV/ Quá trình dạy học:

Hoạt động

- Phát kiểm tra

- Y/c hs làm nghiêm túc

1/ Đoạn chương trình Pascal sau: j:= 2; k:=3;

For i:= to If I mod = then Begin

j:= j+1; k:= k+j; end;

Writeln (j, ‘ ‘, k);

a/ Hãy cho biết lệnh writeln in hình giá trị j, k bao nhiêu?

b/ Khai báo biến viết thêm câu lệnh cịn thiếu để chương trình hồn chỉnh

(13)

Tiết SỬA BÀI KIỂM TRA TIẾT

I/Mục tiêu: Thơng qua kiểm tra, góp phần: - Đánh giá kết học tập học sinh

Hoạt động

- Sửa kiểm tra - Y/c hs lên bảng - Nhận xét, sửa

1/

a/ Lệnh writeln in giá tri j = 4, k =10 b/

Var i, j, k : integer; Begin

j:= 2; k:=3; For i:= to If I mod = then Begin

j:= j+1; k:= k+j; end;

Writeln (j, ‘ ‘, k); Readln;

End

2/ Viết chương trình tính tổng từ đến n (n nhập từ bàn phím)

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

Write(‘Nhap n =’); Readln(n); S:= 0;

(14)

S:= S + i;

Writeln(‘tong la:’,S:4:2); Readln;

End

Tiết BÀI TẬP KIỂM TRA 15 ph (Thực hành nhóm 1)

I/Mục tiêu:

- Củng cố lại kiến thức rèn kĩ viết chương trình máy II/ Chuẩn bị:

Hoạt động

giáo viên Hoạt động của học sinh Nội dung

- Phát kiểm tra

- Kiểm tra, chấm

Làm

1/ Viết chương trình tính tổng (sử dụng vịng lặp xác định)

A= ( 1)

1

    

n

n (n nhập từ bàn phím)

2/ Tính tích N số tự nhiên với số lần không xác định (N số tự nhiên nhập từ bàn phím)

Tiết BÀI TẬP KIỂM TRA 15 ph (Thực hành nhóm 2)

I/Mục tiêu:

- Củng cố lại kiến thức rèn kĩ viết chương trình máy II/ Chuẩn bị:

Hoạt động

(15)

- Phát kiểm tra

- Kiểm tra, chấm Làm

xác định) A= ) ( 3 2 1      n

n (n nhập từ bàn phím)

2/ Tính tích N số tự nhiên với số lần không xác định (N số tự nhiên nhập từ bàn phím)

Tiết 57 LÀM VIỆC VỚI DÃY SỐ (T1)

I/Mục tiêu:

- Học sinh biết định nghĩa kiểu liệu biến mảng - Biết khai báo biến mảng

Vd: Viết CT nhập điểm lớp ssau in hình điểm hs cao

- Lớp có 20 hs ta khai báo biến? Vì sao? Khai báo nào? - Sử dụng lệnh để nhập liệu? -Nếu hs lớp nhiều ta nhập điểm trường việc khai báo nhập điểm dài ta so sánh khó khăn Như vậy, có nhiều liệu liên quan với (vd hs1, hs2, … trên) ta sử dụng biến đánh số thứ tự cho biến

Vd: với i = đến 20: nhập điểm hs_i Với i = đến 20: so sánh Max với hs_i

Để giải vấn đề ta có thêm kiểu liệu gọi kiểu mảng

- Giới thiệu cách khai báo mảng

- 20 biến, biến lưu giá trị

Var hs1, hs2, hs3, ….hs20

Read (hs1); read(hs2); … ; read(hs20);

- Lắng nghe

Ghi

1 Dãy số biến mảng

Dữ liệu kiểu mảng tập hợp hữu hạn phần tử có thứ tự, phần tử có kiểu liệu, gọi kiểu phần tử

- Khi khai báo biến có kiểu liệu kiểu mảng, biến gọi biến mảng

2 Khai báo biến:

Var tên biến mảng : Array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu>;

Trong đó:

- Var, Array Of: là từ khoá

(16)

- Vd: Khai báo mảng hs có 20 phần

tử, kiểu liệu số thực Var hs :array [1 20] of real;

- Chỉ số đầu số cuối: số nguyên thoã mãn Chỉ số đầu < số cuối, số cách dấu 2 chấm.

- Kiểu liệu: Có thể kiểu integer real

Chú ý: Ta gán giá trị cho phần tử mảng câu lệnh gán a[1]:=5;

a [2]:=8; V/ Dặn dò:

- Học

Tiết 58 LÀM VIỆC VỚI DÃY SỐ (T2)

I/Mục tiêu:

- Nắm số ví dụ để hiểu nắm việc khai báo mảng II/ Chuẩn bị:

- Viết khai báo mảng IV/ Quá trình dạy học:

Hoạt động giáo viên

Hoạt động của

học sinh Nội dung

- Các VD sau hay sai Vì sao? Var A: Array[real] of integer; Var B: Array[integer] of integer;

- Các phần tử mảng có kiều gì? - Muốn khai báo số 20 phần tử ta khai báo nào?

-Ta khai báo số phần tử mảng tối đa 20, nhập ta nhập 20, muốn ta khai báo biến chứa số phần tử thực mảng - Cho hs làm theo nhóm

- Gọi đại diện nhóm lên bảng yêu cầu hs khác nhận xét

- Chốt lại

- Trả lời

-HS trả lời Sai, số kiểu real, integer

- Kiểu số thực - 20 phần tử: 20

Hs suy nghĩ làm theo nhóm

- Lên bảng làm

3/ ví dụ:

Viết CT nhập điểm cho mảng HS , in giá trị chúng ra màn hình.

Program nhapdiémh;

Var HS: Array[1 20] of integer; i, n: integer;

Begin

Writeln(‘nhap diem cua mang hs’); Readln(n);

(* nhập n phần tử vào mảng HS*) For i:=1 to n

Begin

Write(‘nhap pt thu’, i , ‘=’); Readln(HS[i]);

End;

Writeln(‘Gtrị mang’);

(* Xuất n phần tử diem cua mảng HS hình *)

(17)

- Y/c hs đọc ví dụ SGK trang 78 Tìm giá trị lớn nhỏ dãy số

- Y/c hs giải thích câu lệnh chương trình.(hoạt động nhóm)

- Đọc

- Đại diên nhóm trả lời

Writeln(HS[i], ‘ ‘); Readln;

End

IV: Củng cố:

- Nhắc lại cách khai báo biến mảng V/ Dặn dò:

- Làm tập 2, 3, 4, Sgk tr 79

Tiết 59 THỰC HÀNH KIỂU MẢNG (T1)

I/Mục tiêu:

- Nắm vững cách nhập xuất phần tử mảng - Hoàn thành số tập đơn giản mảng II/ Chuẩn bị: - Bài tập, phòng máy

III/ Kiểm tra cũ: Y/c hs lên nêu cú pháp khai báo biến mảng IV/ Quá trình dạy học:

Hoạt động

- Cho hs hoàn thành CT nhà vào máy

- Làm tập

- Hoàn thành CT vào máy tính

- Kiểm tra lỗi chạy CT

1 Viết CT nhập điểm thi học sinh, tính điểm bình qn học sinh xuất ra màn hình số học sinh <5 điểm

Program nhap diem;

Var diem:Array [1 50] of real; n, i, y: interger; s: real; Begin

Write(‘nhap so hs cua mang’); Readln(n); s:=0; y:=0;

For i:=1 to n Begin

Write(‘nhap diem hs thu’, i , ‘=’); Readln(diem[i]);

s:=s+diem[i]; End;

Writeln(‘diem binh quan la:’, s/n); For i:=1 to n

If diem[i] <5 Then y:=y+1;

Writeln(‘so hs yeu <5 la:’, y); Readln;

Tiết 60 THỰC HÀNH KIỂU MẢNG (T2)

I/Mục tiêu:

- Ơn luyện cách sử dụng vịng lặp for

(18)

- Hoàn thành số tập mảng II/ Chuẩn bị:

- Bài tập, phòng máy III/ Kiểm tra cũ: IV/ Quá trình dạy học:

- Y/c hs làm tập

sgk Làm theo nhóm Thực hành

Bài1: Viết chương trình nhập điểm bạn hs lớp Sau in hình số bạn đạt hs giỏi, khs, tb, (theo tiêu chuẩn từ trở lên giỏi, 6.5 đến 7.9 khá, đến 6.4 tb, yếu)

V/ Dặn dò:

- Viết CT tìm phần tử bé mảng A

Tiết 61 BÀI TẬP: KIỂU MẢNG (T1)

I/Mục tiêu:

- Học sinh biết viết thành thạo chương trình mảng II/ Chuẩn bị:

- Giáo án, máy chiếu

-III/ Kiểm tra cũ: - Viết khai báo mảng IV/ Quá trình dạy học:

- GV gọi hs lên bảng trình bày tập

- Gọi hs nêu nhận xét

- GV sửa lỗi sai có

- Chấm điểm

- hs lên bảng - Nhận xét

- Sữa vào

Bài 1: Viết CT tìm phần tử bé nhất dãy số nguyên.

Var A:array[1 20] of integer; i, n, min: integer;

Begin

Write(‘nhap so pt:’); Readln(n);

For i:=1 to n Begin

Write(‘A[‘,i,’]=’); Readln(A[i]); End;

min:=A[1]; for i:=2 to n if A[i] < then min:=A[i];

writeln(‘pt be nhat cua mang la:’, min);

Readln; End V/ Dặn dò:

(19)

Tiết 62 BÀI TẬP: KIỂU MẢNG (T2)

I/Mục tiêu:

- Học sinh biết viết thành thạo chương trình mảng II/ Chuẩn bị:

- Viết khai báo mảng IV/ Quá trình dạy học:

- GV gọi hs lên bảng trình bày tập

- Gọi hs nêu nhận xét

- GV sửa lỗi sai có

- Chấm điểm

- hs lên bảng - Nhận xét

- Sữa vào

Bài 1: Viết CT đếm xem trong một dãy số nguyên nhập từ bàn phím có phần tử dương tính tổng phần tử dương đó?

Var a: array[1 50] of integer; i, n, dem, S: integer; Begin

Write(‘nhap n=’); Readln(n);

For i:=1 to n Begin

Write(‘a[‘,i,’]=’); Readln(a[i]); End;

S:=0; dem:=0; For i:=1 to n If a[i]>=0 then Begin

dem:=dem+1; S:=S+a[i]; End;

(20)

Readln; End V/ Dặn dò:

- Xem lại tập làm - Tiết au ôn tập

Tiết 63 ÔN TẬP KIỂM TRA TIẾT (T1)

I/Mục tiêu:

- Nâng cao kỹ sử dụng số câu lệnh số kiểu liệu - Nắm vững cách sử dụng cấu trúc vòng lặp while, for, kiểu dl mảng II/ Chuẩn bị:

- Giáo án, máy chiếu III/ Kiểm tra cũ: IV/ Quá trình dạy học:

- Y/c hs trả lời

- Y/c học sinh viết cú pháp vòng lặp xác định For…do… Nêu hoạt động? - Gọi học sinh nhận xét

- Y/c học sinh viết cú pháp vịng lặp khơng xác định While…do… Nêu hoạt động?

- Y/c Hs chia thành nhóm để làm tập

-Gọi nhóm nêu cách làm

- Trả lời

- Hs lên bảng

- Học sinh làm - hs lên bảng

1/ Khai báo biến 2/ Khai báo 3/ Câu lệnh gán

4/ Câu lệnh nhập câu lệnh xuất 5/ Câu lệnh IF … THEN Nêu hoạt động câu lệnh

6/ Cú pháp vòng lặp xác định For…do… Nêu thành phần hoạt động câu lệnh?

7/ Cú pháp vịng lặp khơng xác định While…do… Nêu thành phần hoạt động câu lệnh? 8/ Cách khai báo mảng? Nêu thành phần câu lệnh

9/ Câu lệnh nhập câu lệnh xuất Bài tập: Viết CT tính tổng bình phương số nguyên. (S=12 + 22 + …+ n2)

(21)

-Gv hướng dẫn hs tìm cách giải

-Gọi đại diện nhóm lên bảng trình bày Các nhóm khác chấm giấy

- Chú ý

Var i, n, S: integer; Begin

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

S:=0;

For i:=1 to n S:=S+sqr(i); writeln(‘tong la’, S); readln;

- Viết chương trình tính giá trị biểu thức: P = + a2 4c

(b-2)2

- Nắm vững cú pháp câu lệnh - Viết chương trình

Tiết 64 ƠN TẬP KIỂM TRA TIẾT (T2)

I/Mục tiêu:

- Nâng cao kỹ sử dụng số câu lệnh số kiểu liệu - Nắm vững cách sử dụng cấu trúc vòng lặp while, for, kiểu dl mảng II/ Chuẩn bị:

- Giáo án, máy chiếu III/ Kiểm tra cũ: IV/ Quá trình dạy học:

- Y/c Hs chia thành nhóm để làm tập

-Gọi nhóm nêu cách làm

-Gv hướng dẫn hs tìm cách giải

-Gọi đại diện nhóm lên bảng trình

- Học sinh làm

- Hs trả lời

- Chú ý

Bài tập

Viết CT tính tổng phần tử âm phần tử dương trong một dãy gồm số nguyên? Var a: array[1 50] of integer; i, n: integer;

TD, TA : real; Begin

Write(‘nhap n =’); Readln(n);

For i:=1 to n Begin

Write(‘nhạp so phan tu cua mản a[‘,i,’]=’);

Readln(a[i]); End;

(22)

bày Các nhóm khác chấm giấy

- hs lên bảng End

V/ Dặn dò:

- Nắm vững cú pháp câu lệnh - Viết chương trình

Tiết 65 KIỂM TRA TIẾT THỰC HÀNH (2 Nhóm tiết)

I/Mục tiêu:

Thông qua kiểm tra, góp phần: - Đánh giá kết học tập học sinh

- Bài tập, phịng máy - Hs chia thành nhóm: + Nhóm 1: kiểm tra tiết + Nhóm 2: kiểm tra tiết III/ Kiểm tra cũ:

giáo viên

Đề 1:

1/ Viết CT tính tổng sau:

S= 1+2+3+…+ n (n nhập từ bàn phím) 2/ Viết CT nhập vào mảng chiều B gồm 30 số nguyên Sau đếm xem mảng có phần tử dương

Đề 2:

1/ Viết CT tính tổng sau: S= 1+

n

 

 (n nhập từ bàn

phím)

2/ Viết CT nhập vào mảng chiều C gồm 20 số nguyên Sau đếm xem mảng có phần tử số lẻ Đề 3:

1/ Viết CT tính gái trị biểu thức:

P= 2

) (

2

  

c b a

(23)

2/ Viết CT nhập vào mảng chiều A gồm 20 số nguyên Sau đếm xem mảng có phần tử x (với x nhập từ bàn phím)

Đề 4:

1/ Viết CT tính gái trị biểu thức: Q=

2

) (

3

z y

x  

2/ Viết CT nhập vào mảng chiều D gồm 20 số nguyên Sau đếm xem mảng có phần tử số chẵn

Tiết HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA (T1)

I/Mục tiêu:

- Học sinh làm quen với công cụ phần mềm Geogebra

- Nắm thao tác vẽ với công cụ sử dụng phần mềm Geogebra II/ Chuẩn bị:

- Giáo án, máy chiếu, phần mềm Geogebra III/ Kiểm tra cũ:

giáo viên

(24)

- GV giới thiệu công cụ liên quan đến đối tượng điểm

- GV giới thiệu công cụ liên quan đến đoạn, đường thẳng

- HS: Chú ý quan sát

- Học sinh ý quan sát

- HS ý lắng nghe ghi chép

1/ Khởi động Geogebra.

2/ Giới thiệu hình Geogebra tiếng việt 3) Giới thiệu công cụ làm việc chính

* Các cơng cụ liên quan đến đối tượng điểm - Công cụ dùng để tạo điểm

- Công cụ dùng để tạo điểm giao hai đối tượng có mặt phẳng

- Công cụ dùng để tạo trung điểm hai điểm cho trước * Các công cụ liên quan đến đoạn, đường thẳng

- Các công cụ , , dùng để tạo đường, đoạn, tia qua hai điểm cho trước

- Công cụ tạo đoạn thẳng qua điểm cho trước

Thao tác: chọn công cụ, chọn điểm cho trước, nhập giá trị số vào cửa sổ có dạng:

Nháy nút áp dụng sau nhập xong độ dài đoạn thẳng Chú ý: Trong cửa sổ nhập chuỗi kí tự tên cho giá trị số

* Các công cụ tạo mối quan hệ hình học

- Cơng cụ dùng để tạo đường thẳng qua điểm vng góc với đường đoạn thẳng cho trước

- GV giới thiệu công cụ tạo mối quan hệ hình học

- HS: Chú ý quan

sát - Công cụ tạo đường thẳng song song với đường (đoạn) cho trước qua điểm cho trước

- Công cụ dùng để vẽ đường trung trực đoạn thẳng hai điểm cho trước

(25)

- GV giới thiệu công cụ liên quan đến hình trịn.

- GV giới thiệu cơng cụ biến đổi hình học

- GV giới thiệu thao tác với tệp tin

- Mỗi trang hình vẽ lưu lại tệp có phần mở rộng ggb

- Học sinh ý quan sát

- HS ý lắng nghe ghi chép

* - Công cụ tạo hình trịn cách xác định tâm điểm hình trịn

- Cơng cụ dùng để tạo hình trịn cách xác định tâm bán kính

Thao tác: chọn cơng cụ, chọn tâm hình trịn, nhập giá trị bán kính hộp thoại sau:

- Cơng cụ dùng để vẽ hình trịn qua ba điểm cho trước - Công cụ dùng để tạo nửa hình trịn qua hai điểm đối xứng tâm

- Công cụ tạo cung trịn phần hình trịn xác định trước tâm hình trịn hai điểm cung trịn

- Cơng cụ xác định cung tròn qua ba điểm cho trước

* Các cơng cụ biến đổi hình học

- Cơng cụ dùng để tạo đối tượng đối xứng với đối tượng cho trước qua trục đường đoạn thẳng - Công cụ dùng để tạo đối tượng đối xứng với đối tượng cho trước qua điểm cho trước

4) Các thao tác với tệp - Lưu hình: Nhấn tổ hợp phím Ctrl+S vào Hồ sơ  Lưu lại từ bảng chọn

- Để mở tệp có, nhấn tổ hợp phím Ctrl+O thực lệnh Hồ sơ  Mở Chọn tệp cần mở gõ tên File name, sau nháy chuột vào nút Open

5) Thoát khỏi phần mềm

- Nháy chuột chọn Hồ sơ  Đóng nhấn tổ hợp phím Alt+F4

IV/ Củng cố:

- GV hệ thống lại công cụ phần mềm Geogebra thao tác với chúng V/ Dặn dò:

- Đọc lại bài, thực hành máy có điều kiện

Tiết HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA (T2)

I/Mục tiêu:

- Học sinh làm quen với công cụ phần mềm Geogebra

- Nắm thao tác vẽ với công cụ sử dụng phần mềm Geogebra II/ Chuẩn bị:

(26)

- Em hiểu đối tượng hình học?

- Các em làm quen với khái niệm quan hệ đối tượng

- Giới thiệu đối tượng tự đối tượng phụ thuộc, cho biết ý nghĩa chúng

- Hướng dẫn HS biết là: + Đường thẳng qua điểm + Giao đối tượng hình học Kết luận đối tượng tự đối tượng phụ thuộc

- GV: Giới thiệu danh sách đối tượng hình Geogebra - Hướng dẫn cách giển thị danh sách đối tượng

- GV: Giới thiệu hướng dẫn cách thay đổi thuộc tính đối tượng

- Hướng dẫn cách ẩn đối tượng

- Quan sát ghi chép

Chú ý quan sát ghi chép

6 Đối tượng hình học

a) Khái niệm đối tượng hình học

- Một hình hình học bao gồm nhiều đối tượng bản: điểm, đoạn thẳng, đường thẳng, tia, hình tròn, cung tròn

b) Đối tượng tự đối tượng phụ thuộc - Điểm thuộc đường thẳng

- Đường thẳng qua hai điểm - Giao hai đối tượng hình học

- Một đối tượng khơng phụ thuộc vào đối tượng khác gọi đối tượng tự Các đối tượng lại gọi đối tượng phụ thuộc

c) Danh sách đối tượng hình

Dùng lệnh Hiển thị  Hiển thị danh sách đối tượng để hiện/ẩn khung thơng tin hình

d) Thay đổi thuộc tính đối tượng + Ẩn đối tượng:

(1) Nháy nút phải chuột lên đối tượng;

(2) Huỷ chọn Hiển thị đối tượng bảng chọn:

+ Ẩn/hiện tên (nhãn) đối tượng:

(1) Nháy nút phải chuột lên đối tượng hình; (2) Huỷ chọn Hiển thị tên bảng chọn

- GV: Hướng dẫn cách ẩn/hiện tên đối tượng

- Hướng dẫn cách thay đổi tên đối tượng

+ Thay đổi tên đối tượng:

(1) Nháy nút phải chuột lên đối tượng hình; (2) Chọn lệnh Đổi tên bảng chọn:

(27)

- GV: Hướng dẫn cách đặt huỷ vết chuyển động đối tượng

- GV: Hướng dẫn thao tác để xoá đối tượng

(3) Nháy nút áp dụng để thay đổi, nháy nút Huỷ bỏ không muốn đổi tên

+ Đặt/ huỷ vết chuyển động đối tượng: (1) Nháy nút phải chuột lên đối tượng; (2) Chọn Mở dấu vết di chuyển

Để xoá vết vẽ, nhấn tổ hợp phím Ctrl+F + Xố đối tượng:

C1 Dùng cơng cụ chọn đối tượng nhấn phím Delete C2 Nháy nút phải chuột lên đối tượng thực lệnh Xố C3 Chọn cơng cụ cơng cụ nháy chuột lên đối tượng muốn xoá

IV/ Củng cố:

Giáo viên củng cố lại đối tượng Geogebra thao tác với chúng V/ Dặn dò:

- Thực hành thao tác máy có điều kiện - Đọc trước phần Bài tập thực hành

Tiết THỰC HÀNH HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA (T1)

I/Mục tiêu:

- Nắm thao tác vẽ với công cụ

- Học sinh thực hành thao tác với phần mềm Geogebra như: Vẽ hình thoi, hình vng, tam giác đều, hình đối xứng trục, hình đối xứng tâm

(28)

giáo viên

- Y/c hs khởi động Geogebra vẽ hình sau

- Quan sát hs làm máy, hướng dẫn cho hs yếu

Gv quan sát sữa sai cho hs - Nhắc lại lỗi hs thường mắc sai lầm

- Kiểm tra tập nhóm

- Y/c hs tắt máy theo trình tự

- Khởi động phần mềm

- Thực hành

- Thoát chương trình - Tắt máy

1 Vẽ hình thoi

- Cho trước cạnh AB đường thẳng qua A Hãy vẽ hình thoi ABCD lấy đường thẳng cho đường chéo Sử dụng công cụ thích hợp học để dựng đỉnh C, D hình thoi

2 Vẽ hình vng

- Sử dụng cơng cụ thích hợp để vẽ hình vng biết trước cạnh

3 Vẽ tam giác đều

Cho trước cạnh BC, vẽ tam giác ABC

4 Vẽ hình đối xứng trục

- Cho hình đường thẳng mặt phẳng Hãy dựng hình đối xứng hình cho qua trục đường thẳng Sử dụng cơng cụ đối xứng trục để vẽ hình

5 Vẽ hình đối xứng tâm

- Vẽ hình đối xứng qua tâm đối tượng cho trước hình

Cho trước hình điểm O Hãy dựng hình đối xứng qua tâm O hình cho Sử dụng công cụ đối xứng tâm để vẽ hình

V/ Dặn dị: - Đọc kĩ lại phần hướng dẫn thao tác

- Thực hành thao tác máy có điều kiện

Tiết THỰC HÀNH HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA (T2)

I/Mục tiêu:

- Nắm thao tác vẽ với công cụ

- Học sinh thực hành thao tác với phần mềm Geogebra như: Vẽ hình trịn, hình trịn ngoại tiếp, hình trịn nội tiếp,

(29)

giáo viên

- Y/c hs khởi động Geogebra vẽ hình sau

- Quan sát hs làm máy, hướng dẫn cho hs yếu

Gv quan sát sữa sai cho hs - Nhắc lại lỗi hs thường mắc sai lầm

- Kiểm tra tập nhóm

- Y/c hs tắt máy theo trình tự

- Khởi động phần mềm

- Thực hành

- Thốt chương trình - Tắt máy

1 Vẽ tròn

2 Vẽ hình trịn ngoại tiếp

- Sử dụng cơng cụ thích hợp để vẽ hìnểptịn ngoai tiếp

3 Vẽ hình trịn nội tiếp

- Sử dụng cơng cụ thích hợp để vẽ hìnểptịn ngoai tiếp

V/ Dặn dị:

- Đọc kĩ lại phần hướng dẫn thao tác

- Thực hành thao tác máy có điều kiện - Đọc trước, chuẩn bị kiến thức cho Bài

B A

Định dạng
Số trang	29
Dung lượng	301,25 KB