2. Phát đề kiểm tra:

* MA TRẬN

TÊN BÀI HỌC	CÁC MỨC ĐỘ NHẬN THỨC						Tổng
	Nhận biết		Thông hiểu		Vận dụng
	TNKQ	TL	TNKQ
TL	TNKQ	TL
Máy tính và chương trình máy tính	Câu 3 0,5đ						0,5 điểm
Làm quen với chương trinh và ngôn ngữ lập trình	Câu 2 0,5đ						0,5 điểm
Chương trình máy tính và dữ liệu	Câu 6 0,5đ		Câu 1 0,5	Câu 1 1đ			2 điểm
Sử dụng biến trong chương trình			Câu 4,5 1đ			Câu 3 3đ	4 điểm
Từ bài toán đến chương trình						Câu 2 3đ	3 điểm
Tổng	1,5 điểm		1,5 điểm	1 điểm		6 điểm	10 điểm

* ĐỀ THI

I/ TRẮC NGHIỆM: (3điểm)

(Khoanh tròn vào 1 chữ cái đứng đầu mỗi ý mà em cho là đúng nhất)

Câu 1: Cho biểu thức toán học sau: ax³ + bx² + c. Viết biểu thức toán học trên bằng các kí hiệu trong Pascal.

A. a.x^{^}3+b.x²+c. B. a.x.x.x+b.x.x+c.

C. a*x^{^}3+b*x^{^}2+c. D. a*x*x*x+b*x*x+c.

Câu 2: Để chạy chương trình sau khi đã biên dịch xong người ta dùng tổ hợp phím nào?

A. Ctrl+F8. B. Ctrl+F9. C. Ctrl+F10. D. Alt+F9.

Câu 3: Chương trình dịch dùng để làm gì?

A. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình

B. Dịch từ ngôn ngữ lập trình qua ngôn ngữ máy

C. Dịch từ ngôn ngữ tự nhiên qua ngôn ngữ máy

D. Dịch từ ngôn ngữ tự nhiên sang ngôn ngữ lập trình

Câu 4: Trong Pascal, khai báo nào sau đây là đúng?

A. Var tb: Real; B. Var 4hs:Interger; C. Const x: Real; D. Var R=30;

Câu 5: Để tăng biến X lên 1 đơn vị, ta thực hiện lệnh:

A. X=X+1; B. X=X+1; C. X:=X+1; D. X:=Y+1;

Câu 6: ‘43508’ thuộc dữ liệu kiểu nào dưới đây?

A. Số nguyên. B. Số thực. C. Kí tự. D. Xâu kí tự.

II/ PHẦN TỰ LUẬN (7 điểm)

Câu 1 (1đ): Hãy liệt kê và giải thích các lỗi nếu có trong chương trình dưới đây.

Const Z = 60;

Begin

X:=5;

Y:= 20,5;

Z:=X/Y;

Writeln(Z);

End.

Câu 2 (3đ): Tìm giá trị nhỏ nhất trong dãy số A={a_1,a₂, a₃,...,a_n}

a) Xác định bài toán

b) Mô tả thuật toán.

Câu 3 (3đ): Viết chương trình Pascal tính tổng của hai số a và b.

(Biết a và b là hai số tự nhiên bất kỳ được nhập từ bàn phím)

III. ĐÁP ÁN

I/ Trắc nghiệm (4 điểm)

Câu	Câu 1	Câu 2	Câu 3	Câu 4	Câu 5	Câu 6
Đáp án	D	B	B	A	C	D

II. Tự luận

Câu 1: (1 đ)

Var X,Y : integer;

Const Z= 60;

Begin

X:=5;

Y:= 20,5; // sai vì 20,5 là số thực mà Y được khai báo kiểu nguyên.

Z:=X/Y; //sai vì Z là hằng mà giá trị của hằng thì không được thay đổi.

Writeln(Z);

End.

Câu 2: (3 điểm)

1. Xác định bài toán

Input: Dãy số a₁,a₂,…a_n.

Output: Giá trị nhỏ nhất trong dãy số.

2. Mô tả thuật toán

B1: Minßa₁; iß1;

