ngày soạn ngày soạn 02012010 ngày dạy 8a 05012010 8b 05012010 tiết 37 bài 7 câu lệnh lặp 1 mục tiêu a kiến thức biết nhu cầu cần có cấu trúc lặp trong ngôn ngữ lập trình biết ngôn ngữ lập trình

2. Giáo viên: giáo án, máy chiếu b. Học sinh: Kiến thức cũ, sách, vở. Hãy cho một số ví dụ về lặp với số lần chưa biết trước. Viết chương trình nhập điểm của các bạn trong lớp. Tìm hiểu[r]

(1)

Ngày soạn: 02/01/2010 Ngày dạy: 8A: 05/01/2010 8B: 05/01/2010 Tiết 37:

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

a 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

b Kỹ năng:

- Hiểu hoạt động câu lệnh với số lần biết trước for trong Pascal c Thái độ:

- Yêu thích mơn học, nghiêm túc học 2 Chuẩn bị giáo viên học sinh:

a Chuẩn bị giáo viên:

- Giáo án, phòng máy, máy chiếu, phần mềm Pascal b Chuẩn bị học sinh:

- Kiến thức cũ, sách, 3 Tiến trình dạy

a Kiểm tra cũ: Không KT b Dạy nội dung mới:40’

HOẠT ĐỘNG CỦA THẦY VÀ TRÒ NỘI DUNG KIẾN THỨC

GV: Nêu số công việc thường ngày

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

(2)

trong sống

Trong sống ngày, nhiều hoạt động thực lặp lặp lại nhiều lần

Có hoạt động mà thường thực lặp lại với số lần định biết trước, chẳng hạn đánh ngày hai lần, ngày tắm lần, Chúng ta cịn lặp lại cơng việc với số lần xác định trước: học thuộc bài, nhặt cọng rau xong,

GV: Giới thiệu câu lệnh lặp Pascal

HS: Ghi chép

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

2 Câu lệnh lặp - lệnh thay cho nhiều lệnh: 25’

Ví dụ Giả sử ta cần vẽ ba hình vng có cạnh đơn vị hình 33 Mỗi hình vng ảnh dịch chuyển hình bên trái khoảng cách đơn vị Do đó, ta cần lặp lại thao tác vẽ hình vng ba lần Việc vẽ hình thực thuật tốn sau đây:

Bước Vẽ hình vng (vẽ liên tiếp bốn cạnh trở đỉnh ban đầu)

(3)

GV: Cho ví dụ vẽ hình vng giải thích ví dụ cho học sinh

GV: Cho ví dụ tính tổng 100 số tự nhiên giải thích ví dụ cho học sinh

Hình 33

Riêng với tốn vẽ hình vng (h 34), thao tác vẽ bốn cạnh nhau, hay lặp lại bốn lần thao tác vẽ đoạn thẳng Sau lần vẽ đoạn thẳng, thước kẻ quay góc 90o sang phải vị trí bút vẽ Thuật tốn sau mơ tả bước để vẽ hình vng:

Hình 34

Bước k  (k số đoạn thẳng vẽ được)

Bước Vẽ đoạn thẳng đơn vị độ dài và quay thước 90o sang phải.

Bước k  k +1 Nếu k ≤ trở lại bước 2; ngược lại, kết thúc thuật toán Lưu ý rằng, biến k sử dụng biến đếm để ghi lại số cạnh vẽ Ví dụ Giả sử cần tính tổng 100 số tự nhiên đầu tiên, tức tính:

S = + + + + 100.

(4)

phép cộng 100 lần HS: Ghi

Cách mô tả hoạt động lặp 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 c Củng cố, luyện tập: 4’

- Nhắc lại hoạt động lặp sống d Hướng dẫn học sinh tự học nhà: 1’

- Về nhà xem lại phần lại - Học cũ

Ngày soạn: 05/01/2010 Ngày dạy: 8A: 08/01/2010

(5)

Bài 7: CÂU LỆNH LẶP (T2) 1 Mục tiêu:

a 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

b Kỹ năng

- Viết lệnh for số tình đơn giản - Hiểu lệnh ghép Pascal

c Thái độ

- Tập trung cao độ, nghiêm túc học 2 Chuẩn bị giáo viên học sinh:

- Kiến thức cũ, sách, 3 Tiến trình dạy:

a Kiểm tra cũ: Đan xen tiết học b Dạy nội dung mới: 37’

HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG

GV: Giới thiệu câu lệnh lặp Pascal

HS: Chú ý quan sát

GV: Nêu cú pháp câu lệnh lặp

3 Ví dụ câu lệnh lặp: 15’

(6)

HS: ý ghi

GV: Nêu ví dụ câu lệnh lặp

GV Nêu Ví dụ Để in chữ "O" hình, ta sử dụng lệnh:

Câu lệnh lặp đơn giản Pascal có dạng:

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

Khi gặp câu lệnh lặp trên, câu lệnh thực bắt đầu với giá trị biến đếm giá trị đầu Sau giá trị biến đếm tăng dần đơn vị từ giá trị đầu đến giá trị cuối câu lệnh thực lần tăng biến đếm biến đếm vượt giá trị cuối kết thúc Như biến đếm phải khai báo kiểu nguyên giá trị cuối phải không nhỏ giá trị đầu. Ví dụ Chương trình sau in hình thứ tự lần lặp:

program Lap; var i: Integer; begin

for i := to 10 do writeln('Day la lan lap thu ',i);

end

(7)

HS: Đọc kỹ ví dụ

GV: Trình bày câu lệnh Pascal

hình, ta sử dụng lệnh: writeln('O');

HS: Quan sát câu lệnh chương trình

Nếu muốn viết chương trình mơ trứng rơi từ cao xuống, ta lặp lại lệnh nhiều lần (ví dụ, 20 lần) chương trình sau:

Uses crt;

Var i: integer; begin

Clrscr;

for i:=1 to 20 begin writeln('O'); delay(100) end;

end.

Dịch chạy chương trình này, ta thấy kết hình 35 đây:

(8)

GV: Cho ví dụ tính tổng tích câu lệnh lặp

VD: Ví dụ Chương trình sau tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập vào từ bàn phím

HS: Quan sát ví dụ

Hình 35

4 Tính tổng tích câu lệnh lặp : 22’

Ví dụ Chương trình sau tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập vào từ bàn phím (xem ví dụ 2)

program Tinh_tong; var N,i: Integer; S: longint; begin

write('Nhap so N = '); readln(N);

S:=0;

for i := to N S:=S+i;

writeln('Tong cua ',N,' so tu nhien dau tien S = ',S);

(9)

Ví dụ Ta kí hiệu N! tích N số tự nhiên

HS: Quan sát tìm cách giải

GV: Hướng dẫn số lệnh Pascal sử dụng

HS: Viết chương trình

GV: Nhận xét

Ví dụ Ta kí hiệu N! tích N số tự nhiên

N! = 1.2.3 N

Dưới chương trình tính N! với N số tự nhiên nhập vào từ bàn phím Chương trình sử dụng câu lệnh lặp for…do:

program Tinh_Giai_thua; var N,i: Integer;

P: longint; begin

write('N = '); readln(N);

P:=1;

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

writeln(N,'! = ',P); end

(10)

trị đủ lớn

c Củng cố, luyện tập: 7’

- Nhắc lại số ví dụ câu lệnh lặp - Viết lại dạng tổng quát cấu trúc lặp? d Hướng dẫn học sinh tự học nhà: 1’

- Về nhà xem lại phần lại bài, tiết sau làm tập câu lệnh lặp

8B: 12/01/2010 Tiết 39:

BÀI TẬP 1 Mục tiêu

a Kiến thức:

b Kỹ năng

- Hiểu hoạt động câu lệnh với số lần biết trước for trong Pascal c Thái độ

- Yêu thích môn học, nghiêm túc học 2 Chuẩn bị giáo viên học sinh:

(11)

GV: Cho tập

? Hãy viết thuật toán để thực toán trên?

HS: Viết thuật toán để giải tốn

Bài tập 1: 15’

a) Có thể mơ tả bước thuật tốn để vẽ hình a) sau:

Bước Xác định điểm bắt đầu vẽ X Bước Đặt i = đặt hướng = lên trên.

Bước Vẽ nửa đường tròn theo hướng đã đặt

Bước i = i +

Bước Nếu i > 4, chuyển bước 6; ngược lại, đặt hướng = hướng + quay lại bước 3.

Bước Kết thúc thuật toán

(12)

GV: Yêu cầu học sinh viết thuật tốn để thực giải tốn tính tổng dãy số

GV: Kiểm tra nhận xét

GV: Yêu cầu học sinh viết thuật toán để thực giải tốn tính tổng dãy số

hướng thuật toán

b) Thuật toán tương tự Thao tác cần lặp lại vẽ hình vng Tại bước, giữ ngun tâm hình vng thay đổi hướng vẽ góc 30o.

Bài tập 2: 13’

Thuật tốn tính tổng

A = ( 1)

1

 

n n Bước Gán A  0, i  Bước A  i i( 12).

Bước i  i +

Bước Nếu i  n, quay lại bước 2

Bước Ghi kết A kết thúc thuật toán.

Bài tập 3:12’

Trừ d), tất câu lệnh không hợp lệ:

a) Giá trị đầu phải nhỏ giá trị cuối; b) Các giá trị đầu giá trị cuối phải là số nguyên;

(13)

d) Thừa dấu chấm phẩy thứ nhất, như ta muốn lặp lại câu lệnh

writeln('A') mười lần, ngược lại câu lệnh hợp lệ;

e) Biến x khai báo biến có liệu kiểu số thực khơng thể dùng để xác định giá trị đầu giá trị cuối câu lệnh lặp.

? Nhắc lại thuật toán tập trên? d Hướng dẫn học sinh tự học nhà: 1’

- Về nhà xem tập lại, tiết sau làm tiếp tập

8B: 16/01/2010 Tiết 40:

BÀI TẬP (Tiếp) 1 Mục tiêu

(14)

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

- Viết lệnh for số tình đơn giản - Hiểu lệnh ghép Pascal

c Thái độ:

- Nghiêm túc học, u thích mơn học 2 Chuẩn bị giáo viên học sinh:

GV: Cho tập yêu cầu học sinh viết thuật toán lệnh để giải toán sau:

HS: Viết thuật toán để giải toán

Bài tập 1: Thuật toán: 15’

Bước Nhập số n x

Bước A  1, i  (A biến lưu luỹ thừa bậc n x)

(15)

GV: Cho tốn "Nhập n số tự nhiên tìm số lớn số vừa nhập " yêu cầu học sinh viết thuật toán lệnh để giải tốn

HS: Viết thuật tốn, chương trình

Bước Nếu i < n, quay lại bước

Bước Thông báo kết A luỹ thừa bậc n x kết thúc thuật tốn

Chương trình Pascal sau: var n,i,x: integer; a: longint;

begin

write('Nhap x='); readln(x);

write('Nhap n='); readln(n);

A:=1;

for i:=1 to n A:=A*X;

writeln(x,' mu ',n,' bang ',A);end

Bài tập 2) Thuật toán: 12’

Bước Nhập số n

(16)

nguyên cho A), i 1

Bước Nhập số thứ i gán giá trị vào biến A

Bước Nếu Max < A, Max  A Bước i i + 1.

Bước Nếu i ≤ n, quay lại bước

Bước Thông báo kết Max là số lớn kết thúc thuật tốn Chương trình Pascal sau:

uses crt;

var n,i,Max,A: integer; begin

clrscr;

write('Nhap N='); readln(n);

Max:=-32768; for i:=1 to n do

begin write('Nhap so thu ',i,':');

readln(A);

if Max<A then Max:=A end;

writeln('So lon nhat: ',Max);

(17)

GV: Cho toán yêu cầu học sinh viết thuật toán lệnh để giải toán

Bài tập 3) 12’

Lời giải tương tự lời giải (xem thuật toán lời giải tập 5a, 5) Chương trình Pascal sau:

uses crt;

var n,i,SoDuong,A: integer;

begin clrscr;

write('Nhap N='); readln(n);

if n>0 then begin

SoDuong:=0;

for i:=1 to n begin

write('Nhap so thu ',i,':'); readln(A); if A>0 then

SoDuong:=SoDuong+1 end; writeln('So cac so duong = ',SoDuong)

end

(18)

end.

? Nhắc lại thuật toán tập số lệnh sử dụng chương trình?

d Hường dẫn học sinh tự học nhà: 1’

- Về nhà xem lại tập tiết sau thực hành Bài thực hành

8B: 19/01/2010 TiÕt 41

Bµi thùc hµnh 5: Sư dơng lƯnh lỈp for (t1)

1 Mơc tiªu:

a KiÕn thøc:

Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép vit chng trỡnh

b Kỹ năng:

Viết đợc chơng trình có sử dụng vịng lặp for … do; Sử dụng đợc câu lệnh ghép;

Rèn luyện kỹ đọc hiểu chơng trình có sử dụng vòng lặp for …

c.Thái độ:

