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

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (364.01 KB, 29 trang )

(1)<div class='page_container' data-page=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 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 và học:

Hoạt động của

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

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

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

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

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

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

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

B2: Nếu số hình vng nhỏ hơn 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  0
B2: Sum  sum + 1
….

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

- Thực hiện bao nhiêu bước ? Quá dài, vậy trong các bước trên
chỉ có một phép tốn cộng vào Sum lần lượt các giá trị 1, 2,
3,...,100. phép cộng được lặp lại 100 lần. Ta thực hiện cộng vào 1
biến i vào sum và thực hiện khi i không vượt quá 100.

- Mô tả hoạt động lặp trong thuật toán như vậy gọi là cấu trúc
lặp.

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

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

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

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

B2: Nếu số hình vng nhỏ hơn 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, thì sum sum+i và
quay lại B2.

B4: Thông báo kết quả và kết thúc.
IV/ Củng cố:

V/ Dặn dò:

</div>
(2)<div class='page_container' data-page=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 và chức năng của vòng lặp xác định For ... do.
- Tìm hiểu một 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 bài cũ:

GV: - Hs 1: Cho một vài ví dụ về hoạt động thực hiện lặp lại số lần biết trước trong cuộc sống hằng ngày.
- Hs 2: Hãy cho biết tác dụng của 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 và học: 
Hoạt động của

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

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

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

- Giá trị bao nhiêu và giá trị cuối bao nhiêu ?
Biến i

-Gtđ là 1 và gtc là 15

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

-Số chẵn là số chia cho 2 có số dư = 0.
số i mod 2 = 0

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

-Hai hs lên bảng, các hs khác làm vào vở.
-Gọi 2 hs lên bảng, các 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, do là 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
mỗi vòng lặp biến đếm tự động tăng thêm một đơn vị,
quá trình lặp cho đến khi biến đếm lớn hơn giá trị
cuối thì kết thúc.

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

Vd1: In ra màn hình số thứ tự từ 1 đế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 do

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

End.

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

Program sochan;
Var i: integer;
Begin

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

End.

V/ Dặn dò:

</div>
(3)<div class='page_container' data-page=3>

- Làm bài tập 4, 5, 6 Trang 61 (sgk).

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

I/Mục tiêu:

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

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

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

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

Hoạt động của

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

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

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

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

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

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

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

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

1. Viết CT xuất ra màn hình các số lẻ từ
1 đến n.

Program sole;
Var i, n: integer;
Begin

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

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

End.