B2: ißi+1;

B3: Nếu i>n thì chuyển đến B5;

B4: Nếu a_i <Min, Minßa_i. Quay lại B2.

B5: Kết thúc thuật toán.

Câu 3: (3 điểm)

Program tong2so;

uses crt;

var s, a, b : integer;

Begin

Clrscr;

Write(‘nhap gia tri cho a = ‘); readln(a);

Write(‘nhap gia tri cho b = ‘); readln(b);

s:=a+b;

Writeln(‘tong 2 so a va b la ‘ , s);

End.

************************************************************************

Tuần: 14 Ngày soạn: 18 /11 /2013

Tiết:28 Ngày dạy: / /2020 22/11 /2013

BÀI TẬP

I.MỤC TIÊU :

1. Kiến thức:

v Củng cố kiến thức bài 6.

2. Kỹ năng

v Vận dụng vào lý thuyết để làm bài tập.

3. Thái độ

v Có ý thức cao trong học tập, sáng tạo và tư duy.

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

v Luyện tập.

II. CHUẨN BỊ BÀI HỌC:

1. Giáo viên:

- SGK, SGV, tài liệu, Giáo án

2. Học sinh :

- SGK, Đồ dùng học tập

III. TIẾN TRÌNH BÀI HỌC:

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

- Kiểm tra sĩ số:

- Ổn định trật tự, tạo không khi thoải mái để bắt đầu tiết học.

2. Kiểm tra bài cũ :

(Kiểm tra trong quá trình làm bài tập)

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

Hoạt động của giáo viên và học sinh	Nội dung, yêu cầu cần đạt
Hoạt động 1: Nhắc lại kiến thức cũ (5 phút)
?Câu lệnh điều kiện dạng thiếu: ?Câu lệnh điều kiện dạng đủ:	IF<điều kiện> then <câu lệnh1> IF<điều kiện> then <câu lệnh1> else <câu lệnh 2>
Hoạt động 1: Bài tập (35 phút)
Bài 2/SGK trang 50 ?123 là số chia hết cho 3 ?Nếu ba cạnh a,b và c của một tam giác thỏa mãn c² = a² + b² thì tam giác đó có một góc vuông. ?15² >200 ?x²<1. Bài 3 : SGK trang 51. Gv : Phân tích bài toán Yêu cầu học sinh đưa ra điều kiện : Bài 4 : SGK trang 51. Phân tích bài toán ? Điều kiện để điều khiển chiếc khay là gì ? ? Hoạt động nào sẽ được thực hiện nếu điều kiện thỏa mãn và điều kiện nào hoạt động nếu điều kiện không được thỏa mãn ? Bài 5/SGK trang 51. Các câu lệnh trong Pascal sau đây được viết đúng hay sai ? ?.a ?.b ?.c ?.d Bài 6/SGK trang 51	HS : Đúng HS : Đúng HS : Đúng Hs : Trả lời Nếu đoán đúng thì cộng 1 điểm ngược lại không được cộng điểm nào. Hs : Bấm phím à hoặc ß Hs : Chiếc khay sẽ dịch chuyển sạng phải hoặc sang trái Hs : Nếu hoạt động không thực hiện chiếc khay sẽ đứng yên. a) Sai x :=7 b) Sai ; c) A :=b ; m :=n ; d) Sai ; else a) x=6 ; b) Vòng lặp vô hạn vì x luôn <10

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

-Nhắc lại câu lệnh điều kiện, tính đúng sai của câu lệnh điều kiện

5. Dặn dò: (1 phút)

- Về nhà học bài và xem trước bài TH4

************************************************************************

Ngày dạy

Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO

I.Mục đích

1. Kiến thức

v Viết được chương trình có sử dụng vòng lặp For…Do

v Sử dụng được câu lệnh ghép

2.Kĩ năng

v Đọc hiểu chương trình có vòng lặp For…Do

3.Thái độ

v Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.

v Luyện tập thực hành.

II. CHUẨN BỊ BÀI HỌC:

1. Giáo viên :

- SGK, tài liệu, Giáo án, Phòng máy

- Đồ dùng dạy học.

2. Học sinh :