Thái độ học tập nghiêm túc, tích cực làm tập thực hành 2 Chuẩn bị:

a Giáo viên: Giáo án, máy tính, sgk

b Học sinh: Kiến thức cũ, sgk 3 Tiến trình dạy:

a Kieồm tra cũ: 6p Kiểm tra tập cho nhà Giới thiệu mới:

Chúng ta nghiên cứu lý thuyết vòng lặp for … để biết vòng lặp chạy nh hơm vào tiết thực hành Giáo viên ghi tên học lên bảng Dạy mi : 35p

HĐ Thầy HĐ Trò Ghi Bảng

Hot ng 20p

- Viết chơng trình cho tập cho v nh

- GV: yêu cầu dÃy gõ vào máy

- GV: hỗ trợ học sinh trình

- HS: gõ chơng trình, chạy thử

Bài 1: Tính tổng n số tự nhiên

Program tinh_tong; Uses crt;

Var i, n: integer; tong: longin; Begin

(19)

thùc hµnh

- Sau kết chạy chơng trình đúng, gv yêu cầu học sinh chữa làm nhà cho theo ch-ơng trình chạy

Hoạt đơng - 15p

Bảng cửu chơng

- GV: a nội dung toán - GV: Đa nội dung chơng trình lên hình, yêu cầu học sinh đọc hiểu chơng trình

- GV: yêu cầu học sinh đứng vị trí trình bày hoạt động chơng trình, nhóm khác tham gia phân tích

- GV: cho chơng trình chạy máy, yêu cầu học sinh quan sát kết

chơng trình, báo cáo kết

- HS: Nghiờn cu tốn, tìm input output - HS: đọc, phân tích câu lệnh

Writeln(‘Nhap vao so n’); readln(n);

For i:=1 to n Tong: = Tong+i;

Writeln(‘Tong cña’, n,’so tu nhien dautien la’,tong);

Readln; End

Baứi Viết chơng trình tìm xem có số dơng n số nhập vào từ bàn phÝm

Program tinh_so_cac_so_duong; Uses crt;

Var i,A, dem, n: integer; Begin

Clrscr; Dem:=0;

For i:=1 to n begin

writeln(‘nhap vao so thu’,i); readln(A);

if A>0 then dem:=dem+1; end;

Writeln(‘So cac so duong la’,dem);

Readln; End

Bài 3: Viết chơng trình in hình bảng nhân số từ đến 9, dừng hình để quan sát kết

Program Bang_cuu_chuong; Uses crt;

Var i, n: integer; Begin

Clrscr;

Writeln(‘Bang nha’,n); Writeln;

For i:=1 to 10

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

End

c Củng cố, luyện tập 3p

NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh d Hướng dẫn học sinh tự học nhà: 1p

(20)

Ngày soạn: 18/01/2010 Ngày dạy: 8A: 22/01/2010 8B: 23/01/2010 TiÕt 42

Bµi thùc hµnh 5: Sư dơng lƯnh lặp for (t1)

1 Mục tiêu:

a KiÕn thøc:

Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để viết chơng trình, tìm hiểu câu lệnh gotoxy(), where<>, lệnh for lồng for

b Kỹ năng:

Vit c chng trỡnh có sử dụng vịng lặp for… do; Sử dụng đợc câu lệnh ghép;

Rèn luyện kỹ đọc hiểu chơng trình có sử dụng vịng lặp for

c.Thái độ:

Thái độ học tập nghiêm túc, tích cực làm tập thực hành

2 chuÈn bÞ:

a Giáo viên: Giáo án, máy tính, sgk

b Học sinh: Kiến thức cũ, sgk

3 TIẾN TRÌNH BÀI DẠY:

a Kiểm tra cũ: b Dạy mi : 40p

HĐ Thầy HĐ Trò Ghi B¶ng

Hoạt động – 20p

- Làm đẹp hình kết lệnh gotoxy, where - Giáo viên cho chạy kết thực hành Bang_cuu_chuong Yêu cầu học sinh quan sát kết nhận xét khoảng cách hàng, cột

? Có cách để khoảng cách hàng cột tăng lên?

- GV: Giíi thiƯu câu lệnh gotoxy where

- yêu cầu học sinh mở chơng trình Bang_cuu_chơng sửa lại chơng trình theo hình giáo viên

- GV: yêu cầu học sinh quan sát kết so sánh với kết chơng trinh cha dùng lệnh gotoxy(5, where)

- HS: quan sát đa nhận xét

- HS: gõ chơng trình vào máy, sửa lỗi tả, chạy chơng trình, quan sát kết

- HS: quan sát nhận xÐt

Bµi sgk (T63)

Giíi thiƯu lƯnh gotoxy(), where

- Gotoxy(a,b)

Trong đó: a số cột, b số hàng

- ý nghĩa câu lệnh đa trỏ vỊ cét a hµng b - Where: cho biÕt sè thø tù cña cét, wherey cho biÕt sè thø tù hàng

* Lu ý: Phải khai báo th viƯn crt tríc sư dơng hai lƯnh trªn

a) Chỉnh sửa chơng trình nh sau:

Program Bang_cuu_chuong; Uses crt;

Var i, n: integer; Begin

Clrscr;

(21)

Hoạt động – 20p

- Sư dơng lƯnh For lång for

- GV: giíi thiƯu cÊu tróc lƯnh for lång, híng dÉn häc sinh c¸ch sư dơng lƯnh

- GV: đa nội dung chơng trình thực hành lên hình, yêu cầu học sinh đọc chơng trình, tìm hiểu hoạt động chơng trình

- GV: cho ch¹y chơng trình

- HS: ghi chép cấu trúc lÜnh héi

- HS: hoạt động theo nhóm, tìm hiểu hoạt động ch-ơng trinh, đại diện nhóm báo cáo kết thảo luận

- HS : quan sát kết hình

readln(n);

Writeln(‘Bang nha’,n); Writeln;

For i:=1 to 10 begin

gotoxy(5, wherey);

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

End

Bµi SGK (T64).

C©u lƯnh for lång trong for

- For <biến đếm1:= giá trị đầu> to <giá trị cuối>do

For<biến đếm 2:=giá trị đầu> to<giá trị cuố> do

< c©u lƯnh>; Program Tao_bang; Uses crt;

Var i,j: byte; Begin

Clrscr;

For i:=1 to Begin

For j:=0 to Writeln(10*i+j:4); Writeln;

End; Readln; End

c Củng cố, luyện tập 3p

NhËn xÐt rót kinh nghiƯm giê thùc hµnh

d Hướng dẫn học sinh tự học nhà: 2p

Học sinh nhà sử dụng lệnh gotoxy để chỉnh sửa lại thực hành số cho kết in hình đẹp

8B: 26/01/2010 TiÕt 43: häc vÏ hình với phần mềm geogebra

(22)

a) Kiến thức: Học sinh biết đợc ý nghĩa hình học geogebra Làm quen với phần mềm nh khởi động, công cụ, nút lệnh

b) Kỹ năng: Nắm đợc cách vẽ hình sử dụng phần mềm geogebra

c) Thỏi : Hứng thú yêu thích môn học

2/ Chuẩn bị:

a) Giỏo viờn: - Sách giáo khoa, giáo án, tài liệu tin học có liên quan

b) HS: - Đọc tài liệu nhà trớc

3/ Tiến trình lên lớp: a) Kiểm tra. 5’

- Lµm bµi tËp trang 64?

b) Bµi míi: 40’

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

Hoạt động 1: Giới thiệu phần mềm geogebra (10’) Cho học sinh đọc thơng tin SGK

? Em biÕt g× phần mềm geogebra Nếu biết hÃy nêu vài vÝ dơ

? Phần mềm geogebra có đặc điểm gì? Giáo viên giới thiệu lại cho học sinh nghe

1 Em biết GeoGebra?

- Phần mềm GeoGebra dùng để vẽ hình hình học đơn giản nh điểm, đoạn thẳng, đờng thẳng lớp em đợc học qua - - - Đặc điểm quan trọng phần mềm Geogebra khả tạo gắn kết đối tợng hình học, đợc gọi quan hệ nh thuộc, vng góc, song song Đặc điểm giúp cho phần mềm vẽ đợc hình xác có khả tơng tác nh chuyển động nhng giữ đợc mối quan hệ đối tợng

Hoạt động2: Làm quen với phần mềm Geogebra (30’) Giáo viên cho học sinh quan sát SGK

giíi thiƯu c¸c bíc

Để khởi động ta làm nh th no?

Ngoài cách có cách không?

Màm hình phần mềm GeoGebra tiếng Việt có phần nào?

2 Lm quen vi phần mềm GeoGebra tiếng Việt a) Khởi động

Nháy chuột biểu tợng để khởi động chơng trình

b) Giới thiệu hình GeoGebra tiếng Việt

(23)

Em hiểu Bảng chọn gì?

Giáo viên ý cho HS

Thanh cụng cụ ? Hãy nêu lệnh (có thể cho HS lên bảng vẽ)

Giáo viên giới thiệu công cụ làm việc cho học sinh

Để chọn công cụ hÃy nháy chuột lên biểu tợng công cụ

Mỗi nút công cụ có nhiều công cụ nhóm Nháy chuột vào nút nhỏ hình tam giác phía dới biểu tợng làm xuất công cụ khác

Cỏc cụng c liên quan đến đối tợng điểm

 B¶ng chän hệ thống lệnh phần mềm Geogebra Với phần mềm Geogebra tiếng Việt em thấy lÖnh b»ng tiÕng ViÖt

Chú ý lệnh bảng chọn khơng dùng để vẽ đối tợng-hình Các lệnh tác động trực tiếp với đối t-ợng hình học đợc thực thông qua công cụ công cụ phần mềm

 Thanh công cụ phần mềm chứa công cụ làm việc Đây cơng cụ dùng để vẽ, điều chỉnh làm việc với đối t-ợng

- Khi nháy chuột lên nút lệnh ta thấy xuất công cụ khác nhóm

- Mỗi cơng cụ có biểu tợng riêng tơng ứng Biểu tợng cho biết công dụng công c ú

c) Giới thiệu công cụ làm viƯc chÝnh

 Cơng cụ di chuyển có ý nghĩa đặc biệt khơng dùng để vẽ khởi tạo hình mà dùng để di chuyển hình Với công cụ này, kéo thả chuột lên đối tợng (điểm, đoạn, đờng, .) để di chuyển hình Công cụ dùng để chọn đối tợng thực lệnh điều khiển thuộc tính đối tợng

Có thể chọn nhiều đối tợng cách nhấn giữ phím Ctrl

chän

Chú ý: Khi sử dụng công cụ khác, nhấn phím ESC để chuyển

c«ng di chun

 Các cơng cụ liên quan đến đối tợng điểm

Công cụ dùng để tạo điểm Điểm đợc tạo điểm tự mặt phẳng điểm thuộc đối tợng khác (ví dụ đờng thẳng, đoạn thẳng)

(24)

t-Các công cụ liên quan đến đoạn, ng thng

Các công cụ tạo mối quan hệ h×nh häc

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

Cách tạo: chọn công cụ lần lợt nháy chuột chọn hai đối tợng có mặt phẳng

Công cụ dùng để tạo trung điểm (đoạn thẳng nối) hai điểm cho tr-ớc: chọn công cụ nháy chuột hai điểm để tạo trung điểm

 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 Thao tác nh sau: chọn cơng cụ, sau nháy chuột chọn lần lợt hai điểm hình

Cơng cụ tạo đoạn thẳng qua điểm cho trớc với độ dài nhập trực tiếp từ bàn phím

Thao tác: chọn cơng cụ, chọn điểm cho trớc, sau 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

(25)

Các công cụ liên quan đến hình trịn

chän ®iĨm

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

Thao tác: chọn cơng cụ, sau lần l-ợt chọn điểm, đờng (đoạn, tia) ngợc lại chọn đờng (đoạn, tia) chọn điểm

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

Thao tác: chọn công cụ, sau chọn đoạn thẳng chọn hai điểm cho trớc mặt phẳng

- Công cụ dùng để tạo đờng phân giác góc cho trớc Góc xác định ba điểm mặt phẳng

Thao tác: chọn cơng cụ sau lần lợt chọn ba điểm mặt phẳng Điểm chọn thứ hai đỉnh góc

 Các cơng cụ liên quan đến hình trịn

- Cơng cụ tạo hình trịn cách xác định tâm điểm hình trịn Thao tác: chọn cơng cụ, chọn tâm hình trịn điểm thứ hai nằ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, sau nhập giá trị bán kính hộp thoại sau:

(26)

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

- Thao tác: chọn công cụ, chọn lần l-ợt hai điểm Nửa hình trịn đợc tạo phần hình trịn theo chiều ngợc kim đồng hồ từ điểm thứ đến điểm thứ hai

- 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

- Thao tác: Chọn cơng cụ, chọn tâm hình trịn lần lợt chọn hai điểm Cung tròn xuất phát từ điểm thứ đến điểm thứ hai theo chiều ng-ợc chiều kim đồng hồ