2. Viết CT tính tổng các số chẵn từ 1 đến
n (với n được 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 do
If i mod 2 = 0 then
S:= S + i;

Writeln(S:4:2);
Readln;

End.
V/ Dặn dò:

</div>
(4)<div class='page_container' data-page=4>

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

I/Mục tiêu:

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

II/ Chuẩn bị:

- Bài tập, phịng máy

IV/ Q trình dạy và học:

Hoạt động của

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

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

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

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

+Gtđ và gtc của vịng lặp?

+Ta xuất ra bao nhiêu đối tượng?
-Y/c hs hồn thành CT trên máy.

-GV quan sát, theo dõi quá trình làm bài của hs.

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

1. Viết CT in ra màn hình bảng cửu
chương 1 đến cửu chương 9, Số bảng
cửu chương được 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 do

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

End.

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

</div>
(5)<div class='page_container' data-page=5>

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

I/Mục tiêu:

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

II/ Chuẩn bị:

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

Hoạt động của

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

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

+BCC từ 1 đến 9, mỗi BCC nhân lần lượt từ 1 đến 9 nên ta sử
dụng bao nhiêu vòng lặp?

+ Sử dụng 2 vòng lặp lồng nhau.
+Gtđ và gtc của vòng lặp?
+Gtđ=1 và gtc=9.

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

+Ta xuất ra bao nhiêu đối tượng?

-Xuất biến: i, j và giá trị của i*j, xuất hằng xâu là dấu x, =,
khoảng trắng.

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

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

-GV quan sát, theo dõi quá trình làm bài của hs.
+Gtđ=1 và gtc=150.

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

-Y/c hs mở file mới, hồn thành btập 2.
+Gtđ và gtc của vịng lặp?

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

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

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

Program ban_cuu_chuong;
Var i, j: integer;

Begin

For i :=1 to 9 do
For j:=1 to 9 do
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 các số từ 1 đến 150.

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

S:= 0;

</div>
(6)<div class='page_container' data-page=6>

Readln;
End.
V/ Dặn dò: - Xem lại các bà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 và chức năng của vòng lặp không xác định While ... do.
II/ Chuẩn bị: Giáo án

III/ Kiểm tra bài cũ:

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

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

Hoạt động của

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

- Khi các em học bài thì chúng ta biết được học thời gian bao lâu
là thuộc ko?

- Không , chúng ta học đến khi thuộc bài.

Hoặc bạn Minh gọi điện cho Hùng, ko có ai nhấc mấy. Như vậy
cứ 5 phút gọi một lần đến khi có người nhấc máy. Sự lặp lại hoạt
động gọi điện bao nhiêu lần?

Chưa biết trước được.

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

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

- Cộng bao nhiêu số tự nhiên để nhận được tổng nhỏ hơn 1000?
- ĐK tổng như thế nào thì vịng lặp kết thúc.

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

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

- Nếu lần đầu tiên <BTĐK> sai thì vịng lặp While có thực hiện
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 các số tự nhiên đầu tiên
S= 1+2+3+4+…+n

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

B2: Nếu S <= 1000 thì n  n+1;
Ngược lại chuyển đến bước 4.
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 nếu cịn
đúng thì lặp lại câu lệnh sau Do, quay lại
kiểm tra BTĐK cho đến khi BTĐK sai
thì thốt 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> do <Câu lệnh>;
- ĐK: Thường là 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 của vòng lặp While
VI/ Dặn dò:

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

Đ
BTĐK

Câu lệnh
S

</div>
(7)<div class='page_container' data-page=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 và chức năng của vòng lặp không xác định While ... do.
- Ứng dụng While ...do để làm được một số ví dụ có sử dụng vòng lặp.

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

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

Hoạt động của

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

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

+Cần bao nhiêu biến?

- Cần 2 biến: S và n có kiểu integer.

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

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

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

-GV nhận xét và sửa bài

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

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

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

- Giá trị a luôn luôn = 5, Đk a < 6 luôn đúng. Lệnh write (‘A’)
luôn thực hiện được.

- Như vậy khi thực hiện vòng lặp ĐK trong câu lệnh phải được
thay đổi để giá trị của ĐK được chuyển từ đúng sang sai, khi đó
chương trình mới 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 các số
tự nhiên đầu tiên

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

Var S, n : integer;
Begin

S:= 0; n:=1;

while S <= 1000 do
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< 6 do write (‘A’);
End.

V/ Củng cố:

GV: Khác với vòng lặp For, trong 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 trên số lần lặp thực hiện cho đến khi tổng lớn hơn 1000.

</div>
(8)<div class='page_container' data-page=8>

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

I/Mục tiêu:

- Viết được chương trình có sử dụng các câu lệnh, vịng lặp và các 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.

II/ Chuẩn bị:

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

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

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

Hoạt động của

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

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

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

- BTĐK như thế nào thì vịng lặp thực hiện? Đầu CT x
bằng bao nhiêu?

x <= 12, x = 1

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

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

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

+Gán biến chạy bằng gì?
+ BTĐK là gì?

+Chương trình kiểm tra ĐK như thế nào?
Cần 2 biến: i và 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 đúng thì ta kiểm tra xem số đó có phải là số chẵn
khơng, nếu đúng thì ta in ra, cịn khơng thì thơi. Sau đó
tăng biến lên 1 đơn vị và đến khi nào i>n thì thốt khỏi
vịng lặp.

Y/c hs hồn thành CT trên máy.

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

1. Viết CT in ra màn hình 12 tháng trong
năm với 12 dong “đây là tháng …” bằng 2

cách vòng lặp While ... do và for …do.
C1: Program vonglapFor;

Var x: interger;
Begin

For x :=1 to 12 do

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

End.

C2: Program vonglapWhile;
Var x: interger;

Begin
x:=1;

While (x <=12) do
Begin

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

End;
Readln;
End.

Viết CT hiện ra các số lẻ từ 1 đến n?

Program sole;

Var i, n : integer;
Begin

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

i:= 0;

while i <= n do
begin

</div>
(9)<div class='page_container' data-page=9>

end.
V/ Dặn dò: - Xem lại các bà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 được chương trình có sử dụng các câu lệnh, vịng lặp và các 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.

II/ Chuẩn bị:

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

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

</div>
(10)<div class='page_container' data-page=10>

V/ Dặn dò:

- Xem lại các bà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.

III/ Kiểm tra bài cũ:

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

Hoạt động của

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ỏ hơn giá trị cuối.
c/ Đúng

d/ Sai, Thiếu từ khoá Do trong lệnh For thứ nhất.

- Cho hs thảo luận và gọi hs trả lời?

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

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

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

+Số lẻ là số ntn? Ta sử dụng phép tốn nào ?
- Là số khơng chia hết cho 2. Phép tốn mod
+Gtđ và gtc của vịng lặp?

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

+ Ta dùng những câu lệnh nào?
+Câu lệnh lặp và 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 và i mod 2 <> 0, thì sum sum+i và quay
lại B3, Ngược lại (i>m) thì thơng báo kết quả và kết thúc.
-Y/c hs lên bảng viết chương trình.

c các nhóm hồn thành CT.

1. Các câu lệnh Pascal sau đúng hay sai?
Hãy chỉ ra lỗi sai nếu có.

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

d/ For i:=1 to 10 For j:=1 to 10 do x:=x+1;
2. Đoạn chương trình Pascal sau đây, hãy
cho biết lệnh Writeln in ra màn 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 5 do
If i mod 2 = 0 then
j:=j+1;

writeln(j);

3. Viết CT tính tổng các số lẽ từ n đến m
(với n, m được 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 do
If i mod 2 <> 0 then
Sl:= Sl + i;

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

End.

</div>
(11)<div class='page_container' data-page=11>

- Xem lại các bài tập đã làm.

- Viết chương trình in ra màn hình bảng cửu chương từ 1 9. 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.

III/ Kiểm tra bài cũ:

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

Hoạt động của

giáo viên Nội dung

- 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 là phép gán, thiếu dấu :
c/ Sai, thiếu Begin…end; câu lệnh ghép sau do.

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

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

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

- Y/c hs thảo luận nhóm và sử dụng vịng lặp while...do.
+ Cần bao nhiêu biến?

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

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

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

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

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

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

- Kiểm tra BTĐK khác 0 thì gán S = S + so, nếu BTĐK
bằng 0 thì thốt khỏi vịng lặp.

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

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

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

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

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

writeln(i,’ ‘,j);

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

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

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

S:=0;

while so <>0 do
begin

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

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

</div>
(12)<div class='page_container' data-page=12>

nhận xét.

-GV nhận xét và sửa bài.
V/ Dặn dò:

- Xem lại các bài tập đã làm.

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

Tiết56 KIỂM TRA 1 TIẾT

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

- Giúp học sinh chú ý hơn đến việc học của mình.

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

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

Hoạt động của

giáo viên Nội dung

- Phát bài kiểm tra.

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

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

For i:= 1 to 5 do
If I mod 2 = 0 then
Begin

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

Writeln (j, ‘ ‘, k);

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

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

</div>
(13)<div class='page_container' data-page=13>

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

I/Mục tiêu: Thông qua bài kiểm tra, góp phần:
- Đánh giá kết quả học tập của học sinh.

- Giúp học sinh chú ý hơn đến việc học của mình.

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

Hoạt động của

giáo viên Nội dung

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

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

Var i, j, k : integer;
Begin

j:= 2; k:=3;
For i:= 1 to 5 do
If I mod 2 = 0 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ừ 1 đến n (n được
nhập từ bàn phím).

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

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

</div>
(14)<div class='page_container' data-page=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 và rèn kĩ năng viết chương trình trên máy
II/ Chuẩn bị:

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

Hoạt động của

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

- Phát bài kiểm tra.

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

- Kiểm tra, chấm bài

Làm bài

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

A= ... ( 1 1)
4

.
3

1
3
.
2

1
2
.
1







n

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

2/ Tính tích của N số tự nhiên đầu tiên với số lần
không xác định (N là số tự nhiên được 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 và rèn kĩ năng viết chương trình trên máy
II/ Chuẩn bị:

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

Hoạt động của

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

</div>
(15)<div class='page_container' data-page=15>

- Phát bài kiểm tra.

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

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

xác định).
A=
)
1
(
1
...
4
.
3
1
3
.
2
1
2
.
1
1






n

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

2/ Tính tích của N số tự nhiên đầu tiên với số lần
không xác định (N là số tự nhiên được 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 một kiểu dữ liệu biến mảng.
- Biết khai báo biến mảng.

II/ Chuẩn bị:

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

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

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

Vd: Viết CT nhập điểm trong lớp và
ssau đó in ra màn hình điểm của hs
cao nhất.

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

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

Để giải quyết vấn đề trên ta có thêm
một kiểu dữ liệu được gọi là kiểu
mảng.

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

- 20 biến, vì mỗi biến chỉ lưu 1

giá trị.

Var hs1, hs2, hs3, ….hs20

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

- Lắng nghe.

Ghi bài

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

Dữ liệu kiểu mảng là tập hợp hữu
hạn các phần tử có thứ tự, mọi
phần tử đều có cùng kiểu dữ liệu,
gọi là kiểu của phần tử.

- Khi khai báo 1 biến có kiểu dữ
liệu là kiểu mảng, biến đó được
gọi là 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
dữ liệu>;

Trong đó:

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

</div>
(16)<div class='page_container' data-page=16>

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

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

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

- Kiểu dữ liệu: Có thể là kiểu
integer hoặc real.

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

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

- Học bài

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

I/Mục tiêu:

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

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

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

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

Hoạt động của

học sinh Nội dung

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

- Các phần tử của mảng có kiều gì?
- Muốn khai báo chỉ số là 20 phần tử
ta khai báo như thế nào?

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

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

- Chốt lại.

- Trả lời .

-HS trả lời. Sai, vì chỉ số là kiểu
real, integer.

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

Hs suy nghĩ và làm bài theo
nhóm.

- Lên bảng làm

3/ ví dụ:

Viết CT nhập điểm cho mảng
HS , rồi in giá trị của 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 do

Begin

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

End;

Writeln(‘Gtrị mang’);

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

</div>
(17)<div class='page_container' data-page=17>

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

- Y/c hs giải thích các câu lệnh trong
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 bài tập 2, 3, 4, 5 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 và xuất các phần tử của mảng.
- Hoàn thành được một số bài tập đơn giản về mảng.
II/ Chuẩn bị: - Bài tập, phòng máy

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

Hoạt động của

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

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

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

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

- Làm bài tập.

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

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

1. Viết CT nhập điểm thi của học sinh, tính
điểm bình quân của mỗi học sinh và 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 do
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 do

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

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

End.
V/ Dặn dò:

- Xem lại các bài tập đã làm.

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..do

</div>
(18)<div class='page_container' data-page=18>

- Hoàn thành được một số bài tập về mảng.
II/ Chuẩn bị:

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

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

Hoạt động của

học sinh Nội dung

- Y/c hs làm 2 bài tập ở trong

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

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

V/ Dặn dò:

- Xem lại các bài tập đã làm.

- Viết CT tìm phần tử bé nhất của 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 một chương trình mảng.
II/ Chuẩn bị:

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

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

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

Hoạt động của

học sinh Nội dung

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

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

- GV sửa các lỗi sai nếu có.

- Chấm điểm

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

- Sữa bài vào vở

Bài 1: Viết CT tìm phần tử bé
nhất trong một dãy các 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 do
Begin

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

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

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

Readln;
End.
V/ Dặn dò:

</div>
(19)<div class='page_container' data-page=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 một chương trình mảng.
II/ Chuẩn bị:

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

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

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

Hoạt động của

học sinh Nội dung

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

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

- GV sửa các lỗi sai nếu có.

- Chấm điểm

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

- Sữa bài vào vở

Bài 1: Viết CT đếm xem trong
một dãy số nguyên được nhập từ
bàn phím có bao nhiêu phần tử
dương và tính tổng các 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 do
Begin

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

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

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

End;

</div>
(20)<div class='page_container' data-page=20>

Readln;
End.
V/ Dặn dò:

- Xem lại các bài tập đã làm.
- Tiết au ôn tập.

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

I/Mục tiêu:

- Nâng cao kỹ năng sử dụng một số câu lệnh và một số kiểu dữ 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 bài cũ:
IV/ Quá trình dạy và học:

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

Hoạt động của

học sinh Nội dung

- 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 các nhóm để làm
bài tập

-Gọi từng nhóm nêu cách làm.

- Trả lời

- Hs lên bảng

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

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

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

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

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

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

</div>
(21)<div class='page_container' data-page=21>

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

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

- Chú ý

Var i, n, S: integer;
Begin

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

S:=0;

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

End.
V/ Dặn dò:

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

(b-2)2

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

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

I/Mục tiêu:

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

Hoạt động của

giáo viên

Hoạt động của

học sinh Nội dung

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

-Gọi từng nhóm nêu cách làm.

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

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

- Học sinh làm bài

- Hs trả lời

- Chú ý

Bài tập

Viết CT tính tổng các phần tử
âm và các phần tử dương trong
một dãy gồm các 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 do
Begin

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

Readln(a[i]);
End;

</div>
(22)<div class='page_container' data-page=22>

bày. Các nhóm khác chấm bài trên
giấy.

- 2 hs lên bảng End.

V/ Dặn dò:

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

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

I/Mục tiêu:

Thơng qua bài kiểm tra, góp phần:
- Đánh giá kết quả học tập của học sinh.

- Giúp học sinh chú ý hơn đến việc học của mình.

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

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

giáo viên

Hoạt động của

học sinh Nội dung

Đề 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 1 chiều B gồm

30 số nguyên. Sau đó đếm xem trong
mảng có bao nhiêu phần tử dương.

Đề 2:

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

n
1
...
3
1
2
1




 (n nhập từ bàn

phím)

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

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

P= 2

)
3
(

2
5
3





c
b
a

</div>
(23)<div class='page_container' data-page=23>

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

Đề 4:

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

2
7

)
1
(
2

3 2

z
y

x  

2/ Viết CT nhập vào mảng 1 chiều D
gồm 20 số nguyên. Sau đó đếm xem
trong mảng có bao nhiêu phần tử là 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ác cơng cụ chính của phần mềm Geogebra.

- Nắm được các thao tác vẽ với các công cụ khi 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 bài cũ:

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

giáo viên

Hoạt động của

</div>
(24)<div class='page_container' data-page=24>

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

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

- HS: Chú ý
quan sát.

- Học sinh chú ý
quan sát.

- HS chú ý lắng
nghe và ghi
chép.

1/ Khởi động Geogebra.

2/ Giới thiệu màn hình Geogebra bằng tiếng việt
3) Giới thiệu các 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 một điểm mới.

- Công cụ dùng để tạo ra điểm là giao của hai đối tượng đã
có trên mặt phẳng.

- Cơng cụ dùng để tạo trung điểm của 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
đi qua hai điểm cho trước.

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

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

Nháy nút áp dụng sau khi đã nhập xong độ dài đoạn thẳng.
Chú ý: Trong cửa sổ trên có thể nhập một chuỗi kí tự là tên cho
một 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 đi qua một điểm và
vng góc với một đường hoặc đoạn thẳng cho trước.

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

- HS: Chú ý quan

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

- Công cụ dùng để vẽ đường trung trực của một đoạn
thẳng hoặc hai điểm cho trước.

</div>
(25)<div class='page_container' data-page=25>

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

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

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

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

- Học sinh chú ý
quan sát.

- HS chú ý lắng
nghe và ghi chép.

* - Cơng cụ tạo ra hình trịn bằng cách xác định tâm và
một điểm trên hình trịn.

- Cơng cụ dùng để tạo ra hình trịn bằng cách xác định
tâm và 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 trong hộp thoại sau:

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

- Cơng cụ sẽ tạo ra một cung tròn là một phần của hình
trịn nếu xác định trước tâm hình trịn và hai điểm trên cung trịn
này.

- Cơng cụ sẽ xác định một cung tròn đi 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 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.
- 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 đ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
hoặc vào Hồ sơ  Lưu lại từ bảng chọn.

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

5) Thốt khỏi phần mềm

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

IV/ Củng cố:

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

- Đọc lại bài, thực hành trên máy nếu 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ác cơng cụ chính của phần mềm Geogebra.

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

</div>
(26)<div class='page_container' data-page=26>

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

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

- Em hiểu thế nào là đối tượng hình
học?

- Các em đã được làm quen với
khái niệm quan hệ giữa các đối

tượng.

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

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

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

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

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

- Quan sát và ghi
chép.

Chú ý quan sát
và 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 sẽ bao gồm nhiều đối tượng cơ
bản: điểm, đoạn thẳng, đường thẳng, tia, hình trịn,
cung trịn.

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

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

- Một đối tượng khơng phụ thuộc vào bất kì một đối tượng nào
khác được gọi là đối tượng tự do. Các đối tượng còn lại gọi là đối
tượng phụ thuộc.

c) Danh sách các đối tượng trên màn 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 này trên màn hình.