- Đọc trước bài Thực hành 5.

III. TIẾN TRÌNH BÀI HỌC:

1Ổn định tổ chức lớp.

2.Kiểm tra bài cũ (5phút)

Cho một vài ví dụ về hoạt động được thực hiện lặp lại trong cuộc sống hằng ngày?

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

HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH

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

Hoạt động 1: Hướng dẫn

BÀI 1: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9 được nhập từ bàn phím và dừng màn hình để quan sát kết quả.

G: Yêu cầu học sinh khai báo.

G: Nhập n?

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

G: Giải thích vòng lặp For và in ra kết quả bảng nhân.

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

G: Vì bảng nhân được in ra không đẹp lắm, muốn đưa bảng nhân ra giữa thì làm thế nào?

G: Giới thiệu lệnh

Gotoxy(a,b): có tác dụng đưa con trỏ về cột a,hàng b.

giữa. Nhưng muốn cho bảng nhân ra giữa thì phải để trong begin .. end;

G: Gợi ý cho HS sửa lại chương trình trên.

G: Chạy chương trình theo từng bước để học sinh thấy rõ.

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

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

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

Khi i=0 thì j chạy từ 0 đến 9 đưa ra kết quả

Khi i=1 thì j chạy từ 0 đến 9 đưa ra kết quả.

..... cho đến khi i=10 thì kết thúc.

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

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

Program Bảngnhân;

Uses crt;

Var N, i: integer;

Begin

Clrscr;

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

Writeln;

Writeln (‘Bang nhan ‘N,);

Writeln;

For i:=1 to 10 do

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

Readln

End.

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

Nhap so N=8

Bang nhan 8

8 x 1 = 8

8 x 2 = 16

8 x 3 = 24

8 x 4 = 32

8 x 5 = 40

8 x 6 = 48

8 x 7 = 56

8 x 8 = 64

8 x 9 = 72

8 x 10 = 80

Program Bảngnhân;

Uses crt;

Var N, i: integer;

Begin

Clrscr;

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

Writeln;

Writeln (‘Bang nhan ‘N,);

Writeln;

For i:=1 to 10 do

Begin

Gotoxy(40,wherey);

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

End;

Readln

End.

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

- Cú pháp câu lệnh lặp?Như thế nào được gọi là câu lệnh ghép.

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

5.Dặn dò:

- Về nhà làm bài tập trong SGK

- Chạy và sửa lỗi các chương trình trên.

VI. Rót kinh nghiÖm

…………………………………………………………………………………………………………………………………………………………………………………

Ngày soạn:07/01/2020

Tiết: 37 Ngày dạy:

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

I.Mục đích

1. Kiến thức

v Viết được chương trình có sử dụng vòng lặp For…Do

v Sử dụng được câu lệnh ghép

2.Kĩ năng

v Đọc hiểu chương trình có vòng lặp For…Do

3.Thái độ

v Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.

v Đặt và giải quyết vấn đề

II. CHUẨN BỊ BÀI HỌC:

1. Giáo viên :

- SGK, SGV, tài liệu, Giáo án, máy chiếu

- Đồ dùng dạy học

2. Học sinh :

- Đọc trước bài 8.

III. TIẾN TRÌNH BÀI HỌC:

1.Ổn định tổ chức lớp

2.Kiểm tra bài cũ (5phút)

? Câu lệnh Gotoxy(a,b) và wherex,wherey dùng để làm gì ?

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

HOẠT ĐỘNG CỦA GIÁO VIÊN VÀ HỌC SINH

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

Hoạt động 1: Thực hành

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

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

G: Hưỡng dẫn học sinh đọc và sửa lỗi.

G: Bấm F9 kiểm tra lỗi

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

Sau khi chạy bảng cửu chương 8 yêu cầu HS viết cho bảng cửu chương ra giữa.

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

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

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

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

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

H: Gõ chương trình vào máy tính

Program Bảngnhân;

Uses crt;

Var N, i: integer;

Begin

Clrscr;

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

Writeln;

Writeln (‘Bang nhan ‘N,);

Writeln;

For i:=1 to 10 do

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

Readln

End.

Program Bảngnhân;