- Công cụ xác định cung tròn qua ba điểm cho trớc Thao tác: chọn cơng cụ sau lần lợt chọn ba điểm mặt phẳng

 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

- Thao tác: Chọn công cụ, chọn đối tợng cần biến đổi (có thể chọn nhiều đối tợng cách kéo thả chuột tạo thành khung chữ nhật chứa đối tợng muốn chọn), sau nháy chuột lên đờng đoạn thẳng làm trục đối xứ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 (điểm gọi tâm đối xứng)

(27)

chuột lên điểm tâm đối xứng

d) C¸c thao t¸c víi tƯp

Mỗi trang hình vẽ đợc lu lại tệp có phần mở rộng ggb Để lu

hình hÃy nhấn tổ hợp phím Ctrl+S

hoặc thực lệnh Hồ sơ Lu lại từ

bảng chọn Nếu lần lu tệp, phần mềm yêu cầu nhập tên tệp Gõ tên tệp vị trí File name nháy

chuột vµo nót Save

Để 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

tại File name, sau nháy chut vo

nút Open

e) 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

c) Củng cố, luyn tp:3

- Giáo viên hệ thống lại toàn bé néi dung bµi häc

-d) Hướng dẫn HS tự học nhà: 2’

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện viết, làm làm lại nhiều lần

- Đọc để sau học

8B: 30/01/2010 Tiết 44: học vẽ hình với phần mỊm geogebra (tiÕp)

1/ Mơc tiªu:

a) Kiến thức: Học sinh nắm đợc đối tợng phần mềm hình học Geogebra Hiểu rõ đợc đối tợng danh sách đối tợng hình

b) Kỹ năng: Vận dụng đợc vào vẽ hình thực tế

c) Thái độ: Yªu thích môn học Có ý thức bảo vệ máy tính sư dơng

2/ Chn bÞ:

a) Chun b ca GV:- Sách giáo khoa, giáo án, tài liƯu tin häc cã liªn quan

b) Chuẩn bị ca HS- Đọc tài liệu nhà trớc

3/ Tiến trình lên lớp: a) Kiểm tra 5

- Phần mềm Geogebra dùng để làm gì?

b) Bµi míi: 40’

(28)

Hoạt động1: Khái niệm đối tợng (15’) ? Em hiểu đối tợng hình

học? a) Khái niệm đối tợng hình họcMột hình hình học bao gồm nhiều đối t-ợng Các đối tt-ợng hình học bao gồm: điểm, đoạn thẳng, đờng thẳng, tia, hình trịn, cung trịn

Hoạt động 2: Đối tợng tự đối tợng phụ thuộc (25’) Giáo viên nêu đối tợng phụ thuộc

vµ cho biÕt ý nghÜa cđa nã

Hiện ẩn danh sách đối tợng hình

Thay đổi thuộc tính

b) Đối tợng tự đối tợng phụ thuộc

Em đợc làm quen với khái niệm quan hệ

giữa đối tng

Sau vài ví dụ:

 Điểm thuộc đờng thẳng

Cho trớc đờng thẳng, sau xác định điểm "thuộc" đờng thẳng Chúng ta có quan hệ "thuộc" Trong trờng hợp đối tợng điểm có quan hệ thuộc đối tợng -ng thng

Đờng thẳng qua hai điểm

Cho trớc hai điểm Vẽ đờng thẳng qua hai điểm Chúng ta có quan hệ "đi qua" Trong trờng hợp đờng thẳng có quan hệ phụ thuộc vào hai điểm cho trớc

 Giao hai đối tợng hình học

Cho trớc hình trịn đờng thẳng Dùng cơng cụ để xác định giao đ-ờng thẳng đđ-ờng tròn Chúng ta có quan hệ "giao nhau" Giao điểm, có, thuộc hai đối tợng ban đầu đờng trịn đờng thẳng

Một đối tợng khơng phụ thuộc vào đối tợng khác đợc gọi đối tợng tự Các đối tợng lại gọi đối tợng phụ thuộc Nh đối tợng hình học phần mềm

Geogebra chia thành hai loại tự hay phụ thuộc

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

Phần mềm Geogebra cho phép hiển thị danh sách tất đối tợng hình học có trang 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

Các đối tợng hình có tính chất nh tên (nhãn) đối tợng, cách thể kiểu đ-ờng, màu sắc,

(29)

thay đổi tính chất đối tợng

 ẩn đối tợng: Để ẩn đối tợng, thực thao tác sau:

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: Để làm ẩn hay tên đối tợng, thực thao tác sau:

1.Nháy nút phải chuột lên đối tợng hình;

2.Hủ chọn Hiển thị tên bảng

chọn

Thay đổi tên đối tợng: Muốn thay đổi tên đối tợng, thực thao tác sau:

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:

Sau nhập tên hộp thoại:

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:

Chức đặt vết đối tợng chuyển động có ý nghĩa đặc biệt phần mềm "Toán học động" Chức đợc sử dụng toán dự đoán quĩ tích khảo sát tính chất hình đối tợng khác chuyển động

Để đặt/huỷ vết chuyển động cho đối t-ợng hình thực thao tác sau:

(30)

2.Chän Më dÊu vÕt di chuyÓn

Để xố vết đợc vẽ, nhấn tổ hợp phím

Ctrl+F

 Xoá đối tợng: Muốn xoá hẳn đối tợng, ta thực thao tác sau:

1.Dùng công cụ chọn đối tợng nhấn phím Delete

2.Nháy nút phải chuột lên đối tợng thực lệnh Xố

3.Chọn cơng cụ công cụ nháy chuột lên đối tợng muốn xố

c) Cđng cè, luyện tập: 4

- Giáo viên hệ thống lại toàn néi dung bµi häc

-d) Híng dÉn HS tự học nhµ: 1’

- Häc kÜ lÝ thuyÕt,

- Đọc để sau học

8B: 02/02/2010 TiÕt 45: học vẽ hình với phần mềm geogebra

1/ Mục tiªu:

a) Kiến thức: Học sinh nắm đợc cơng cụ làm việc

b) Kỹ năng:Biết vẽ hình liên quan đến đối tợng điểm đờng thẳng

c) Thái độ: Nghiêm túc, cẩn thận. 2/ Chuẩn bị:

a) Giỏo viờn: - Sách giáo khoa, giáo án, tài liệu tin học có liên quan

b) Hc sinh: - Đọc tài liệu nhà tríc

(31)

a) KiĨm tra 3’

- KiĨm tra sù chn bÞ cđa häc sinh

b) Bµi míi: 37’

Hoạt động giỏo viờn v HS Ni dung

Mỗi nút c«ng sÏ cã nhiỊu c«ng cïng nhãm Nháy chuột vào nút nhỏ hình tam giác phía dới biểu tợng làm xuất công cụ khác

Cỏc cụng c liờn quan n i tợng điểm

Các công cụ liên quan đến đoạn, đờng thẳng

c) Giới thiệu công cụ làm việc  Cơng cụ di chuyển có ý nghĩa đặc biệt không dùng để vẽ khởi tạo hình mà dùng để di chuyển hình Với cơng cụ này, kéo thả chuột lên đối tợng (điểm, đoạn, đờng, ) để di chuyển hình Cơng cụ dùng để chọn đối tợng thực lệnh điều khiển thuộc tính đối tợng Có thể chọn nhiều đối tợng cách nhấn giữ phím Ctrl chọn

Chú ý: Khi sử dụng cơng cụ khác, nhấn phím ESC để chuyển cơng

cơ di chun

 Các công cụ liên quan đến đối tợng điểm

Công cụ dùng để tạo điểm Điểm đợc tạo điểm tự mặt phẳng điểm thuộc đối tợng khác (ví dụ đờng thẳng, đoạn thẳng)

Cách tạo: chọn công cụ nháy chuột lên điểm trống hình nháy chuột lên đối tợng để tạo điểm thuộc đối tợng

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

Cách tạo: chọn cơng cụ lần lợt nháy chuột chọn hai đối tợng có mặt phẳng

Cơng cụ dùng để tạo trung điểm (đoạn thẳng nối) hai điểm cho trớc: chọn công cụ nháy chuột hai điểm để tạo trung điểm

 Các công cụ liên quan đến đoạn, đ-ờng thẳng

(32)

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

màn hình

Cụng c s to đoạn thẳng qua điểm cho trớc với độ dài nhập trực tiếp từ bàn phím

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

Nháy nút áp dụng sau ó nhp xong

dài đoạn thẳng

Chó ý: Trong cưa sỉ trªn cã thĨ nhËp chuỗi kí tự tên cho giá trị sè

c) Củng cố, luyện tập:4’

- Gi¸o viên hệ thống lại toàn nội dung học

d)Hướng dẫn HS tự học nhà: 1’

- Đọc trớc cơng cụ liên quan đến đờng trịn

8B: 06/02/2010 Tiết 46: học vẽ hình với phần mềm geogebra

1/ Mơc tiªu:

a) Kiến thức: Học sinh biết sử dụng cơng cụ vẽ hình liên quan đến ng -ng trũn

b) K nng: Rèn kỹ sư dơng cht

c) Thái độ: Nghiêm túc, cẩn thận. 2/ ChuÈn bÞ:

(33)

- Sách giáo khoa, giáo án, tài liệu tin học có liên quan

b) Hc sinh:

- Đọc tµi liƯu ë nhµ tríc

3/ Tiến trình dạy: a) KiÓm tra: 1’

- KiÓm tra sù chn bÞ cđa häc sinh

b) Dạy nội dung bµi míi: 40’

Hoạt động giáo viên HS Nội dung Các công cụ liên quan n hỡnh trũn

c) Giới thiệu công cụ lµm viƯc chÝnh ( 22’)

 Các cơng cụ liên quan đến hình trịn

- Cơng cụ tạo hình trịn cách xác định tâm điểm hình trịn Thao tác: chọn cơng cụ, chọn tâm hình trịn điểm thứ hai nằ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, sau 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 Thao tác: chọn công cụ, sau lần lợt chọn ba điểm

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

- Thao tác: chọn cơng cụ, chọn lần l-ợt hai điểm Nửa hình trịn đợc tạo phần hình trịn theo chiều ngợc kim đồng hồ từ điểm thứ đến điểm thứ hai

(34)

- Thao tác: Chọn cơng cụ, chọn tâm hình trịn lần lợt chọn hai điểm Cung tròn xuất phát từ điểm thứ đến điểm thứ hai theo chiều ng-ợc chiều kim đồng hồ

- Công cụ xác định cung tròn qua ba điểm cho trớc Thao tác: chọn cơng cụ sau lần lợt chọn ba điểm mặt phẳng

 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

- Thao tác: Chọn công cụ, chọn đối tợng cần biến đổi (có thể chọn nhiều đối tợng cách kéo thả chuột tạo thành khung chữ nhật chứa đối tợng muốn chọn), sau nháy chuột lên đờng đoạn thẳng làm trục đối xứ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 (điểm gọi tâm đối xứng)

- Thao tác: Chọn công cụ, chọn đối tợng cần biến đổi (có thể chọn nhiều đối tợng cách kéo thả chuột tạo thành khung chữ nhật chứa đối tợng muốn chọn), sau nháy chuột lên điểm tâm đối xứng

d) C¸c thao t¸c víi tƯp (18 )’

Mỗi trang hình vẽ đợc lu lại tệp có phần mở rộng ggb Để lu

h×nh h·y nhÊn tỉ hợp phím Ctrl+S

hoặc thực lệnh Hồ sơ Lu lạitừ

bảng chọn Nếu lần lu tệp, phần mềm yêu cầu nhập tên tệp Gõ tên tệp vị trí File name nháy

chuột vào nút Save

m mt 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

ti ụ File name, sau nháy chuột vào

(35)

e) 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

c) Cng c, luyn tp:2

- Giáo viên hệ thống lại toàn nội dung học

d) Hướng dẫn HS tự học nhà: 2’

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện viết, lm i lm li nhiu ln

- Đọc phần làm nhÃn cách lu

- c trc cách xóa đối tợng , khỏi chơng trình

8B: 09/02/2010

Tiết 47 : học vẽ hình với phần mềm geogebra

(36)

1 Mơc tiªu

a)Kiến thức: - Học sinh thực hành đợc ứng dụng phần mềm vẽ hình học geogebra

b) Kỹ năng: - Nắm đợc cách vẽ hình sử dụng phần mềm geogebra

c) Thỏi : - Hứng thú yêu thích môn häc

2 ChuÈn bÞ a) Giáo viên:

Sách giáo khoa, giáo án, phịng máy tính hoạt động tốt

b) Hc sinh:

Đọc tài liệu nhµ tríc

3 Tiến trình dạy: a) Kiểm tra cũ: 5

?Đọc tác dụng nút lệnh công cụ phần mềm geogebra?

b) Dạy nội dung bµi míi: 35’

1. Vẽ đờng tròn ngoại tiếp tam giác (12 )’

Cho trớc tam giác ABC Dùng công cụ đờng tròn vẽ đờng tròn qua ba điểm A, B, C

2. Vẽ đờng tròn nội tiếp tam giác (12 )’ Cho trớc tam giác