d) Thay đổi thuộc tính của đố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 trong bảng chọn:

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

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

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

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

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

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

</div>
(27)<div class='page_container' data-page=27>

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

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

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

+ Đặt/ huỷ vết chuyển động của đố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 khi di chuyển.

Để xoá các vết được 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 rồi nhấn phím Delete.
C2 Nháy nút phải chuột lên đối tượng và thực hiện lệnh Xố.
C3 Chọn cơng cụ trên thanh công cụ và 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 về các đối tượng trong Geogebra và các thao tác với chúng.
V/ Dặn dò:

- Thực hành các thao tác trên máy nếu có điều kiện.
- Đọc trước phần 4. 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 được các thao tác vẽ với các công cụ.

- Học sinh thực hành được các thao tác cơ bản 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...

II/ Chuẩn bị:

</div>
(28)<div class='page_container' data-page=28>

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

giáo viên

Hoạt động của

học sinh Nội dung

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

- Quan sát hs làm bài trên máy,
hướng dẫn cho những hs yếu.

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

- Kiểm tra bài tập các 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ẽ hình thoi

- Cho trước cạnh AB và một đường thẳng đi
qua A. Hãy vẽ hình thoi ABCD lấy đường

thẳng đã cho là đường chéo. Sử dụng các cơng
cụ thích hợp đã học để dựng các đỉnh C, D của
hình thoi.

2. Vẽ hình vng

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

3. Vẽ tam giác đều

Cho trước cạnh BC, hãy vẽ tam giác đều ABC.

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

- Cho một hình và một đường thẳng trên mặt
phẳng. Hãy dựng hình mới là đối xứng của
hình đã cho qua trục là đường thẳng trên. Sử
dụng công cụ đối xứng trục để vẽ hình.

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

- Vẽ một hình là đối xứng qua tâm của một đối tượng cho
trước trên màn hình.

Cho trước một hình và một điểm O. Hãy dựng
hình mới là đối xứng qua tâm O của 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 các thao tác.

- Thực hành các thao tác trên máy nếu 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 được các thao tác vẽ với các công cụ.

- Học sinh thực hành được các thao tác cơ bản 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,....

II/ Chuẩn bị:

</div>
(29)<div class='page_container' data-page=29>

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