Uses crt;

Var N, i: integer;

Begin

Clrscr;

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

Writeln;

Writeln (‘Bang nhan ‘N,);

Writeln;

For i:=1 to 10 do

Begin

Gotoxy(40,wherey);

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

End;

Readln

End.

H: gõ chương trình

Program taobang;

Uses crt;

Var i: byte; J: byte;

Begin

Clrscr;

For i:= 0 to 9 do

Begin

For j:=0 to 9 do

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

End;

Readln

End.

H: For i:= 0 to 9 do

Begin

For j:=0 to 9 do

Begin

Gotoxy(10,wherey);

Write(10*i*j:4);

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

H: Nhận xét và rút ra kết luận

H: Tự khám phá

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

- Cú pháp câu lệnh lặp?

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

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

5.Dặn dò

- Về nhà làm bài tập trong sách bài tập

- Soạn bài 8

VI. Rót kinh nghiÖm

Tuần 22 (từ ngày ..................... đến ngày .....................)

Tiết 43, 44

Tuần:21

Ngày soạn:15/01/2020

Tiết: 39+40 Ngày dạy:

BÀI TẬP

I.Mục đích

1. Kiến thức

v Củng cố các kiến thức câu lệnh lặp với số lần chưa biết trước.

2.Kĩ năng

v Hiểu hoạt động của câu lệnh lặp với số lần chưa biết trước while…do và vận dụng vào các bài tập.

3.Thái độ

v Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.

v Đặt và giải quyết vấn đề.

II. CHUẨN BỊ BÀI HỌC:

1. Giáo viên :

- SGK, tài liệu, Giáo án, bài tập

2. Học sinh :

- Làm bài tập trong SGK.

IV. Tiến trình tiết dạy

1.Ổn định tổ chức lớp

2. Kiểm tra bài cũ (Kiểm tra trong quá trình làm bài tập)

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

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

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

Bài tập 3: Sgk\71

B1:S §10, X§0.5.

B2: Nếu S< 5.2, chuyển tới bước 4.

B3: S§S-X và quay lại bước 2

B4: Thông báo S và kết thúc thuật toán

- Thuật toán này nó chạy bao nhiêu vòng lặp?

àThuật toán chạy 10 vòng lặp

*Thuật toán chạy như sau:

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

b) Thuật toán 2:

B1:S §10, X§0.

B2: Nếu S>10, chuyển tới bước 4.

B3: n§n = 3, : S§S - n quay lại bước 2

B4: Thông báo S và kết thúc thuật toán

- Thuật toán này nó chạy bao nhiêu vòng lặp?

àThuật toán không thực hiện bước nào.

Gv: giải thích

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

Bài 4: SGK\T71

Begin n:=n+1; s:=s+n end;

GV: Chương trình trên thực hiện bao nhiêu vòng lăp?

GV: Gợi ý cho chạy vòng lặp

Bài tập 3: Sgk\71

B1:S §10, X§0.5.

B2: Nếu S< 5.2, chuyển tới bước 4.

B3: S§S-X và quay lại bước 2

B4: Thông báo S và kết thúc thuật toán

- Thuật toán này nó chạy bao nhiêu vòng lặp?

àThuật toán chạy 10 vòng lặp

*Thuật toán chạy như sau:

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

b) Thuật toán 2:

B1:S §10, X§0.

B2: Nếu S>10, chuyển tới bước 4.

B3: n§n = 3, : S§S - n quay lại bước 2

B4: Thông báo S và kết thúc thuật toán

- Thuật toán này nó chạy bao nhiêu vòng lặp?

àThuật toán không thực hiện bước nào.

Gv: giải thích

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

Bài 4: SGK\T71

Begin n:=n+1; s:=s+n end;

GV: Chương trình trên thực hiện bao nhiêu vòng lăp?

GV: Gợi ý cho chạy vòng lặp

N
S	S<=10
0	0
0	Đ
1	1
1	Đ
2	2
3	Đ
3	3
6	Đ
4	4
10	Đ
5	5
15	S

b. Chương trình chạy như sau:

S:= 0; n:= 0;

While s<=10 do