ABC Dùng cơng cụ đờng phân giác, đờng vng góc đờng tròn vẽ đờng tròn nội tiếp tam giác ABC

3. Vẽ hình thoi (11 )’ 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

- Thực nghiêm túc yêu cầu giáo viên

- HS tích cực thực hành theo nhóm

- Thực lu hình vừa vẽ

- Thực vẽ hình theo yêu cầu

- Thc theo nhóm để hồn thành hình

- Nhãm làm xong báo cáo kết

(37)

- Vẽ tam giác cân BAC

d) Hng dẫn HS tự học nhà: 2’

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học - Đọc Bài tập thực hành lại

8B: 09/02/2010 TiÕt 48: häc vẽ hình với phần mềm geogebra (TT)

1 Mục tiªu a)Kiến thức:

- Học sinh thực hành đợc ứng dụng phần mềm vẽ hình học geogebra

b) Kỹ năng:

- Nắm đợc cách vẽ hình sử dụng phần mềm geogebra

c) Thái độ:

- Hứng thú yêu thích môn học

2 ChuÈn bÞ giáo viên học sinh: a) Giáo viên:

- Sách giáo khoa, giáo án, phòng máy tính hoạt động tốt

b) Học sinh:

- Học sinh: Đọc tài liệu nhà trớc

3 Tiến trình dạy: a) KiĨm tra cũ: 5

?Đọc tác dụng nút lệnh công cụ phần mềm geogebra?

b) Dạy nội dung bµi míi: 35’

4. VÏ hình vuông (8 ) Sử dụng công

c thích hợp để vẽ hình vng biết tr-ớc cạnh

5. Vẽ tam giác (9 )’

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

6. Vẽ hình đối xứng trục đối tợng cho trớc hình (9 )

- Thực nghiêm túc yêu cầu giáo viên

- HS tích cực thực hành theo nhóm

- Thực lu hình vừa vÏ

(38)

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

7. Vẽ hình đối xứng qua tâm đối tợng cho trớc hình (9 )’

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

- Thực theo nhóm để hồn thành hình

- Nhãm nµo làm xong báo cáo kết

c) Cng c, luyện tập: 3’

- Giáo viên hệ thống lại toàn kiến thức học

- Häc bµi theo sách giáo khoa ghi - Đọc trớc Bài 8: lặp với số lần cha biết trớc

8B: 23/02/2010 Tiết 49:

Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC 1 Mơc tiªu

a)Kiến thức:

- Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước ngôn ngữ lập trình;

- Biết ngơn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để dẫn máy tính thực lặp lặp lại cơng việc đến điều kiện thoả mãn;

b) Kỹ năng:

- Hiểu hoạt động câu lệnh lặp với số lần chưa biết trước while do…

trong Pascal

c) Thái độ: Nghiêm túc, cẩn thận

(39)

a) KiĨm tra bµi cị: 7’

Viết thuật tốn tính tổng 100 số tự nhiên 1,2,3,…,99,100 Bước SUM  0; i 

Bước i  i +

Bước Nếu i ≤ 100, SUM  SUM + i quay lại bước Bước Thông báo kết kết thúc thuật toán.

* Đặt vấn đề: Với tốn trên, TP ta sử dụng vịng lặp for…to…do thì thực dễ dàng Nhưng ta thay số 100 n ( tính tổng n số tự nhiên ) ta gặp nhiều khó khăn việc sử dụng vịng lặp for…to…do lúc số lần lặp trước Vậy ta phải làm ? Giới thiệu b) Dạy nội dung bµi míi: 35’

+ G : y/c hs đọc ví dụ 1sgk/67

+ Hs : 2-3 hs đọc ví dụ sgk + Hs : Chú ý lắng nghe + G : Phân tích ví dụ

+ G : Hướng dẫn hs xây dựng thuật toán

+ Hs : Nghe giáo viên hướng dẫn, sau tự xây dựng thuật tốn

+ G : Chạy tay cho học sinh xem ( Chỉ nên chạy tay thử từ đến 10 )

+ Hs : Chú ý nghe Hs ghi ví dụ

+ G : Giới thiệu sơ đồ khối

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

a/ Ví dụ 1(sgk)

b/ Ví dụ : Nếu cộng n số tự nhiên (n = 1, 2, 3, ), Cần cộng số tự nhiên để ta nhận tổng Tn nhỏ lớn 1000?

Giải :

Kí hiệu S tổng cần tìm ta có thuật tốn sau:

+ Bước S  0, n 

+ Bước Nếu S ≤ 1000, n  n + 1; ngược lại chuyển tới bước

+ Bước S  S + n quay lại bước

+ Bước In kết : S n số tự nhiên nhỏ nhất cho S > 1000 Kết thúc thuật toán

(40)

+ G : Nêu nhận xét

+ G : Có thể sử dụng lệnh lặp với số lần lặp chưa biết trước chương trình lập trình Sau ta xét câu lệnh ví dụ TP

+ G : Giới thiệu cú pháp lệnh

while … ….;

+ G : Xét ví dụ

Chúng ta biết rằng, n lớn

n nhỏ,

nhưng luôn lớn Với giá trị n

n <

0.005

n < 0.003 ?

+ Hs : Đọc ví dụ

(Gv đưa phim ví dụ 3) + Hs : quan sát

+ G : giới thiệu chương trình mẫu sgk ( Giáo viên in chương trình mẫu phim )

+ G : Chạy tay cho học sinh xem

+ G : Yêu cầu học sinh mở máy tính mở chương trình ví dụ ( giáo viên chuẩn bị chương trình mẫu đưa lên máy )

+ G : Cho học sinh chạy

* Nhận xét : Để viết chương trình dẫn máy tính thực hoạt động lặp ví dụ trên, ta sử dụng câu lệnh có dạng lặp với số lần chưa biết trước

2 Ví dụ lệnh lặp với số lần chưa biết trước (17’)

Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:

while <điều kiện> <câu lệnh>; đó:

- điều kiện thường phép so sánh; - câu lệnh câu lệnh đơn giản hay

câu lệnh ghép

Câu lệnh lặp thực sau: Bước : Kiểm tra điều kiện

Bước : Nếu điều kiện SAI, câu lệnh bị bỏ qua việc thực lệnh lặp kết thúc Nếu điều kiện đúng, thực câu lệnh quay lại bước

Ví dụ

Với giá trị n ( n>o )

n < 0.005

1

n

< 0.003? Chương trình tính số n nhỏ để

n nhỏ sai số cho trước :

uses crt;

(41)

chương trình máy

+ G : Yêu cầu hs thay điều kiện sai_so = 0.003 thành 0.002 ; 0.001 ; 0.005 ; + Hs : thực

n: integer;

const sai_so=0.003;

begin

clrscr; x:=1; n:=1;

while x>=sai_so dobegin n:=n+1; x:=1/n end; writeln('So n nho nhat de 1/n < ',sai_so:5:4, 'la ',n);

readln

end

c) Củng cố, luyện tập: 2’

- Học theo sách giáo khoa ghi - Lµm bµi tËp 1, 2, SGK trang71

- Đọc trớc Bài 8: lặp với số lần cha biÕt tríc

8B: 27/02/2010 Tiết 50:

Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC (Tiếp theo)

1 Mơc tiªu a)Kiến thức:

- Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước ngơn ngữ lập trình;

- Biết ngơn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để dẫn máy tính thực lặp lặp lại công việc đến điều kiện thoả mãn;

b) Kỹ năng:

- Hiểu hoạt động câu lệnh lặp với số lần chưa biết trước while do…

trong Pascal c) Thái độ:

- Nghiêm túc, cẩn thận

(42)

b) Học sinh: Sách, vởđọc trước nhà

3 Tiến trình dạy: a) Kiểm tra cũ: 15

Câu 1: Viết cú pháp câu lệnh lặp với số lần cha biết trớc giải thích? Câu 2: Làm tập trang 71

Đáp án:

Cõu 1: Vit ỳng cú pháp 5đ Câu 2: Làm tập 5đ

+ G : ta tiếp tục xét ví dụ mà chương trình có câu lệnh với số lần lặp chưa biết trước

+ G : Chạy tay cho học sinh xem + Hs : ý nghe

+ G : Cho học sinh chạy chương trình máy

+ Hs : thực

+ G : chạy chương trình này, ta nhận giá trị ntn?

+ Hs : Nếu chạy chương trình ta nhận n = 45 tổng lớn 1000 1034

Viết chương trình tính tổng

1 1

1

2 100

T     

+ G : Cho học sinh quan sát + Hs : quan sát

+ G : Chạy tay ( hai chương trình ) cho học sinh xem

+ Hs : ý nghe tự chạy tay lại + G : so sánh kết chạy hai chương trình

+ Hs : Kết

2 Ví dụ lệnh lặp với số lần chưa biết trước (tt) (17’)

Ví dụ Chương trình Pascal thể thuật tốn tính số n ví dụ 2:

var S,n: integer;

begin

S:=0; n:=1;

while S<=1000 do

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

writeln('So n nho nhat de tong > 1000 la ',n);

writeln('Tong dau tien > 1000 la ',S);

end

Ví dụ 5. Viết chương trình tính tổng

1 1

1

2 100

T     

Để viết chương trình tính tổng

1 1

1

2 100

T      ta sử dụng lệnh lặp với số lần lặp biết trước for… do:

T:=0;

for i:=1 to 100 T:=T+1/i; writeln(T);

Nếu sử dụng lệnh lặp while…do, đoạn chương trình cho kết quả:

(43)

+ G : Ví dụ cho thấy sử dụng câu lệnh while…do thay cho câu lệnh for…do

+ G : Giới thiệu phần

+ G : 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

+ Hs : Chú ý nghe

+ G : Chẳng hạn, chương trình lặp lại vô tận:

+ Hs : Chú ý nghe var a:integer;

begin

a:=5;

while a<6 writeln('A');

end.

+ G : Trong chương trình trên, giá trị biến a ln 5, điều kiện a<6 luôn nên lệnh writeln('A') thực

Do vậy, thực vòng lặp, điều kiện câu lệnh phải thay đổi để sớm hay muộn giá trị điều kiện chuyển từ sang sai Chỉ chương trình khơng "rơi" vào "vịng lặp vô tận"

i:=1;

while i<=100 begin T:=T+1/i; i:=i+1

end;

writeln(T);

* Nhận xét : Ví dụ cho thấy sử dụng câu lệnh while…do thay cho câu lệnh for…do.

3 Lặp vơ hạn lần – Lỗi lập trình cần tránh (8’)

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

- Häc bµi theo sách giáo khoa ghi - Làm tËp 4, SGK trang71

8B: 03/03/2010

(44)

a)Kiến thức: Viết chương trình Pascal sử dụng câu lệnh lặp với số lần biết trước. b) Kỹ năng: Rèn luyện khả đọc chương trình, tìm hiểu tác dụng kết hợp câu lệnh

c) Thái độ : Nghiêm túc

2 ChuÈn bÞ giáo viên học sinh: a) Giáo viên:giáo án, máy chiếu

b) Học sinh: Kiến thức cũ, sách,

3 Tiến trình dạy: a) KiĨm tra bµi cị:

GV: Đưa tập SGK gọi học sinh lên bảng trả lời

Bài 2: Câu lệnh lặp có tác dụng làm đơn giản giảm nhẹ cơng sức người viết chương trình

Bài 3: Chúng ta nói thực hoạt động lặp, chương trình kiểm tra điều kiện Với lệnh lặp

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

của Pascal, điều kiện cần phải kiểm tra giá trị biến đếm lớn giá trị cuối Nếu điều kiện không thoả mãn, câu lệnh tiếp tục thực hiện; ngược lại, chuyển sang câu lệnh

chương trình Bài 4: 12

Bài 5: Trừ d), tất câu lệnh không hợp lệ:

a) Giá trị đầu phải nhỏ giá trị cuối; b) Các giá trị đầu giá trị cuối phải số nguyên;

c) Thiếu dấu hai chấm gán giá trị đầu; d) Thừa dấu chấm phẩy thứ nhất, ta muốn lặp lại câu lệnh writeln('A') mười lần, ngược lại câu lệnh hợp lệ;

e) Biến x khai báo biến có liệu kiểu số thực khơng thể dùng để xác định giá trị đầu giá trị cuối câu lệnh lặp

Bài 6: Thuật tốn tính tổng

1.Cho vài ví dụ hoạt động thực lặp lại sống ngày (5’)

2.Hãy cho biết tác dụng câu lệnh lặp (5’)

3.(5’) Khi thực câu lệnh lặp, chương trình kiểm tra điều kiện Với lệnh lặp

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

ii. Pascal, điều kiện cần phải kiểm tra gì?

4.(5’) Chương trình Pascal sau thực gì?

var i: integer; begin

for i:=1 to 1000 do; end.

5.(10’) Các câu lệnh Pascal sau có hợp lệ khơng, sao?

a.for i:=100 to writeln('A');

b.for i:=1.5 to 10.5 do writeln('A'); c.for i=1 to 10

writeln('A');

(45)

A = ( 1) 1     n n Bước Gán A  0, i  Bước A  i i( 12)

 Bước i  i +

Bước Nếu i  n, quay lại bước Bước Ghi kết A kết thúc thuật toán

e.var x: real; begin for x:=1 to 10 writeln('A'); end 6. (10’) Hãy mơ tả thuật tốn để

tính tổng sau đây:

i. A =

1 1

1.32.43.5 n n( 1)

- Hiểu hoạt động lặp với số lần biết trước d) Hướng dẫn HS tự học nhà: 2’

- Về nhà xem lại học tiết sau học tiếp

8B: 04/03/2010

Tiết 52 Bµi tËp (T2) 1 Mơc tiªu

a)Kiến thức: - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước

b) Kỹ năng:- Rèn luyện khả đọc chương trình, tìm hiểu tác dụng kết hợp câu lệnh

c) Thái độ: Nghiêm túc

2 ChuÈn bÞ giáo viên học sinh: a) Giáo viên: giáo án, máy chiếu

b) Học sinh: Kiến thức cũ, sách,

Bài 2: Sự khác biệt:

a) Ccâu lệnh lặp với số lần lặp cho trước thị cho máy tính thực lệnh nhóm lệnh với số lần xác định từ trước, với câu lệnh lặp với số lần lặp chưa biết trước số lần lặp chưa xác định

1) Nêu vài ví dụ hoạt động lặp với số lần chưa biết trước!

(46)

trước

b)Lệnh lặp với số lần cho trước, điều kiện giá trị biến đếm có giá trị nguyên đạt giá trị lớn hay chưa, câu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quát nhiều, kiểm tra giá trị số thực

c) Lệnh lặp với số lần cho trước, câu lệnh thực lần, sau kiểm tra điều kiện Lệnh lặp với số lần chưa xác định trước, trước hết điều kiện kiểm tra Nếu điều kiện thoả mãn, câu lệnh thực Bài 3: a) Thuật tốn 1: 10 vịng lặp thực Khi kết thúc thuật tốn S = 5.0 Đoạn chương trình Pascal tương ứng:

S:=10; x:=0.5; while S>5.2 S:=S-x;

writeln(S);

b) Thuật tốn 2: Khơng vịng lặp thực từ đầu điều kiện không thỏa mãn nên bước bị bỏ qua S = 10 kết thúc thuật tốn Đoạn chương trình Pascal tương ứng:

S:=10; n:=0; while S<10 do begin n:=n+3; S:=S-n end;

writeln(S);

Bài 4: a) Chương trình thực vòng lặp b) Vòng lặp chương trình thực vơ tận sau câu lệnh n:=n+1; câu lệnh lặp kết thúc nên điều kiện S=0 luôn thỏa mãn

Bài 5: a) Thừa dấu hai chấm điều kiện; b) Thiếu dấu hai chấm câu lệnh gán; c) Thiếu từ khóa begin end trước sau lệnh

3) Hãy tìm hiểu thuật tốn sau cho biết thực thuật tốn, máy tính thực vòng lặp? Khi kết thúc, giá trị S bao nhiêu? Viết chương trình Pascal thể thuật tốn

a) Thuật tốn 1

Bước S  10, x  0.5

Bước Nếu S  5.2, chuyển tới bước

Bước S  S  x quay lại bước

Bước Thông báo S kết thúc thuật toán

b) Thuật toán 2

Bước S  10, n 

Bước Nếu S ≥ 10, chuyển tới bước

Bước n  n + 3, S  S  n quay lại bước

Bước Thơng báo S kết thúc thuật tốn

4) Hãy tìm hiểu đoạn lệnh sau cho biết với đoạn lệnh chương trình thực vòng lặp? Hãy rút nhận xét em

a) S:=0; n:=0; while S<=10 do begin n:=n+1; S:=S+n end;

b) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n; 5) Hãy lỗi câu lệnh sau

đây:

a)X:=10; while X:=10 X:=X+5;

(47)

n:=n+1; S:=S+n, vịng lặp trở thành vô tận

n:=n+1; S:=S+n; c) Củng cố, luyện tập: 3’

- Hiểu hoạt động lặp với số lần chưa biết trước - Biết sử dụng câu lệnh while

8B: 10/03/2010 TiÕt 53:

Bµi thùc hµnh 6: Sư dơng lƯnh While do…

- Vận dụng kiến thức vòng lặp while để viết chơng trình Biết lựa chọn câu lệnh lặp while For cho phù hợp với tình cụ thể

b) Kỹ năng:

- Rèn luyện kỹ khai báo sử dụng biến, kĩ đọc hiểu chơng trình Biết vai trị việc kết hợp cấu trúc điều khiển

c) Thái độ:

- Thái độ học tập nghiêm túc, tích cực làm tập thực hành

2 ChuÈn bÞ giáo viên học sinh: a) Giáo viên: Giáo án, phòng máy tính, sgk. b) Học sinh: Kiến thức cũ, sgk

3 Tiến trình dạy: a) KiĨm tra bµi cũ: 5

? Viết cú pháp câu lệnh lặp while For do?

* Đặt vấn đề: Chúng ta nghiên cứu lý thuyết vòng lặp While để biết vòng lặp chạy nh hơm vào tiết thực hành

b) Dạy nội dung bµi míi: 35’

Gọi Hs đọc toán nêu yêu cầu toán

? Làm để tính trung bình n số thực x1, x2, , xn

? D÷ liƯu đầu vào (Input) toán

? Dữ liệu đầu (Output) toán Gọi Hs nêu thuật toán

Gv nhận xét đa thuật toán

? Dựa vào việc thuật toán trên, theo em cần khai báo biến cho chơng trình toán

Gv kết luận đa chơng trình trình nh Sgk

? Tìm hiểu ý nghĩa câu lệnh

Gv mụ hoạt động chơng trình với n =

Yêu cầu Hs hoạt động nhóm để thực cơng việc sau:

+ Gâ vµ lu chơng trình với tên Tinh_TB

+ Dịch sửa lỗi có chạy với số liệu

D·y sè thùc x1, x2, , xn

Giá trị trung bình (x1+x2+ +xn) / n

Hs nêu thuật toán

Hs trả lời

Hs làm việc theo nhóm cử đại diện báo cáo

(48)

tuỳ ý đề kiểm tra kt qu nhn c

+ Thử viết lại chơng trình cách sử dụng câu lệnh For thay cho c©u lƯnh while

? Khi ta dùng câu lệnh For ta dùng câu lệnh While

kiện biết trớc sử dụng câu lệnh lặp For do, lặp với số lần cha biết trớc sử dụng câu lệnh lặp While

- Nhận xét tồn kiến thức học - Nhận xét đánh giá thực hành

d) Hướng dẫn HS tự học nhà: 2’ - Chuẩn bị cho tiết sau

- Ơn lại câu lệnh tập viết số chơng trình đơn giản

8B: 11/03/2010 TiÕt 54:

Bµi thùc hµnh 6: Sư dơng lƯnh While do…

- Vận dụng kiến thức vòng lặp while để viết chơng trình Biết lựa chọn câu lệnh lặp while For cho phù hợp với tình cụ thể

b) Kỹ năng:

- Rèn luyện kỹ khai báo sử dụng biến, kĩ đọc hiểu chơng trình Biết vai trị việc kết hợp cấu trúc điều khiển

c) Thái độ:

- Thái độ học tập nghiêm túc, tích cực làm tập thực hành

2 ChuÈn bÞ giáo viên học sinh: a) Giáo viên: Giáo án, phòng máy tính, sgk. b) Học sinh: Kiến thức cũ, sgk

3 Tiến trình dạy: a) KiĨm tra bµi cũ: 5

?Nêu ý nghĩa câu lệnh lặp while vµ For do? ?Em hiĨu thÕ số nguyên tố?

b) Dy ni dung mới: 35’ - Yêu cầu HS đọc Bài tập

- Giảng giải cho hs hiểu đợc ý tởng để giải toán

Thảo luận nhóm để làm việc sau: + Xác định Input v Output

+ Mô tả thuật toán

- Thực viết chơng trình máy tính

- Thực nghiêm túc yêu cầu gv - Chú ý nghe gi¶ng

- Tích cực hoạt đơng hồn thnh yờu cu ca gv

- Hoàn thiện chơng trình, có lỗi tiến hành chỉnh sửa

- Chạy chơng trình với liệu khác để kiểm tra

(49)

- Nhận xét toàn kiến thức học - Nhận xét đánh giá thực hành

- Ơn lại tồn kiến thức học

8B: 17/03/2010

Tiết 55

KIỂM TRA TIẾT

1 Mục tiêu kiểm tra:

a)Kiến thức - Hệ thống lại kiến thức học. b) Kỹ năng:

- Rèn luyện khả đọc chương trình, tìm hiểu tác dụng kết hợp câu lệnh

c) Thái độ: Nghiêm túc 2 Nội dung đề:

Đề số 1:

Phần I PHẦN TRẮC NGHIỆM: Khoanh trịn vào chữ đứng trước phương án đúng (3 điểm)

Câu 1: Trong ngôn ngữ Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp For có lệnh con?

A For i:=1 to 100 a:=a-1; B For i:=1 to 100 do; a:=a-1; C For i:=1 to 100 a:=a-1 D For i:=1; to 100 a:=a-1;

Câu 2: Trong lệnh lặp For…to…do Pascal, vòng lặp biến đếm thay đổi nào?

A +1 B -1

C Một giá trị D Một giá trị khác

Câu 3: Trong ngôn ngữ Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp While … ?

A x:=10; while x:=10 x:=x+5; C x=10; while x:=10 x:=x+5; B x:=10; while x:=10 x=x+5; D x:=10; while x=10 dox:=x+5; Câu 4: Sau thực xong đoạn chương trình sau:

j:=3; k:=2;

for i:=1 to do

j:=j+4; k:=k+j; giá trị biến k là?

A 16 B 21 C 19 D 20

Câu 5: Cho đoạn lệnh sau đây: x:= 2; tong:=4;

(50)

x:=tong;

Sau đoạn lệnh thực x nhận giá trị là?

A 13 B 14 C 15 D 16

Câu 6: Đoạn lệnh sau đây: so:=1;

While so<10 writeln(so); so:=so+1;

sẽ cho kết gì?

A In số từ đến B In số từ đến 10

C In vô hạn số 1, số dòng D Tất a, b, c d sai

Phần II PHẦN TỰ LUẬN (7đ):

Câu Hãy viết lại chương trình từ chương trình có lỗi sau: (3 điểm)

Program bang cuu chuong;

var N,i:integer;

begen

write('Nhap so N='); readln(N); writeln

writeln('Bang nhan ' N);

for i:=10 to do

writeln(N,' x ',i:2,' = ',Ni:3); readln

end

Câu 2: (4 điểm) Tìm hiểu đoạn chương trình Pascal sau đây Cho biết đoạn lệnh

chương trình thực vòng lặp, kết thúc giá trị biến S bao nhiêu? a) s:=1; n:=3;

while s<8 do

begin n:=n+1; s:=s+n end; b) s:=3; n:=1;

while s<15 do

begin n:=n+3; s:=s+n end;

Đề số 2:

I PHẦN TRẮC NGHIỆM: Khoanh trịn vào chữ đứng trước phương án đúng (3 điểm)

Câu 1: Trong ngôn ngữ Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp For có lệnh con?

A For i:=1; to 100 a:=a-1; B For i:=1 to 100 do; a:=a-1; C For i:=1 to 100 a:=a-1 D For i:=1 to 100 a:=a-1;

Câu 2: Trong lệnh lặp For…to…do Pascal, vòng lặp biến đếm thay đổi nào?

(51)

C Một giá trị D Một giá trị khác

Câu 3: Trong ngôn ngữ Pascal, mặt cú pháp câu lệnh sau với cấu trúc lặp While … ?

A x:=10; while x:=10 x:=x+5; C x=10; while x:=10 x:=x+5; B x:=10; while x:=10 x=x+5; D x:=10; while x=10 dox:=x+5; Câu 4: Sau thực xong đoạn chương trình sau:

j:=3; k:=2;

for i:=1 to do

j:=j+4; k:=k+j; giá trị biến k là?

A 16 B 21 C 19 D 20

Câu 5: Cho đoạn lệnh sau đây: x:= 2; tong:=4;

While tong<14 do tong:=tong+3; x:=tong;

Sau đoạn lệnh thực x nhận giá trị là?

A 13 B 14 C 15 D 16

Câu 6: Đoạn lệnh sau đây: so:=1;

While so<10 writeln(so); so:=so+1;

sẽ cho kết gì?

B In số từ đến C In số từ đến 10

D In vô hạn số 1, số dòng E Tất a, b, c d sai

Phần II PHẦN TỰ LUẬN (7đ): (Tương tự đề số 1) 3 Đáp án:

Đề số 1:

Phần I: Mỗi câu trả lời tính 0,5 điểm

Câu 1: A; Câu 2: A; Câu 3: D Câu 4: B Câu 5: D Câu 6: C Đề số 2:

Phần I: Mỗi câu trả lời tính 0,5 điểm