n:=n+1; s:=s+n ;

GV: Cho học sinh chạy chương trình và xem có bao nhiêu vòng lặp?

GV: Chạy chương trình và giải thích sau câu lệnh lặp chỉ thực hiện lệnh n:=n+1 nên vòng lặp vô hạn.

N=0	S = 0
1	S: luôn luôn bằng 0; bởi vì 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 luôn thoã mãn.
2
3
4
…..
N thực hiện vô tận

GV: Từ 2 ví dụ trên em có nhận xét gì?

GV: Nhận xét và đưa ra kết luận.

Bài 5 :T\71 : Hãy chỉ ra lỗi trong các câu lệnh sau đây :

d. x : =10 ; while x :=10 do x := x + 5

e. x :=10 ; while x = 10 do x := x + 5

Bài tập 6: Cho đoạn chương trình sau hãy xác định chương trình có bao nhiêu vòng lặp và kết quả cuối cùng (j,k) bằng bao nhiêu?

J:=1; k:=2;i:=0;

While i<5 do

Begin

I:=i+1;

J:=J+1;

K:=K+J;

End;

Writeln(j,k);

Nếu chương trình như sau thì cuối cùng kết quả (j,k) bằng bao nhiêu?

J:=1; k:=2;

While i<5 do

I:=i+1;

J:=J+1;

K:=K+J;

Writeln(j,k);

Hs: Trả lời

Bước	s	X	S>5	s-x
1	10	0.5	Đ	10 - 0.5
2	9.5	0.5	Đ	9.5 – 0.5
3	9.0	0.5	Đ	9.0 – 0.5
4	8.5	0.5	Đ	8.5 - 0.5
5	8.0	0.5	Đ	8.0 – 0.5
6	7.5	0.5	Đ	7.5 – 0.5
7	7	0.5	Đ	7.0 - 0.5
8	6.5	0.5	Đ	6.5 – 0.5
9	6	0.5	Đ	6.0 – 0.5
10	5.5	0.5	Đ	5.5 - 0.5
11	5.0	0.5	S	Kết thúc

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

S:=10; x:=0.5;

While s>5.2 do s:=s – x;

Write (s);

Hs: Trả lời

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

s:=10; n:= 0;

While s< 10 do

Begin n:= n+3; s:=s- n;

end;

Writeln (s);

HS: Trả lời

HS: Tiếp tục phân tích và chạy chương trình

HS: Chạy chương trình trên giấy nháp

HS: Trong câu a thì 2 lệnh n:=n+1 và s:=s+n nằm trong begin .. end nên thực hiện 2 lệnh trên cùng lúc.

Trong câu b 2 lệnh không nằm trong begin..end nên chỉ thực hiện lệnh sau điều kiện.

a. Sai vì x:=10 đúng phải là x=10;

b. Sai vì x=x+5 đúng x:=x+5

c. Sai vì vòng lặp sẽ vô hạn gây treo máy.

HS: Phân tích vòng lặp trên giấy.

HS: vẽ bảng phân tích và lên bảng làm bài.

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

- Sử dụng While … do cho các chương trình lặp với số lần chưa biết trước.

- Câu lệnh kép nằm trong Begin…end.

5.Dặn dò:

- Xác định được chương trình có bao nhiêu vòng lặp

- Soạn bài TH6 – Chạy chương trình.

VI. Rót kinh nghiÖm

Tuần:26 Ngày soạn:25/02/2020

Tiết: 50 Ngày dạy:

Bài 9: LÀM VIỆC VỚI DÃY SỐ (tiếp)

I.Mục đích

1.Kiến thức

v Biết được khái niệm mảng một chiều

v Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng.

2.Kĩ năng

v Hiểu thuật toán tìm số lớn nhất, nhỏ nhất của một dãy số.

3.Thái độ

v HS có thái độ ham hiểu biết, học hỏi.

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

PHƯƠNG PHÁP:

v Giảng giải, vấn đáp, trực quan.

1. Giáo viên :

- SGK, SGV, tài liệu, Giáo án

- Đồ dùng dạy học

2. Học sinh :

- Đọc trước « Làm việc với dãy số »