Câu 1: D; Câu 2: B; Câu 3: D Câu 4: B Câu 5: D Câu 6: C Phần II: Tự luận:

Câu 1.

Program bang_cuu_chuong;

var N,i:integer; begin

write('Nhap so N='); readln(N); writeln;

writeln('Bang nhan ', N); for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N*i:3); readln

end

3 đ (0,5 ñ) (0,5 ñ) (0,5 ñ) (0,5 ñ) (0,5 ñ) (0,5 ñ)

Câu 2. 4 đ

(52)

ĐK: s<8  1<8  Đúng  Câu lệnh thực hiện: n=n+1=3+1=4 s=s+n =1+4=5

5<8 Đúng  Thực tính: n=n+1=4+1=5, s=s+n=5+5=10 10<8 Sai  kết thúc vịng lặp

Đoạn lệnh máy tính thực vòng lặp, kết thúc s=10 b) s=3; n=1;

ĐK: s<15  3<15  Đúng  Câu lệnh thực hiện: n=n+3=1+3=4 s=s+n=3+4=7 7<15 Đúng  Thực tính: n=n+3=4+3=7, s=s+n=7+7=14 14<15 Đúng  Thực tính: n=n+3=7+3=10, s=s+n=14+10=24 24<15 Sai  kết thúc vòng lặp

Đoạn lệnh máy tính thực vịng lặp, kết thúc s=24

2 đ

4 ánh giá nh n xét sau ch m b i ki m tra:Đ ậ ấ ể

8B: 18/03/2010

Tiết 56

Lµm viƯc víi d·y sè 1 Mục tiêu :

a) Kiến thức

- Biết khái niệm mảng chiều

- Biết cách khai báo mảng, nhập, in, truy cập phần tử mảng b) Kỹ Năng

- Hiểu thuật tốn tìm số lớn nhất, nhỏ dãy số c) Thái độ: Nghiêm túc

2 Chuẩn bị giáo viên học sinh : a) Giáo viên: giáo án, máy chiếu b) Học sinh: Kiến thức cũ, sách, vở. 3 Tiến trình dạy:

a) KiĨm tra bµi cị:

Hoạt đ ộng 1: 20’

GV: Đưa ví dụ SGK để giới thiệu cho học sinh cách

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

(53)

sử dụng biến mảng

HS: Chú ý lắng nghe

GV: Phân tích tốn để học sinh hiểu rõ vấn đề

GV: để giải vấn đề cần có liệu gì:

HS: Biến mảng

GV: Việc xếp thứ tự nào?

HS: Bằng cách gán gán cho phần tử số

GV: Giá trị mảng nào?

HS: Là biến nguyên Hoạt đ ộng 2: 20’

GV: Đưa ví dụ biến mảng

HS: Chú ý ví dụ

GV: Đưa cách khai bái biến mảng Pascal

báo nhập liệu dạng sau đây, câu lệnh tương ứng với điểm học sinh:

Var Diem_1, Diem_2, Diem_3,… : real;

Read(Diem_1); Read(Diem_2), Read(Diem_3);…

Nếu số học sinh lớp nhiều đoạn khai báo đọc liệu chương trình dài Giả sử lưu nhiều liệu có liên quan với (như Diem_1, Diem_2, Diem_3, trên) biến đánh "số thứ tự" cho giá trị đó, ta sử dụng quy luật tăng hay giảm "số thứ tự" vài câu lệnh lặp để xử lí liệu cách đơn giản hơn, chẳng hạn:

- Với i = đến 50: nhập Diem_i;

- Với i = đến 50: so sánh Max với Diem_i;

Để giúp giải vấn đề trên, kiểu liệu gọi kiểu 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ử Việc thứ tự thực cách gán cho phần tử số:

Hình 40

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

Giá trị biến mảng mảng, tức dãy số (số nguyên, số thực) có thứ tự, số giá trị biến thành phần tương ứng

2 Ví dụ biến mảng

Để làm việc với dãy số nguyên hay số thực, phải khai báo biến mảng

Ví dụ, cách khai báo đơn giản biến mảng ngôn ngữ Pascal sau:

var Chieucao: array[1 50] of real;

var Tuoi: array[21 80] of integer;

(54)

HS: Chú ý ghi có kiểu số thực Với câu lệnh khai báo thứ hai, ta có biến Tuoi gồm 60 phần tử (từ 21 đến 80) có kiểu số nguyên

Cách khai báo mảng Pascal sau: Tên mảng : array[<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu>

trong số đầu số cuối hai số nguyên biểu thức nguyên thoả mãn số đầu ≤ số cuối kiểu liệu integer real. c) Củng cố, luyện tập: 3’

- Khái niệm mảng chiều

- Cách khai báo mảng, nhập, in, truy cập phần tử mảng d) Hướng dẫn HS tự học nhà: 2’

(55)

Tiết 57

Bài 9 : lµm viƯc víi d·y sè (Tiếp) 1 Mục tiêu :

a) Kiến thức

- Biết khái niệm mảng chiều

- Biết cách khai báo mảng, nhập, in, truy cập phần tử mảng b) Kỹ Năng : - Hiểu thuật toán tìm số lớn nhất, nhỏ dãy số. c) Thái độ: Nghiêm túc

? Em nêu cách khai báo biến mảng Pascal b) Dạy nội dung bµi míi: 37’

Hoạt đ ộng 1: 20’ GV: Đưa ví dụ HS: Đọc hiểu ví dụ

GV: Hướng dẫn học sinh cách sử dụng biến mảng HS: Chú ý

GV: Cách khai báo biến có ích lợi gì?

HS: Tiết kiệm thời gian cơng sức viết chương trình

Ví dụ Tiếp tục với ví dụ 1, thay khai báo biến Diem_1, Diem_2, Diem_3, để lưu điểm số học sinh, ta khai báo biến mảng Diem sau:

var Diem: array[1 50] of real;

Cách khai báo sử dụng biến mảng có lợi gì?

Trước hết, thay nhiều câu lệnh nhập in liệu hình câu lệnh lặp Chẳng hạn, ta viết

For i:=1 to 50 readln(Diem[i]); để nhập điểm học sinh

Để so sánh điểm học sinh với giá trị đó, ta cần câu lệnh lặp, chẳng hạn

For i:=1 to 50

if Diem[i]>8.0 then writeln('Gioi');

Điều giúp tiết kiệm nhiều thời gian cơng sức viết chương trình

Hơn nữa, học sinh có nhiều điểm theo mơn học: điểm Tốn, điểm Văn, điểm Lí, Để xử lí đồng thời loại điểm này, ta khai báo nhiều biến mảng:

var DiemToan: array[1 50] of real;

var DiemVan: array[1 50] of real;

var DiemLi: array[1 50] of real; hay

var DiemToan, DiemVan, DiemLi: array[1 50] of

(56)

Hoạt đ ộng 2: 17’ GV: Đưa ví dụ HS: Đọc hiểu ví dụ

GV: Hướng dẫn học sinh cách sử dụng biến mảng HS: Chú ý

- Ghi thực chương trình

Khi đó, ta xử lí điểm thi học sinh cụ thể

Ví dụ cho thấy rằng, gán giá trị, đọc giá trị tính tốn với giá trị phần tử biến mảng thông qua số tương ứng phần tử Chẳng hạn, câu lệnh Diem[i] phần tử thứ i biến mảng Diem

Ta gán giá trị cho phần tử mảng câu lệnh gán:

A[1]:=5; A[2]:=8;

hoặc nhập liệu từ bàn phím câu lệnh lặp:

for i := 1 to 5 readln(a[i]);

3 Tìm giá trị lớn nhỏ dãy số Ví dụ 3. (SGK) Phần khai báo chương trình sau:

program MaxMin;

uses crt;

Var

i, n, Max, Min: integer; A: array[1 100] of integer;

Phần thân chương trình tương tự đây:

Begin

clrscr;

write('Hay nhap dai cua day so, N = '); readln(n);

writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do

Begin

write('a[',i,']='); readln(a[i]); End;

Max:=a[1]; Min:=a[1]; for i:=2 to n do

begin if Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] end;

write('So lon nhat la Max = ',Max); write('; So nho nhat la Min = ',Min); readln

End c) Củng cố, luyện tập: 3’

- Khái niệm mảng chiều

- Cách khai báo mảng, nhập, in, truy cập phần tử mảng d) Hướng dẫn HS tự học nhà: 2’

(57)

Ngày soạn: Ngày dạy:

Tiết 58 bµi tËp 1 Mục tiêu :

a) Kiến thức

- Viết chương trình Pascal sử dụng câu lệnh biến mảng

b) Kỹ Năng : - Rèn luyện khả đọc chương trình, tìm hiểu tác dụng kết hợp câu lệnh

c) Thái độ: Nghiêm túc

a) KiĨm tra bµi cị:

HOẠT ĐỘNG CỦA THẦY VÀ TRÒ NỘI DUNG

1) (8p) Lợi ích việc sử dụng biến mảng rút gọn việc viết chương trình, sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngoài cịn lưu trữ xử lí nhiều liệu có nội dung liên quan đến cách hiệu

2) (8p) Đáp án a) Sai Phải thay dấu phẩy hai dấu chấm; b) c) Sai, giá trị nhỏ lớn số mảng phải số nguyên; d) Sai, giá trị đâu số mảng phải nhỏ số cuối; e) Đúng

3) (8p) Đúng

1) Hãy nêu lợi ích việc sử dụng biến mảng chương trình

2) Các khai báo biến mảng sau Pascal hay sai?

var X: Array[10,13] Of Integer;

var X: Array[5 10.5] Of Real;

var X: Array[3.4 4.8] Of Integer;

var X: Array[10 1] Of Integer;

(58)

4) (8p) Không Giá trị nhỏ lớn số mảng phải xác định phần khai báo chương trình

5) (8p) Học sinh thực hành máy Chương trình sau:

var N, i: integer;

A: array[1 100] of real;

begin

write('Nhap so phan tu cua mang, n= ',n);

for i:=1 to n do

write('Nhap gia tri

',i,'cua mang, a[',i,']= ');

end.

3) "Có thể xem biến mảng biến tạo từ nhiều biến có kiểu, tên nhất" Phát biểu hay sai?

4) Câu lệnh khai báo biến mảng sau máy tính có thực không?

var N: integer;

A: array[1 N] of real; 5) Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím phần tử dãy số Độ dài dãy nhập từ bàn phím

- Hiểu hoạt động lặp với số lần biết trước d) Hướng dẫn HS tự học nhà: 2’

- Về nhà xem lại học tiết sau chỳng ta hc tip

(59)

Ngày dạy : 8A : 8B :

Tiết 59

Bài thực hành 7: xử lí dÃy số chơng tr×nh

1 - MỤC TIÊU a Kiến thức

- Làm quen với việc khai báo sử dụng biến mảng b Kỹ Năng

- Ôn luyện cách sử dụng câu lệnh lặp for…do

- Củng cố kĩ đọc, hiểu chỉnh sửa chương trình c Thái độ: Nghiêm túc

2 CHUẨN BỊ

a Giáo viên: giáo án, máy chiếu b Học sinh: Kiến thức cũ, sách, vở. 3 - TIẾN TRÌNH LÊN LỚP

1 Hãy cho số ví dụ lặp với số lần chưa biết trước b) Dạy nội dung bµi míi: 37’

HOẠT ĐỘNG CỦA THẦY VÀ TRỊ

NỘI DUNG GV: Đưa tập SGK

? Gọi học sinh nêu ý tưởng - GV hướng dẫn

HS: Làm tập

Bài Viết chương trình nhập điểm bạn lớp Sau in hình số bạn đạt kết học tập loại giỏi, khá, trung bình (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình 5.0 xếp loại kém)

a) Xem lại ví dụ ví dụ 3, cách sử dụng khai báo biến mảng Pascal

b) Liệt kê biến dự định sử dụng chương trình Tìm hiểu phần khai báo tìm hiểu tác dụng biến:

program Phanloai; uses crt;

Var

i, n, Gioi, Kha, Trungbinh, Kem: integer;

(60)

Begin clrscr;

write(‘Nhap so cac ban lop, n = ‘); readln(n);

writeln(‘Nhap diem:’);

For i:=1 to n Begin write(i,’ ‘); readln(a[i]); End;

Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;

for i:=1 to n do begin

if a[i]>=8.0 then Gioi:=Gioi+1;

if a[i]<5 then Kem:=Kem+1;

if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;

if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1 end;

writeln(‘Ket qua hoc tap:’); writeln(Gioi,’ ban hoc gioi’); writeln(Kha,’ ban hoc kha’);

writeln(Trungbinh,’ ban hoc trung binh’);

writeln(Kem,’ ban hoc kem’); readln

End.

d) Gõ tiếp phần chương trình vào máy tính sau phần khai báo Dịch, chạy chương trình

c) Củng cố, luyện tập: 3’ - Cách sử dụng biến mảng

- Cách kết hợp với lệnh lặp for…do d) Hướng dẫn HS tự học nhà: 2’