III. TIẾN TRÌNH BÀI HỌC:

1.Ổn định tổ chức lớp

2.Kiểm tra bài cũ

?Viết cú pháp khai báo biến mảng ? Khi nào ta dùng biến mảng ?

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

HOẠT ĐỘNG CỦA GV VÀ HS	NỘI DUNG, YÊU CẦU CẦN ĐẠT
Hoạt đông 1: Ví dụ
GV: Đưa ví dụ 2 GV: Hướng dẫn học sinh cách sử dụng biến mảng GV: Cách khai báo biến có ích lợi gì? GV: Nhập giá trị cho mảng từ bàn phím như thế nào	Ví dụ 2. Tiếp tục với ví dụ 1, thay vì khai báo các biến Diem_1, Diem_2, Diem_3,... để lưu điểm số của các học sinh, ta khai báo biến mảng Diem như sau: var Diem: array[1..50] of real; HS: Tiết kiệm thời gian và công sức viết chương trình. Trước hết, có thể thay rất nhiều câu lệnh nhập và in dữ liệu ra màn hình bằng một câu lệnh lặp. Chẳng hạn, ta có thể viết For i:=1 to 50 do readln(Diem[i]); để nhập điểm của các học sinh. Để so sánh điểm của mỗi học sinh với một giá trị nào đó, ta cũng chỉ cần một câu lệnh lặp, chẳng hạn For i:=1 to 50 do if Diem[i]>8.0 then writeln('Gioi'); Điều này giúp tiết kiệm rất nhiều thời gian và công sức viết chương trình. Hơn nữa, mỗi học sinh có thể có nhiều điểm theo từng môn học: điểm Toán, điểm Văn, điểm Lí,... Để xử lí đồng thời các loại điểm này, ta có thể 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 real; Khi đó, ta cũng có thể xử lí điểm thi của một học sinh cụ thể Ví dụ 2 cũng cho thấy rằng, chúng ta gán giá trị, đọc giá trị và tính toán với các giá trị của một phần tử trong biến mảng thông qua chỉ số tương ứng của phần tử đó. Chẳng hạn, trong câu lệnh trên Diem[i] là phần tử thứ i của biến mảng Diem. 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; hoặc nhập dữ liệu từ bàn phím bằng câu lệnh lặp: for i := 1 to 5 do readln(a[i]);
Hoạt động 2: Tìm giá trị lớn nhất và nhỏ nhất của dãy số
GV: Em hãy nêu cách tìm bạn cao nhất lớp? G: yêu cầu hs xác định bài toán G: Gợi ý và gọi 1 em lên khai báo biến cho chương trình. GV: Gọi 1 em lên viết câu lệnh nhập n từ bàn phím GV: Gọi 1 em lên viết câu lệnh nhập dãy số từ bàn phím. GV: Nhắc lại thuật toán tìm giá trị lớn nhất, gợi ý cho học sinh và gọi 1 em lên viết đoạn tìm giá trị lớn nhất. GV: sau khi tìm gt lớn nhất gọi 1 em lên viết đoạn chương trình tìm giá trị nhỏ nhất trong dãy số.	HS: Cho bạn đầu tiên cao nhất sau đó so sánh tiếp với các bạn khác. Input: n, dãy số nhập từ bàn phím. Output: tìm giá trị lớn nhất, nhỏ nhất. Ví dụ 3. (SGK) Phần khai báo của chương trình có thể 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 sẽ tương tự dưới đây: Begin clrscr; write('Hay nhap do 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]; for i:=2 to n do begin if Max<a[i] then Max:=a[i]; end; write('So lon nhat la Max = ',Max); readln End.

4.Củng cố:Cách khai báo mảng trong Pascal.Câu lệnh nhập dãy số từ bàn phím

v Thuật toán tìm giá trị lớn nhất và giá trị nhỏ nhất

v Dặn dò:Làm các bài tập trong SGK.

VI. Rót kinh nghiÖm

Giáo Án Tin Học 8 Cả Năm Theo CV 5512 Phương Pháp Mới 5 Bước Hoạt Động

Vừa xong

Xem tiếp toàn bộ tài liệu