- Về nhà xem lại học tiết sau thực hành tip

(61)

Ngày dạy : 8A : 8B :

Tiết 60

Bµi thùc hµnh 7: xử lí dÃy số chơng trình (T)

1 Mục tiêu : a) Kiến thức

- Làm quen với việc khai báo sử dụng biến mảng b) Kỹ Năng :

- Ôn luyện cách sử dụng câu lệnh lặp for…do

- Củng cố kĩ đọc, hiểu chỉnh sửa chương trình c) Thái độ: Nghiêm túc

1 Hãy cho số ví dụ lặp với số lần chưa biết trước b) Dạy nội dung bµi míi: 38’

HOẠT ĐỘNG CỦA THẦY VÀ TRÒ

NỘI DUNG GV: Đưa tập SGK

? Gọi học sinh nêu ý tưởng - GV hướng dẫn

HS: Làm tập

Bài Bổ sung chỉnh sửa chương trình để nhập hai loại điểm Tốn Ngữ văn bạn, sau in hình điểm trung bình bạn lớp (theo cơng thức điểm trung bình = (điểm Tốn + điểm Ngữ văn)/2), điểm trung bình lớp theo mơn Tốn Ngữ văn a) Tìm hiểu ý nghĩa câu lệnh sau đây: Phần khai báo:

Var

i, n: integer;

TbToan, TbVan: real;

DiemToan, DiemVan: array[1 100] of real;

Phần thân chương trình: begin

writeln('Diem trung binh:'); for i:=1 to n do

writeln(i,' ',(DiemToan[i] +DiemVan[i])/2:3:1);

(62)

begin TbToan:=TbToan+DiemToan[i]; TbVan:=TbVan+DiemVan[i] end;

TbToan:=TbToan/n; TbVan:=TbVan/n; writeln('Diem trung binh mon Toan: ',TbToan:3:2);

writeln('Diem trung binh mon Van: ',TbVan:3:2);

end.

b) Bổ sung câu lệnh vào vị trí thích hợp chương trình Thêm lệnh cần thiết, dịch chạy chương trình với số liệu thử

c) Củng cố, luyện tập: 3’ - Cách sử dụng biến mảng

- Cách kết hợp với lệnh lặp for…do d) Hướng dẫn HS tự học nhà: 2’

- Về nhà xem lại học tiết sau thực hành tiếp

Ngày soạn:

Ngày dạy : 8A : 8B :

Tiết 61

QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA (t1) 1 Mục tiêu :

a) Kiến thức

- HS biêt khám phá, hình khơng gian như: Thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình

b) Kỹ Năng : - HS thực kỹ thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình

c) Thái độ: Nghiêm túc, cẩn thận.

2 Chuẩn bị giáo viên học sinh : a) Giáo viên: tài liệu, giáo án

b) Học sinh: Xem tríc näi dung bµi häc, dơng häc tËp

(63)

Hoạt động 1: (20p)

1 Giíi thiƯu phÇn mỊm

Yenka phần mềm nhỏ, đơn giản có ý nghĩa Phần mềm cho phép em làm quen với hình khối khơng gian đơn giản hình chóp, hình nón, hình trụ Khơng tạo hình này, em cịn tương tác với chúng: thay đổi kích thước, màu sắc dịch chuyển xếp hình khơng gian Từ vài đối tượng hình khơng gian em sáng tạo khối hình hồn chỉnh, có ý nghĩa cơng trình xây dựng, kiến trúc theo ý muốn

Phần mềm giúp em hiểu rõ học hình khơng gian chương trình mơn Tốn bậc THCS

2 Giới thiệu hình làm việc chính a khởi động phÇn mỊm:

GV: Giíi thiƯu: Sau cài đặt em nhìn thấy

biểu tượng phần mềm có dạng sau hình

Để khởi động:

Nháy đúp vào biểu tượng để chạy phần mềm Em thấy xuất cửa sổ thông tin sau đây:

HS: Chú ý lắng nghe va ghi bài:

1 Gii thiệu :

- Yenka phần mềm nhánh của công ty phần mềm Crocodile

nổi tiếng.

- Chức phần mềm là giúp học sinh thiết kế mơ hình hình khối kiến trúc khơng gian dựa hình khơng gian c/ nhu hình trụ, lăng trụ, hình

chóp, hình hộp

2 Giới thiệu hình làm việc chính

(64)

b Màn hình chính:

c Thốt khỏi phần mềm:

Mn tho¸t khái phần mềm, nháy nút close công cụ

b Màn hình chính:

c.Thốt khỏi phần mềm:

Muốn thoát khỏi phần mềm, nháy nút close c«ng

Gv Hệ thống lại kiến thực trọng tâm d) Hướng dẫn HS tự học nhà: 2’

- Về nhà đọc tiếp “Quan sát hình khơng gian phần mềm YenK” - Về nhà xem lại nội dung vừa học, xem tiếp học

Ngµy soạn:

Ngày dạy : 8A : 8B :

Tiết 62

QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA (t2) 1 Mục tiêu :

a) Kiến thức

*) Tiếp tục hớng dẫn để:

- HS biêt khám phá, hình khơng gian như: Thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình

b) Kỹ Năng : - HS thực kỹ thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình

c) Thái độ: Nghiêm túc, cẩn thận.

(65)

3 Tiến trình dạy: a) KiĨm tra bµi cò: 3’

- Em giới thiệu lại phần mềm YenK? Mở đóng phần mềm máy tính?

Hoaùt ủoọng GV – HS Noọi dung Hoạt động 1: (18p)

3 Tạo hình không gian.

*) Xoay mô hình không gian 3D - Nháy vào biểu tượng công cụ chức Khi trỏ trở thành dạng

- Đưa trỏ chuột lên khung hình,

3 Tạo hình không gian. a Tạo mô hình

Vào hộp hội thoại sau:

Chọn hình kéo thả đối tượng vào khu vực tạo đối tượng

 Xoay mơ hình khơng gian 3D - Nháy vào biểu tượng xoay

- Đưa trỏ chuột lên mô hình Hình trụ

hình chóp Hình lăng trụ Hình

(66)

nhấn giữ kéo rê chuột hình em thấy khung mơ hình quay không gian 3D Lệnh hết tác dụng em thả tay chuột

 Phóng to, thu nhỏ:

 di chuyển khung mô hình:

b/ lệnh tạo mới, lưu, mở tệp mơ hình:

c/ Xóa đối tượng:

- Nhấp chuột vào mơ hình cần xóa - Ctrl + A Delete

Gv Hệ thống lại kiến thực trọng tâm d) Hướng dẫn HS tự học nhà: 2’

- Về nhà đọc tiếp “Quan sát hình khơng gian phần mềm YenK” - Về nhà xem lại nội dung va hc, xem tip bi hc

Ngày soạn:

Ngày dạy : 8A : 8B :

(67)

víi phÇn mỊm yenka (T3) 1 Mục tiêu :

a) Kiến thức

- HS biết khám phá, điều khiển hình khơng gian như: thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình

b) Kỹ Năng :

- HS thực kỉ thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình cụ thể

c) Thái độ:

- HS nghiêm túc học tập nghiên cứu häc

3 Tiến trình dạy: a) KiĨm tra bµi cị: 8’

GV: Cho hinh vÏ lên bảng phụ HS: Vẽ theo yêu cầu

b) Dạy nội dung bµi míi: 15’

TG Hoạt động thầy trị Nội dung

15 GV: Giíi thiệu HS: nghe ghi

4 Khám phá, điều khiển hình

c) Thay i mu cho hình *) Các bớc thay đổi màu Để tơ màu ta dùng công cụ

Khi nhày nút công cụ ta có danh sách màu đổ xuống:

(68)

TG Hoạt động thầy trị Nội dung

Các tính hình thay đổi thơng qua hộp thoại tính chất đối tợng ta làm nh sau:

d) Thay đổi tính chất hình

Nháy đúp lên đối tợng, hộp thoại mô tả thông tin xuất

Chúng ta thay đổi tham số quan trọng hình chiều cao (height) độ dại cạnh đáy (base edge) cách gõ trực tiếp vào ô nháy chuột vào để tăng hay giảm đơn vị

GV: Cho häc sinh thực hành vẽ hình, sáng tạo theo ý thích

Đọc mục lại

ễn li cỏc kiến thức kỳ II để chuẩn bị kiểm tra tit phn thc hnh

Ngày soạn:

Ngày d¹y : 8A : 8B :

TiÕt 64: quan sát hình không gian với phần mềm yenka (T4)

b) Kỹ Năng :

(69)

- HS nghiêm túc học tập nghiên cứu bµi häc

GV: Cho hinh vẽ lên bảng phụ HS: Vẽ theo yêu cầu

? Nêu bớc thay đổi màu vẽ, thông số hình vẽ

TG Hoạt động thầy

trß Nội dung

15 GV: Một chức hay phần mềm cho phép ta qua sát cách tạo không gian từ hình phẳng Phần mềm cho phép quan sát thực hai trình ngợc lại:

- Cho hỡnh phng cn gp li để thành hình khơng gian

- Hình khơng gian cần mở để trở thành hình phẳng

4 Kh¸m phá, điều khiển hình (tiếp)

e) Gp giấy thành hình khơng gian *) Gấp hình phẳng để tạo thành hình khơng gian

Sư dơng c¸c c«ng ,

B

íc 1: Chän hc

trong hộp thoại kéo thả đối tợng vào hình

B

ớc Kéo thả chuột để thực thao tác gấp hình phẳng thành hình khơng gian tơng ứng

*) Më hình không gian thành hình phẳng SGK 119 – 120)

GV: Cho học sinh thực hành vẽ hình, sáng tạo theo ý thích HS: Thực hành thao tác gấp më h×nh

d) Hướng dẫn HS tự học nh: 2

Đọc mục lại

ễn lại kiến thức kỳ II để chuẩn bị kim tra tit phn thc hnh

Ngày soạn:

Ngày dạy : 8A : 8B :

(70)

víi phÇn mỊm yenka (T5) 1 Mục tiêu :

a) Kiến thức

b) Kỹ Năng :

c) Thái độ:

- HS nghiêm túc học tập nghiên cứu bµi häc

3 Tiến trình dạy: a) KiĨm tra bµi cị: 8

Nêu bớc gấp hình phẳng thành hình không gian? Thực hành gấp máy

b) Dy ni dung bµi míi: 15’

TG Hoạt động thầy

trß Néi dung

15 GV: Giới thiệu: Đối với mặt hình khơng gian, ta thay đổi màu, ta thay đổi đợc kiểu mẫu thể ta lam bớc sau: HS: nghe ghi GV thực hành mẫu học sinh quan sát thực hành theo

5 Một số chức nâng cao a) thay đổi mẫu thể hình Bớc 1: Nháy đúp chuột để mở hộp thoại tính chất hình

Bớc Chọn lệnh thay đổi kiểu bề mặt

surface appearance >

Bíc Trong hép tho¹i tiÕp theo, chän Use material chọn mẫu danh sách Material phía dới

b) Quay hình không gian

Trong hộp thoại tính chất hình, em quay hình theo cách khác không gian:

- Khung Râttion có lệnh cho phép cho phép quay hình theocác c¸ch kh¸c nhau:

+ Quay theo trơc ngang + Quay theo trôc däc

+ Quay theo trục thẳng đứng + Trở lại vị trí ban đầu

GV: Cho häc sinh thực hành vẽ hình, sáng tạo theo ý thích HS: Thực hành Vẽ hình quay hình, tô màu hình

Đọc mục lại

(71)

Ngày soạn:

Ngày dạy : 8A : 8B :

Tiết 66: quan sát hình không gian víi phÇn mỊm yenka (T6)

b) Kỹ Năng :

c) Thái độ:

- HS nghiªm túc học tập nghiên cứu học

? Nờu cỏc bớc thay đổi màu thể hình ? Quay hình khơng gian

b) Dạy nội dung bµi míi: 43

GV: Cho học sinh thực hành tổng hợp mục: - Cách tạo mô hình

- Xoay mô hình không gian 3D - Phóng to, thu nhá

- Di chuyển khung mơ hình - Xố đối tợng

HS: Thùc hµnh

c) Củng cố, luyện tập: (Kết hợp thực hành) d) Hướng dẫn HS tự học nhà: 2’

§äc mục lại

(72)

Ngày soạn:

Ngày dạy : 8A : 8B :

TiÕt 67: kiĨm tra thùc hµnh tiÕt

1 Mục tiêu :

a) Kiến thức :Häc sinh thùc kiểm tra thực hành máy tính

b) Kỹ Năng : KiÕm thøc chđ u thc bµi häc cuèi cïng

c) Thỏi độ: ý thức làm bảo vệ máy tính để sử dụng lâu di

*/ Chuẩn bị:

GV- Sách giáo khoa, giáo án, tài liệu tin học có liên quan HS - Đọc tài liệu nhà trớc

2 kim tra:

Câu 1: Lập trình tính tổng: A= 1+2+3+ +n

ở n số tự nhiên đợc nhập từ bàn phím (viết lệnh while do)

Câu : Bạn hÃy tính tổng

(viÕt b»ng lÖnh for do)

( u ýL : Mỗi câu đợc ghi lại thành File Mydocments có tên LOP8A.PAS Và LOP8B.PAS)

3 đáp án + thang điểm hớng dẫn chấm.

C©u :

Làm cho im :

Câu Nội dung Điểm

1

Program B1 ; Uses CRT; Var

i, n: integer; tong: real;

1,5

Begin Clrscr;

write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1;

1,5

while i<= n Begin

tong:= tong+ i; i: = i+1;

End;

1

writeln(' Tong can tim la: ', tong:12:6); Readln;

End

2 Làm cho điểm

1,5

Program B2; Var i: byte; s: real; Begin

s:=0; 1,5

(73)

Writeln(' 1+ 1/2 + 1/3 + + 1/20 = ', s: 14:10);

Readln; End

4.Nhận xét, đánh giỏ sau chm bi kim tra:

Ngày soạn:

Ngày dạy : 8A : 8B :

TiÕt 68: «n tËp

 Củng cố lại toàn kiến thức đợc học từ đến phần mềm học tập học kỳ

 Thực làm trắc nghiệm Vận dụng vào để viết đợc chơng trình đơn giản

b) K Nng : Có kỹ thành thạo thực máy tính viết chơng trình máy tính

c) Thái độ: Nghiêm túc, cẩn thận. 2 Chuẩn bị giáo viên học sinh : a) Giáo viên: tài liệu, giáo án

- Kiểm tra chuẩn bị cđa häc sinh

Hoạt động giáo viên Hoạt động học sinh Giáo viên cho học sinh ôn lại lý thuyết

Theo s¸ch gi¸o khoa (Häc sinh vỊ nhà tự ôn)

Học sinh thực theo yêu cầu giáo viên

Ôn tập vận dụng:

Khoanh tròn chữ đứng trước kết đúng Câu 1: Phát biểu sau ?

(74)

B Chỉ ngơn ngữ lập trình Pascal có câu lệnh lặp để thể cấu trúc lặp

C Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh while…do

D Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp chưa biết trước câu lệnh For…do

Câu 2: Lệnh lặp sau đúng?

A For <biến đếm>= <giá trị đầu> to <giá trị cí> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cí> <câu lệnh>; C For <biến đếm>:= <giá trị cí> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 3: Câu lệnh pascal sau hợp lệ?

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 writeln(‘A’); Câu 4: Vòng lặp while vòng lặp:

A) Biết trước số lần lặp B) Chưa biết trước số lần lặp

C.) Biết trước số lần lặp giới hạn <=100 D) Biết trước số lần lặp giới hạn >=100

Câu 5: Câu lệnh lặp while…do có dạng là:

A) While <điều kiện> do; <câu lệnh>; B) While <điều kiện> <câu lệnh> do;

C) While <câu lệnh> <điều kiện>; D) While <điều kiện> <câu leänh>;

Câu 6: Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0;

for i:=1 to s := s+i; writeln(s);

Kết in lên hình s :

A.11 B 55 C 101 D.15

Câu 7: Trong chương trình pascal sau đây: Var x : integer ;

Begin

X:= ;

(75)

End

X có giá trị

a) b) c) 15 d)10

Câu 8: Trong chương trình pascal sau đây: program hcn;

var a, b :integer; s,cv :real ; begin

a:= 10; b:= 5; s:= a*b ;

cv:= (a +b ) * ;

writeln(‘dien tich hcn la:’ , s ); writeln( ‘chu vi hcn la : ‘ , cv ) ; readln;

end

Biến s cv có giá trị mấy:

a/ s = 10 ; cv = ; b/ s= 30 ; cv = 50 ;

c/ s = 50 ; cv = 40 ; d/ s = 50 ; cv = 30 ; c) Củng cố, luyện tp: 3

- Giáo viên hệ thống lại toàn nội dung học - Yêu cầu học sinh nhắc lại

d) Hng dn HS t hc nhà: 1’

- Học theo sách giáo khoa ghi, Ơn lại kiến thức học luyện viết, làm làm lại nhiều ln

- Học kĩ lí thuyết, viết chơng trình tính tông 100 số tự nhiên, N số tự nhiên

- Làm tập lại,

Ngày soạn:

Ngày dạy : 8A : 8B :

TiÕt 69: «n tËp

 Củng cố lại toàn kiến thức đợc học từ đến phần mềm học tập học kỳ

 Thực làm trắc nghiệm Vận dụng vào để viết đợc chơng trình n gin

b) K Nng : Có kỹ thành thạo thực máy tính viết chơng trình máy tính

(76)

2 Chun b giáo viên học sinh : a) Giáo viên:

- Sách giáo khoa, giáo án, tài liệu tin học có liên quan

b) Hc sinh: - Đọc tµi liƯu ë nhµ tríc

- KiĨm tra sù chn bÞ cđa häc sinh

Hoạt động giáo viên Hoạt động học sinh Ôn tập củng cố kiến thức:

Câu 9: Sau thực đoạn chương trình j:= 0; for i:= to do j:=j+2; giá trị in hình là?

a) b) c) d)10

Câu 10: Để tính tổng S=1+3 + + … + n; em chọn đoạn lệnh: a) for i:=1 to n

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n

if ( i mod 2) < > then S:=S + i;

b) for i:=1 to n

if ( i mod 2)=0 then S:=S + i Else S:= S + I;

d) for i:=1 to n

if ( i mod 2)=0 then S:=S + i; Câu 11: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh:

a) for i:=1 to n

if ( i mod 2)=0 then S:=S + 1/i;

c) for i:=1 to n

if ( i mod 2) < > then S:=S + i;

b) for i:=1 to n

if ( i mod 2)=0 then S:=S – 1/i Else S:= S + 1/i;

d) for i:=1 to n

if ( i mod 2)=0 then S:=S +1/ i Else S:=S-1/i;

Câu 12: Để tính tổng S=1+1/3 + 1/5 + … +1/ n; em chọn đoạn lệnh: a) for i:=1 to n

if ( i mod 2)=1 then S:=S + 1/i; c) for i:=1 to n doif ( i mod 2) =0 then S:=S + 1/i;

b) for i:=1 to n

if ( i mod 2)=0 then S:=S + 1/i Else S:= S + 1/;

d) for i:=1 to n

if ( i mod 2)=0 then S:=S + i; Câu 13: Để đếm có số lẻ nhỏ hay n ; em chọn đoạn lệnh: a) for i:=1 to n

if ( i mod 2)< >0 then S:=S + 1; c) for i:=1 to n doif ( i mod 2) =0 then S:=S + 1; b) for i:=1 to n

(77)

a) s:=0; i:=0; While i<=n

S:=S + 1;

a) s:=0; i:=0; While i<=n

If (I mod 2)= Then S:=S + i; b) s:=0; i:=0;

While i<=n begin

S:=S + i; I:=i+1; End;

d) s:=0; i:=0; While i<=n begin

if (i mod2)=1 Then S:=S + i; Else i:=i+1;

End; Câu 15: Câu lệnh sau lặp vô hạn lần a) s:=5; i:=0;

While i<=s s:=s + 1;

a) s:=5; i:=1; While i<=s

i:=i + 1; b) s:=5; i:=1;

While i> s i:=i + 1;

d) s:=0; i:=0; While i<=n begin

if (i mod2)=1 Then S:=S + i; Else i:=i+1;

End; Câu 16: Chọn khai báo hơp lệ

a) Var a,b: array[1 n] of real; c) Var a,b: array[1:n] of real; b) Var a,b: array[1 100] of real; d) Var a,b: array[1…n] of real; Câu 27: Chọn khai báo hơp leä

a) Const n=5;

Var a,b: array[1 n] of real;

c) Var n: real;

Var a,b: array[1:n] of real; b) Var a,b: array[100 1] of real; d) Var a,b: array[1 10] of real; Caâu 17: Chọn khai báo hơp lệ

a) Const n=5;

Var a,b: array[1 n] of integer;

c) Var n: real;

Var a,b: array[1:n] of real;

b) Var a,b: array[100 1] of integer; d) Var a,b: array[1 10] of integer; Câu 18: Lần lượt thực đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị t

a) t=1 b) t=3 c) t=2 d) t=6 c) Cng c, luyn tp: 3

- Giáo viên hệ thống lại toàn nội dung học - Yêu cầu học sinh nhắc lại

d) Hng dn HS tự học nhà: 1’

(78)

- Học kĩ lí thuyết, viết chơng trình tính tông 100 số tự nhiên, N số tự nhiên

- Làm tập cịn lại ơn lại toàn kiến thức để sau kiểm tra hc k

-o0o -Ngày soạn:

Ngày dạy : 8A : 8B :

Tiết 70: kiÓm tra häc kú 2

1 Mục tiêu

a) Kiến thức b) Kỹ Năng : c) Thái : */ Chuẩn bị:

GV - Sách giáo khoa, giáo án, tài liệu tin học có liên quan HS - Đọc tài liệu nhà trớc

2 Đề ể ki m tra:

Hä tên: ……… Lớp: 8…

ĐỀ KIỂM TRA HỌC KỲ NĂM HỌC 2008 – 2009

Môn: Tin học (Thời gian 45 phút) A/ LÝ THUYẾT:

I/ Trắc nghiệm khách quan:

Khoanh trịn chữ đứng trước kết Câu 1: Lệnh lặp sau đúng?

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

Câu 2: Vòng lặp while vòng lặp:

A) Chưa biết trước số lần lặp B) Biết trước số lần lặp

C.) Biết trước số lần lặp giới hạn <=100 D) Biết trước số lần lặp giới hạn >=100

Câu 3: Câu lệnh lặp while…do có dạng là:

A) While <điều kiện> do; <câu lệnh>; B) While <điều kiện> <câu lệnh> do;

C) While <câu lệnh> <điều kiện>; D) While <điều kiện> <câu lệnh>;

Câu 4: Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0;

for i:=1 to s := s+2; writeln(s);

(79)

A.11 B 55 C 12 D.13 Câu 5: Lần lượt thực đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị t

A) t=1 B) t=2 C) t=3 D) t=6 Câu 6: Câu lệnh pascal sau hợp lệ?

B) For i:= to 10 writeln(‘A’); B) For i:=1.5 to 10.5 writeln(‘A’);

C) For i= to 10 writeln(‘A’); D) For i:=100 to writeln(‘A’);

II/ Tự luận:

Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím phần tử dãy số Độ dài dãy nhập từ bàn phím

BÀI LÀM:

Hä tên: ……… Lớp: …

ĐỀ KIỂM TRA HỌC KỲ NĂM HỌC 2008 – 2009 Môn: Tin học (Thời gian 45 phút)

B/ THỰC HAØNH:

Viết chương trình nhập điểm bạn lớp Sau in hình số bạn đạt kết học tập loại giỏi, khá, trung bình (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình 5.0 xếp loại kém)

a) Liệt kê biến dự định sử dụng chương trình Tìm hiểu phần khai báo tìm hiểu tác dụng biến:

program Phanloai; uses crt;

Var

i, n, Gioi, Kha, Trungbinh, Kem: integer; A: array[1 100] of real;

b) Gõ phần khai báo vào máy tính lưu tệp với tên Phanloai Tìm hiểu câu lệnh phần thân chương trình đây:

Begin clrscr;

write(‘Nhap so cac ban lop, n = ‘); readln(n); writeln(‘Nhap diem:’);

For i:=1 to n Begin write(i,’ ‘); readln(a[i]); End; Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;

(80)

if a[i]>=8.0 then Gioi:=Gioi+1; if a[i]<5 then Kem:=Kem+1;

if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1; if (a[i]>=5) and (a[i]<6.5) then

Trungbinh:=trungbinh+1 end;

writeln(‘Ket qua hoc tap:’); writeln(Gioi,’ ban hoc gioi’); writeln(Kha,’ ban hoc kha’);

writeln(Trungbinh,’ ban hoc trung binh’); writeln(Kem,’ ban hoc kem’);

readln End.

c) Gõ tiếp phần chương trình vào máy tính sau phần khai báo Dịch, chạy chương trình

-3 Đáp án - biểu điểm :

A/ LÝ THUYẾT (10 ĐIỂM) I/ Trắc nghiệm khách quan: (3 điểm)

Mỗi câu cho 0,5 điểm

Caâu 1 2 3 4 5 6

Đáp án B A D C D A

II/ Tự luận: (7 điểm)

Program nhap_so_phan_tu_cu_mang; Uses Crt;

var N, i: integer;

2.0 Begin

Clrscr;

write('Nhap so phan tu cua mang, n= ',n); 2.0

for i:=1 to n do

write('Nhap gia tri ',i,'cua mang, a[',i,']= '); 2.0 Readln;

end. 1.0

B/ THỰC HAØNH Làm dúng cho 10 điểm

CÁCH TÍNH ĐIỂM CỦA BÀI - Làm trịn đến phần mười

- Tính theo cơng thức sau: ĐTB bà = (Điểm LT x + Điểm TH) :

(81)