GA TIN 8 HKI2_ 2015-2016 - Website Trường THCS Lê Quý Đôn - Đại Lộc - Quảng Nam

- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.. II?[r]

(1)

Tuần: 20 Ngày soạn: 03/1/2016 Tiết: 37

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

1 Kiến thức:

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

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

2 Kĩ năng:

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

- Thái độ học tập nghiêm túc, u thích mơn học II Chuẩn bị:

- GV: SGK, giáo án, tài liệu tham khảo - HS: Học kỹ lý thuyết, đọc trước III Phương pháp:

- Đặt vấn đề, đưa yêu cầu để học sinh trao đổi

- Đàm thoại, thảo luận nhóm, gv hướng dẫn nhận xét tổng kết IV Tiến trình dạy học:

1 Ổn định lớp: 2 Kiểm tra cũ: 3 Bài mới:

T/g Hoạt động thầy Hoạt động trị Nội dung

18p + Hoạt động 1: Tìm hiểu các công việc phải thực hiện nhiều lần cuộc sống.

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

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

- Các em học phải đọc đọc lại nhiều lần thuộc ? Em cho vài dụ sống mà ta

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

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

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

1 Các công việc phải thực

(2)

20p

phải thực lặp lặp lại nhiều lần với số lần biết trước khơng biết trước

+ Hoạt động 2: Tìm hiểu câu lệnh lặp - lệnh thay cho nhiều lệnh.

Ví dụ 1: Giả sử cần vẽ hình vng có cạnh đơn vị Mỗi hình vng ảnh dịch chuyển hình bên trái khoảng cách đơn vị

? Việc vẽ hình thực theo thuật tốn

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

Bước 3: i ≤ 100, S ← S + i quay lại bước 2; ngược lại kết thúc - Mọi ngơn ngữ lập trình có cách để thị cho máy tính thực cấu trúc lặp với câu lệnh “câu lệnh lặp”

nhà

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

+ Học sinh ý lắng nghe

Việc vẽ hình thực theo thuật tốn sau:

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

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

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

Học sinh ý lắng nghe

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

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

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

4 Củng cố: (5phút)

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

(3)

CÂU LỆNH LẶP (tt) I Mục tiêu:

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

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

1 Ổn định lớp:

2 Kiểm tra cũ: (5’)

- ? Cho vài ví dụ hoạt động thực lặp lại sống ngày 3 Bài mới:

T/g Hoạt động thầy Hoạt động trò Nội dung

18p + Hoạt động 1: Ví dụ cầu lệnh lặp

- Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>;

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

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

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

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

- B4: Nếu biểu thức điều kiện nhận giá trị sai

(4)

18p

Var i: integer; Begin

For i:= to 10

Writeln(‘day la lan lap thu’,i); Readln;

End

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

Var N,i: Integer; S: longint;

Begin

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

S:=0;

For i:=1 to N S:=S+i Witeln(‘tong la:’,S); Readln;

End

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

N! = 1.2.3…N

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

thốt khỏi vịng lặp

Học sinh ý lắng nghe

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

Program tinh_giai_thua; Var N,i: Integer;

P: Longint; Begin

Write(‘N =’); readln(N); P:=1;

For i:=1 to N P:=P*i; Wirteln(N,’!=’,P);

Readln; End

2 Tính tổng tích bằng câu lệnh lặp:

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

Program tinh_tong; Var N,i: Integer; S: longint;

Begin

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

S:=0;

For i:=1 to N S:=S+i Witeln(‘tong la:’,S); Readln;

End

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

N! = 1.2.3…N

4 Củng cố: (3 phút)

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

(5)

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

- Học sinh nắm vai trò biến, hằng, cách khai báo biến, - Biết cách sử dụng biến chương trình cấu trúc lệnh gán 2 Kĩ năng:

- Rèn luyện kĩ sử dụng biến chương trình 3 Thái độ:

- Thái độ học tập nghiêm túc, rèn luyện tư logic II Chuẩn bị:

- GV: SGK, giáo án, số tập tham khảo - HS: Học kỹ lý thuyết, làm tập SGK III Phương pháp:

- Đặt vấn đề, đưa tập để học sinh trao đổi, thảo luận làm - Gv quan sát, hướng dẫn, nhận xét công việc học sinh

IV Tiến trình dạy học: 1 Ổn định lớp

2 Kiểm tra chuẩn bị học sinh.

Nội dung tập:

15p + Hoạt động 1: Ôn lại một số kiển thức học

- Biến đại lượng nào?

- Cách khai báo biến nào?

- Có thể thực thao tác với biến?

- Viết cấu trúc lệnh

- Biến dùng để đặt tên cho vùng nhớ máy tính Biến lưu trữ liệu (giá trị) Giá trị biến thay đổi q trình thực chương trình

- Trước sử dụng biến phải khai báo theo dạng sau : Var tên biến : kiểu biến;

- Các thao tác thực với biến gán giá trị cho biến nhập giá trị cho biến tính tốn với giá trị biến - Lệnh gán có dạng:

1 Ôn lại số kiến thức học:

- Biến đại lượng nào?

- Cách khai báo biến nào?

- Có thể thực thao tác với biến?

(6)

25p

gán, lệnh nhập giá trị cho biến, lệnh in giá trị biến?

+ Hoạt động 2: Vận dụng các kiến thức học để làm số tập

* Bài tập 1:

Hãy lỗi sửa lỗi chương trình sau : Const pi:=3.1416; Var cv,dt:integer

R:real; Begin

R=5.5 Cv=2*pi*r; Dt=pi*r*r;

Writeln(‘chu vi la:= cv’);

Writeln(‘dien tich la:=dt’);

Readln End

* Bài tập 2:

Viết chương trình tính diện tích S của hình tam giác với độ dài cạnh a chiều cao tương ứng h (a và h là số tự nhiên nhập vào từ bàn phím)

Tên biến := biểu thức(gt); - Lệnh nhập giá trị cho biến:Readln(tên biến);

- Lệnh in giá trị cho biến : Write(tên biến); Writeln(tên biến);

+ Học sinh tìm sửa lỗi chương trình theo yêu cầu giáo viên

+ Học sinh viết chương trình: Program tinhtoan;

Var a,h: interger; S : real; Begin

Write(‘Nhap canh day chieu cao :’);

Readln (a,h); S:=(a*h)/2;

Writeln(‘ Dien tich hinh tam giac la :’,S:5:1);

Readln; End

cho biến, lệnh in giá trị biến?

2 Bài tập: * Bài tập 1:

Hãy lỗi sửa lỗi chương trình sau : Const pi:=3.1416; Var cv,dt:integer

R:real; Begin

R=5.5 Cv=2*pi*r; Dt=pi*r*r;

Writeln(‘chu vi la:= cv’);

Writeln(‘dien tich la:=dt’);

Readln End

* Bài tập 2:

Viết chương trình tính diện tích S của hình tam giác với độ dài cạnh a và chiều cao tương ứng h (a và h là số tự nhiên nhập vào từ bàn phím)

4 Dặn dò: (5 phút)

(7)

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

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

- GV: SGK, giáo án, số tập tham khảo - HS: Học kỹ lý thuyết, làm tập SGK III Phương pháp:

- Đặt vấn đề, đưa tập để học sinh trao đổi, thảo luận làm - Gv quan sát, hướng dẫn, nhận xét cơng việc học sinh

IV Tiến trình dạy học: 1 Ổn định lớp

2 Kiểm tra chuẩn bị học sinh.

Nội dung tập:

30p + Hoạt động 1: Bài tập 1. - Các câu lệnh Pascal sau viết hay sai? a) If x:=7 then a = b;

b) IF x > 5; then a:=b; c) IF x > then a:= b; m:=n;

d) IF x > then a:=b; else m:=n;

+ Hoạt động 2: Bài tập - Sau câu lệnh sau a) IF ( 45 mod 3) = then X:= X + 1;

b) IF x > 10 then X:= X + 1;

Giá trị biến X bao nhiêu, trước giá trị X 5?

+ Hoc sinh làm tập theo yêu cầu giáo viên

a) Giá trị biến X = b) Giá trị biến X =

1 Bài tập 1

- Các câu lệnh Pascal sau viết hay sai?

a) If x:=7 then a = b; b) IF x > 5; then a:=b; c) IF x > then a:= b; m:=n;

d) IF x > then a:=b; else m:=n;

2 Bài tập 2.

- Sau câu lệnh sau

a) IF ( 45 mod 3) = then

X:= X + 1; b) IF x > 10 then X:= X + 1;

(8)

10p + Hoạt động 3: Bài tập - Viết chương trình kiểm tra số nguyên dương A nhập từ bàn phìm số chẵn hay số lẻ

- Có biến chương trình?

- Làm để biết số nguyên dương A số chẵn hay số lẻ

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

+ Có biến biến A có kiểu liệu Integer

+ Để kiểm tra số nguyên dương A số chẵn hay số lẽ, ta lấy số chia cho lấy phần dư Nếu phần dư A số chẵn, ngược lại A sô lẻ

+ Viết chương trình theo hướng dẫn giáo viên

Program Kiem_tra_so_chan_le; Var A: Integer;

Begin

Writeln(‘Nhap so A:’); Readln(a);

If A mod = then

Writeln(A,’la so chan’) Else Writeln(A,’la so le’);

Readln; End

đó giá trị X 5?

3 Bài tập 3

- Viết chương trình kiểm tra số nguyên dương A nhập từ bàn phìm số chẵn hay số lẻ

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

(9)

-Tuần: 22 Ngày soạn: 17/1/2016 Tiết: 41

Bài thực hành số 5

SỬ DỤNG LỆNH LẶP FOR TO DO I Mục tiêu:

- Biết viết chương trình Pascal có câu lệnh lặp For 2 Kĩ năng:

- Rèn luyện kĩ đọc hiểu chương trình 3 Thái độ:

- Thái độ học tập nghiêm túc, u thích viết chương trình để thực số công việc

II Chuẩn bị:

- GV: SGK, giáo án, tài liệu tham khảo

- Chuẩn bị phòng thực hành đủ số máy hoạt động tốt - HS: Học kỹ lý thuyết, đọc trước thực hành III Phương pháp:

- Phân nhóm Hs thực hành

- Đặt vấn đề, đưa yêu cầu để học sinh trao đổi thực hành máy

- Gv quan sát, hướng dẫn nhóm thực hành, nhận xét cơng việc nhóm IV Tiến trình dạy học:

1 Ổn định lớp

2 Phân việc cho nhóm thực hành. 3 Bài mới:

10p + Hoạt động 1: Ôn lại câu lệnh lặp For do.

? Hãy nêu cú pháp chức câu lệnh lặp For

- Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>;

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

- B2: Chương trình kiểm tra biểu thức điều kiện, biểu thức điều kiện thực câu lệnh

- B3: Biến đếm tự động tăng lên đơn vị quay lại B2

1 Ôn lại câu lệnh lặp For do:

(10)

28p + Hoạt động 2: Viết chương trình in màn hình bảng nhân số từ đến 9, số nhập từ bàn phím dừng hình để quan sát kết quả - Gõ chương trình sau đây: 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

- Tìm hiểu ý nghĩa câu lệnh chương trình, dịch chương trình sửa lỗi

- Chạy chương trình với giá trị nhập vào lần lược 1, 2,…10 Quan sát kết nhận hình

- B4: Nếu biểu thức điều kiện nhận giá trị sai khỏi vịng lặp + Học sinh đọc kĩ đề phân tích yêu cầu tốn

+ Gõ chương trình vào máy theo yêu cầu giáo viên

+ Tìm hiểu ý nghĩa câu lệnh theo hướng dẫn giáo viên

+ Nhấn phím F9 để sửa lỗi (nếu có)

+ Nhấn Ctrl + F9 để chạy chương trình nhập giá trị vào, quan sát kết hình theo hướng dẫn giáo viên

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

4 Nhận xét (5 phút)

Giáo viên nhận xét đánh giá tiết thực hành 5 Dặn dò: (2 phút)

- Tiết sau thực hành: “ Bài thực hành số (tt)

(11)

Bài thực hành số (tt)

SỬ DỤNG LỆNH LẶP FOR TO DO

I Mục tiêu: 1 Kiến thức:

- Biết viết chương trình Pascal có câu lệnh lặp For 2 Kĩ năng:

- Rèn luyện kĩ đọc hiểu chương trình 3 Thái độ:

- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực số cơng việc

15p + Hoạt động 1: Bài tập 2 - Chỉnh sửa chương trình để làm đẹp kết hình

? Kết chủ chương trình nhận có nhược điểm

? Nên sửa lại cách

+ Có hai nhược điểm sau đây:

- Các hàng kết sát nên khó đọc

- Các hàng kết không cân hàng tiêu đề

+ Nên sửa lại cách chèn thêm hàng trống hàng kết đẩy hàng sang phải khoảng cách

(12)

23p

- Chỉnh sửa câu lệnh lặp chương trình sau:

for i:=1 to 10 do begin

GotoXY(5,WhereY);

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

end;

- Dịch chạy chương trình với giá trị gõ vào từ bàn phím Quan sát kết nhận hình + Hoạt động 2: Tìm hiểu chương trình sau:

Program tao_bang; Uses crt;

Var i,j: byte; Begin Clrscr;

For i:= to Begin

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

End; Readln; End

- Gõ chạy chương trình, quan sát kết hình

+ Học sinh chỉnh sửa theo hướng dẫn giáo viên

+ Học sinh thực theo yêu cầu giáo viên

+ Tìm hiểu chương trinh theo hướng dẫn giáo viên

+ Học sinh độc lập gõ chương trình

+ Nhấn F9 để dịch sửa lỗi chương trình

+ Nhấn Ctrl + F9 để chạy chương trình kiểm tra kết

2

Tìm hiểu chương trình sau:

Program tao_bang; Uses crt;

Var i,j: byte; Begin Clrscr;

For i:= to Begin

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

End; Readln; End

- Tiết sau học bài: “ Học vẽ hình với phần mềm Geogebra”

(13)

LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC I Mục tiêu:

- Hiểu 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; - Hiểu 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;

2 Kĩ năng:

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

18p + Hoạt động 1: Tìm hiểu ví dụ 1.

- Một ngày chủ nhật Long gọi điện cho Trang Khơng có nhấc máy Long định gọi lại thêm lần Như Long biết trước lặp lại gọi điện thêm lần Một ngày khác, Long định 10 phút gọi điện lần cho Trang có người bắt máy

? Lần Long lặp lại việc gọi điện lần

? Điều kiện để kết thúc hoạt

+ Chưa thể biết trước được, lần, hai lần nhiều

+ Điều kiện để kết thúc hoạt

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

(14)

20p

động lặp gì?

+ Hoạt động 2: Tìm hiểu ví dụ 2.

- 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

hơn 1000?

? Tìm hiểu bước thuật tốn ví dụ - Yêu cầu học sinh gõ chương trình vào máy - Dịch chạy chương trình?

- Ta có sơ đồ khối

Nhận xét?

động lặp có người nhấc máy

+ Đọc kĩ đề

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

- Bước 1.S  0, n 

- Bước 2. Nếu S ≤ 1000, n n + 1; ngược lại chuyển tới bước -Bước 3. S  S + n và quay lại bước

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

* 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

+ Ví dụ 2:

- 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?

4 Củng cố (2 phút)

- Hãy nêu số ví dụ sống mà cơng việc lặp lại với số lần trước

5 Dặn dò (5 phút)

- Về nhà học bài, kết hợp SGK

(15)

Tiết: 44

LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC (tt) I Mục tiêu:

- Biết cú pháp hoạt động câu lệnh lặp với số lần trước - Biết số lỗi lập trình cần tránh

2 Kĩ năng:

- Rèn luyện kĩ sử dụng câu lệnh lặp không xác định Pascal 3 Thái độ:

- Thái độ học tập nghiêm túc, yêu thích mơn học II Chuẩn bị:

25p + Hoạt động 1: Tìm hiểu ví dụ lệnh lặp với số lần không biết trước.

- Câu lệnh lặp khơng biết trước Pascal có dạng: * Cú pháp:

While <điều kiện> <câu lênh>;

- Trong đó: Điều kiện? Câu lệnh?

? Yêu cầu học sinh nghiên cứu SGK => hoạt động 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 + Học sinh nghiên cứu SGK => hoạt động:

- B1 Kiểm tra điều kiện

- B2 Nếu điều kiện sai, câu lệnh bị bỏ qua việc thực câu lệnh lặp kết thúc Nếu điều kiện đúng, thực câu lệnh

2 Ví dụ lần lặp với số lần chưa biết trước.

+ Cú pháp:

While <điều kiện> <câu lênh>;

+ Hoạt động:

- B1 Kiểm tra điều kiện

(16)

13p

- Ví dụ Chương trình Pascal thực thuật tốn tính tổng n

- u cầu học sinh tìm hiểu chương trình SGK

? Hãy cho biết kết nhận sau chạy chương trình

+ Hoạt động 2: Tìm hiểu lặp vơ hạn lỗi lập trình cần tránh.

- Khi viết chương trình sử dụng cấu trúc lặp cần ý tránh tạo nên vịng lặp khơng kết thúc - Chẳng hạn, chương trình lặp lại vô tận: var a:integer;

begin a:=5;

while a<6 do

writeln('A'); end.

quay lại B1

+ Nghiên cứu chương trình SGK theo yêu cầu giáo viên + Kết nhận sau chạy chương trình n = 45 tổng tiên lớn 1000 1034

2 Lặp vơ hạn – Lỗi lập trình cần tránh. - Khi viết chương trình sử dụng cấu trúc lặp cần ý tránh tạo nên vịng lặp khơng kết thúc

- Hãy nêu cú pháp hoạt động vòng lặp While 5 Dặn dò (5 phút)

(17)

Tiết: 45

SỬ DỤNG LỆNH LẶP WHILE DO

- 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 2 Kĩ năng:

- Rèn luyện kĩ đọc chương trình, tìm hiểu tác dụng câu lệnh 3 Thái độ:

2 Phân việc cho nhóm thực hành.

Bài mới:

38p + Hoạt động 1: Làm bài tập

1 Viết chương trình sử dụng lệnh lặp While … để tính n số thực x1,x2,x3…xn Các số n x1,x2,x3…, xn nhập từ bàn phím

- Ý tưởng?

- Mơ tả thuật tốn chương trình, biến dự định sử dụng kiểu chúng

+ Sử dụng biến đếm lệnh lặp While…do để nhập cộng dần số vào biến kiểu số thực nhập đủ n số

+ Chú ý lắng nghe => ghi nhớ kiến thức

(18)

- Gõ chương trình sau đây: Program tinh_trung_binh; Var n, dem: integer; X, tb: real; Begin

Dem:=0; tb:=0;

Writeln(‘nhap cac so can tinh n =’);

Readln(n);

While dem < n Begin

Dem:= dem + 1;

Writeln(‘nha so thu’, dem,’=’);

Readln(x); Tb:= tb + x; End;

Tb:=tb/n;

Witeln(‘Trung binh của’,n,’so =’, tb:10:3); Readln;

End

- Lưu chương trình với tên tinh_tb

- Đọc hiểu tìm hiểu ý nghĩa câu lệnh Dịch chương trình sửa lỗi, có Chạy chương trình với liệu gõ từ bàn phím kiểm tra kết nhận

+ Học sinh độc lập gõ chương trình vào máy

+ Học sinh lưu chương trình theo yêu cầu giáo viên

4 Nhận xét: (5 phút)

- Tiết sau thực hành: “ Bài thực hành số (tt)

(19)

Tiết: 46

SỬ DỤNG LỆNH LẶP WHILE DO (tt)

- 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 2 Kĩ năng:

- Rèn luyện kĩ đọc chương trình, tìm hiểu tác dụng câu lệnh 3 Thái độ:

- Thái độ học tập nghiêm túc, u thích viết chương trình để thực số công việc

Bài mới:

30p + Hoạt động 1: Làm bài tập SGK

- Gọi học sinh đọc đề sách giáo khoa

- Ý tưởng?

- Giáo viên đưa ý tưởng để học sinh tìm hiều

Ý tưởng: Kiểm tra lần lượt N có chia hết cho số tự nhiên ≤ i ≤ N hay khơng Kiểm tra tính chia hết phép chia lấy phần dư (mod)

? Đọc tìm hiểu ý nghĩa câu lệnh chương trình sau đây:

Bài 2. Tìm hiểu chương trình nhận biết số tự nhiên N nhập vào từ bàn phím có phải số ngun tố hay khơng

- Học sinh tìm hiểu ý tưởng theo hướng dẫn giáo viên

+ Học sinh đọc chương

(20)

8p

Uses Crt; Var n,i:integer; Begin

Clrscr;

write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else

begin i:=2;

while (n mod i<>0) i:=i+1;

if i=n then writeln(n,' la so nguyen to!')

else writeln(n,' khong phai la so nguyen to!'); end;

readln end.

+ Hoạt động 2: Gõ chương trình vào máy, chạy chương trình kiểm tra kết

trình tìm hiểu ý nghĩa câu lệnh theo hướng dẫn giáo viên

+ Học sinh độc lập gõ chương trình vào máy + Nhấn Ctrl + F9 để chạy kiểm tra chương trình 4 Nhận xét: (5 phút)

- Tiết sau làm tập

(21)

-Tuần: 25 Ngày soạn: 14 /2 /2016 Tiết: 47

1 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 2 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 3 Thái độ:

- Thái độ học tập nghiêm túc, yêu thích mơn học II Chuẩn bị:

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

2 Kiểm tra chuẩn bị hs: 3 Bài mới:

13p + Hoạt động 1: Nêu khác biệt câu lệnh xác định và câu lệnh không xác định

Sự khác biệt:

a) Câ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 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 được 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ả

(22)

30p

+ Hoạt động 2:Bài tập.

? Hãy tìm hiểu thuật toá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 bằng bao nhiêu? Viết chương trình Pascal thể thuật tốn

a) Thuật tốn

Bước 1 S  10, x  0.5

Bước 2 Nếu S  5.2, chuyển tới bước Bước 3 S  S  x quay lại bước

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

Bước 1 S  10, n 

Bước 2 Nếu S ≥ 10, chuyển tới bước Bước 3 n  n + 3, S  S  n quay lại bước

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

mãn, câu lệnh mới thực

a) Thuật tốn 1: 10 vịng lặp thực Khi kết thúc thuật toá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 toá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);

2 Bài tập:

4 Củng cố - Dặn dò: (2 phút)

- Về nhà học tiết sau làm tập tiếp

(23)

1 Kiến thức:

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

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

2 Kiểm tra chuẩn bị hs: 3 Bài mới:

14p

10p

19p

+ Hoạt động 1: Bài tập 1. - Sau thực đoạn chương trình sau, giá trị biến j ? J:= 0;

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

+ Hoạt động 2:Bài tập 2. - Các câu lệnh Pascal sau có hợp lệ khơng? Vì sao? a) For i:= 100 to Writeln(‘A’);

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

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

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

+ Hoạt động 3: Bài tập

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

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

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

c) Đây câu lệnh hợp lệ

d) Đây câu lệnh khơng hợp lệ sau từ khóa khơng có dấu chấm phẩy

1 Bài tập 1

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

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

2 Bài tập 2.

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

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

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

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

(24)

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

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

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

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

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

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

Program in_bang_cuu_chuong ; Var i: integer;

Begin

For i:= to 10

Writeln(‘2 lan’,i,’=’i*2); Readln;

End

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

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

Program

in_bang_cuu_chuong ;

Var i: integer; Begin

For i:= to 10 Writeln(‘2

lan’,i,’=’i*2); Readln; End

- Về nhà học kết hợp sách giáo khoa, tiết sau kiểm tra tiết lt

(25)

HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA I Mục tiêu:

- Tìm hiểu phần mềm Geogebra

- Biết cách khởi động biết hình làm việc phần mềm 2 Kĩ năng:

- Rèn luyện kĩ sử dụng phần mềm Geogebra 3 Thái độ:

- GV: SGK, giáo án, tài liệu tham khảo - HS: Học kỹ lý thuyết, đọc trước nhà III Phương pháp:

- Đặt vấn đề, đưa yêu cầu để học sinh trao đổi thảo luận

- Gv quan sát, hướng dẫn nhóm thảo luận, nhận xét cơng việc nhóm IV Tiến trình dạy học:

1 Ổn định lớp 2 Kiểm tra cũ.

Bài mới:

5p

33p

+ Hoạt động 1: Tìm hiểu phần mềm Geogebra.

? Hãy nêu mục đích phần mềm

Phần mềm có khả tạo gắn kết đối tượng hình học, gọi quan hệ thuộc, vng góc, song song + Hoạt động 2: Tìm hiểu cách khởi động phần mềm.

? Hãy nêu cách để khởi động phần mềm

+ Phần mềm Geogebra dùng để vẽ hình học đơn giản điểm, đoạn thẳng, đường thẳng + Học sinh ý lắng nghe

Để khởi động phần mêm ta nháy đúp vào biểu tượng

1 Em biết về Geogebra?

- Phần mềm Geogebra dùng để vẽ hình học đơn giản điểm, đoạn thẳng, đường thẳng

2 Làm quen với phần mềm Geogebra tiếng Việt:

a) Khởi động

(26)

Hoặc vào menu Start \ All Programs\

GeoGebra \ GeoGebra - Gọi học sinh lên thực hành khởi động phần mềm máy tính

+ Hoạt động 3: Tìm hiểu màn hình làm việc của Geogebra tiếng Việt. ? Màn hình làm việc Geogebra gồm thành phần

- Chú ý: Các lệnh bảng chọn không dùng để vẽ đối tượng – hình - 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ụ

màn hình

+ Học sinh khởi động phần mềm máy tính theo yêu cầu giáo viên

+ Màn hình làm việc Geogebra gồm:

- Bảng chọn: hệ thống lệnh phần mềm

- Thanh cơng cụ: Chứa cơng cụ làm việc cơng cụ dùng để vẽ, điều chỉnh làm việc với đối tượng

- Khu vực thể đối tượng

tượng hình để khởi động phần mềm

b) Giới thiệu hình Geogebra tiếng Việt + Màn hình làm việc Geogebra gồm: - Bảng chọn

- Thanh công cụ

- Khu vực thể đối tượng

? Hãy nêu thành phần hình làm việc Geogebra 5 Dặn dò: (2 phút)

- Về nhà học bài, kết hợp SGK, tiết sau học tiếp

(27)

-Tuần: 26 Ngày soạn: 21/2 /2016 Tiết: 50

HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA (tt) I Mục tiêu:

- Biết cơng cụ làm việc phần mềm: công cụ di chuyển, công cụ liên quan đến đối tượng điểm…

2 Kĩ năng:

- Rèn luyện kĩ sử dụng công cụ làm việc phần mềm 3 Thái độ:

Bài mới:

38p + Hoạt động : Tìm hiểu các cơng cụ làm việc chính phần mềm. * Cơng cụ di chuyển: ? Cơng cụ di chuyển có ý nghĩa nào? * Các công cụ liên quan đến đối tượng điểm

Yêu cầu học sinh nghiên cứu SGK cho biết ý nghĩa công cụ - Công cụ ? - Công cụ ? - Công cụ ?

* Các công cụ liên quan đến đoạn, đường thẳng - Các công 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

- Cơng cụ : dùng để tạo điểm

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

- Công cụ : dùng để tạo trung điểm đoạn thẳng

c) Giới thiệu công cụ làm việc

* Cơng cụ di chuyển: dùng để di chuyển hình

(28)

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

? Hãy nêu thao tác thực

* 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

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

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

- 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 nháy chuột chọn hai điểm hình

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

+ 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

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

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

? Nêu ý nghĩa công cụ liên quan đến đoạn, đường thẳng 5 Dặn dò: (2 phút)

(29)

Tiết: 51

- Biết công cụ làm việc phần mềm: Các cơng cụ liên quan đến hình trịn, cơng cụ biến đổi hình học

- Tìm hiểu đối tượng hình học 2 Kĩ năng:

- Rèn luyện kĩ sử dụng cơng cụ làm việc phần mềm 3 Thái độ:

Bài mới:

25p + Hoạt động 1: Tìm hiểu các cơng cụ làm việc chính của phần mềm.

* 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

- Cơng cụ dùng để tạo

ra hình trịn cách xác định tâm bán kính

- Cơng cụ dùng để vẽ

hình trịn qua ba điểm cho trước

một nửa hình trịn qua hai

- 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

- 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

- Thao tác: chọn cơng cụ, sau

đó chọn ba điểm

Thao tác: chọn công cụ, chọn

(30)

13p

điểm đối xứng tâm

- Công cụ tạo

cung tròn phần hình trịn xác định trước tâm hình trịn hai điểm cung trịn

- Cơng cụ xác định

một cung tròn qua ba điểm cho trước

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

ra đối tượng đối xứng với đối tượng cho trước qua trục đường đoạn thẳng

-Công cụ dùng để tạo

ra đố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)

? Nêu cách thoát khỏi phần mềm

+ Hoạt động 2: Tìm hiểu các đối tượng hình học.

- Một hình hình học bao gồm nhiều đối tượng - Đối tượng hình học gồm đối tượng tự đối tượng phụ thuộc

lần lượt hai điểm Nửa hình trịn 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

Thao tác: Chọn công cụ, chọn tâm hình trịn 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ồ

- Thao tác: chọn cơng cụ sau

lần lượt chọn ba điểm mặt phẳng

Để thoát khỏi phần mềm ta nháy chuột chọn hồ sơ => đóng nhấn tổ hợp phím Alt + F4

+ Các đối tượng hình hoc gồm: điểm, đường thẳng, tia, hình trịn, cung trịn

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

3 Đối tượng hình học: - Một hình hình học bao gồm nhiều đối tượng

- Đối tượng hình học gồm đối tượng tự đối tượng phụ thuộc 4 Củng cố: (5phút)

? Nêu ý nghĩa thao tác công cụ liên quan đến hình trịn 5 Dặn dị: (2 phút)

(31)

Tuần: 27 Ngày soạn: 28/2 /2016 Tiết: 52

Thực hành: HỌC VẼ HÌNH VỚI PHẦN MỀM GEOGEBRA I Mục tiêu:

1 Kiến thức:

- Biết cách khởi động phần mềm Geogebra máy tính Kĩ năng:

- Rèn luyện kĩ sử dụng phần mềm Geogebra Thái độ:

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

Bài mới:

15p

18p

+ Hoạt động 1: Khởi động phần mềm Geogebra

- Khởi động phần mềm Geogebra máy tính - Yêu cầu học sinh kết thúc phần mềm

- Yêu cầu học sinh khởi động phần mềm theo cách khác

+ Hoạt động 2: Nhận biết màn hình làm việc của phần mềm Geogebra.

+ Kích đúp vào biểu tượng hình để khởi động phần mềm theo yêu cầu giáo viên

+ Học sinh kết thúc phần mềm theo yêu cầu giáo viên + Nháy chuột vào menu Start \ All Programs\ GeoGebra \ GeoGebra để khởi động phần mềm

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

(32)

Yêu cầu học sinh nhận biết thành phần hình làm việc phần mềm máy tính

+ Học sinh thực theo hướng dẫn giáo viên

IV Nhận xét: (5phút)

Giáo viên nhận xét đánh giá tiết thực hành học sinh V Dặn dò: (2 phút)

- Xem trước từ tốn đến chương trình

-Tuần: 28 Ngày soạn: 06/3 /2016

Tiết: 53

Thực hành:

- Biết sử dụng phần mềm Geogebra để vẽ số hình hình học 2 Kĩ năng:

- Rèn luyện kĩ sử dụng phần mềm vẽ hình Geogebra 3 Thái độ:

Bài mới:

5p + Hoạt động : Khởi động phần mềm.

Yêu cầu học sinh khởi động

(33)

35p

phần mềm Geogebra

+ Hoạt động 2: Sử dụng phần mềm để làm số bài tập

Sử dụng phần mềm để vẽ số hình sau:

+ Kích đúp vào biểu tượng

ở hình để khởi động phần mềm theo yêu cầu giáo viên

+ Dùng công cụ vẽ đoạn thẳng để vẽ cạnh tam giác

+ Cho trước đỉnh A, B, C Dựng đỉnh D hình than ABCD dựa cơng cụ đoạn thẳng đường song song

+ Cho trước đỉnh A, B, C Dựng đỉnh D hình thang cân ABCD dựa công cụ đoạn thẳng, đường thẳng, đường trung trực phép biến đổi đối xứng qua trục Cho trước tam giác A, B, C Dùng công cụ đường tròn vẽ đường tròn qua điểm A,B,C

+ Cho trước tam giác A, B, C 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

2 Sử dụng phần mềm để vẽ số hình hình học: - Vẽ hình tam giác

- Vẽ hình thang

- Vẽ hình thang cân

- Vẽ đường tròn ngoại tiếp tam giác,

(34)

4, Nhận xét: (5phút)

- Giáo viên nhận xét đánh giá tiết thực hành học sinh

-Tuần: 28 Ngày soạn: 06/3 /2016

Tiết: 54

Thực hành:

- Biết sử dụng phần mềm Geogebra để vẽ số hình hình học 2 Kĩ năng:

- Rèn luyện kĩ sử dụng phần mềm vẽ hình Geogebra 3 Thái độ:

Bài mới:

5p

35p

+ Hoạt động : Khởi động phần mềm.

Yêu cầu học sinh khởi động phần mềm Geogebra

+ Hoạt động 2: Sử dụng phần mềm để làm số tập

Sử dụng phần mềm để vẽ số hình sau:

+ Kích đúp vào biểu tượng hình để khởi động phần mềm theo yêu cầu giáo viên

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

1 Khởi động phần mềm:

(35)

Sử dụng công cụ thích hợp học để dựng đỉnh C, D hình thoi

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

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

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

- Vẽ hình vng

- Vẽ hình tam giác

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

4 Nhận xét: (5phút)

- Giáo viên nhận xét đánh giá tiết thực hành học sinh

(36)

KIỂM TRA TIẾT ( LT) A MỤC TIÊU

- Hệ thống lại số kiến thức học

- Biết sử dụng vịng lặp xác định vịng lặp khơng xác định để viết chương trình B MA TRẬN ĐỀ

C ĐỀ KIỂM TRA

I/ TRẮC NGHIỆM (3 điểm)(Khoanh tròn vào đáp án đúng) Câu 1: Cú pháp câu lệnh For … là:

a for <biến đếm> := <Giá trị đầu> to <giá trị cuối> do<câu lệnh>; b for <biến đếm> := <Giá trị cuối> to <giá trị đầu> do<câu lệnh>; c for <biến đếm> = <Giá trị đầu> to <giá trị cuối> do<câu lệnh>; d for <biến đếm> = <Giá trị đầu> to; <giá trị cuối> do<câu lệnh>; Câu 2: Cho đoạn chương trình:

S:=0;

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

* Sau thực đoạn chương trình S có kết :

A 20 B 15 C 10 D

* Sau thực đoạn chương trình i có kết :

A B C D

Câu 3: Câu lệnh viết cú pháp ngôn ngữ lập trình Pascal là: a While <điều kiện> to <câu lệnh>;

b While <điều kiện> <câu lệnh>;

c While <điều kiện> to <câu lệnh1> <câu lệnh 2>; d While <điều kiện>; <câu lệnh>;

Câu 4: Cho đoạn chương trình: S: =0 ; n:= 0;

While S < = begin

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

Nội dung-Chủ đề

Nhận biết Thông hiểu Vận dụng Tổng điểm

TN TL TN TL TN TL TN

TL

Phần mềm tin học

Câu lệnh For … do

CI1

0.5 CI2

1 đ

CII1

4 đ

3

5,5 đ

Câu lệnh

while…do CI3 0.5 CI4 đ CII23 đ 4,5 đ

TỔNG 2

1 đ

2 2 đ

2 7 đ

6

(37)

End;

* Sau thực đoạn chương trình S có kết

A B 10 C 15 D 21

* Sau thực đoạn chương trình n có kết

A B C D

II/ TỰ LUẬN (6 điểm)

Câu 1. Các câu lệnh sau Pascal sau có hợp lệ khơng? NÕu kh«ng hÃy sửa lại cho hợp lệ? (4 đ) a) For i:= 100 to writeln(‘A’);

b) For i:= 1.5 to 10.5 Writeln(‘A’); c) X: = 10; while X: =10 X: = X + 5; d) X: = 10; while X =10 X = X + 5; Câu 2. (3 ®)

- Viết chương trình tính tổng + + 3+ + t với t số tùy ý người sử dụng nhập vào D ĐÁP ÁN VÀ BIỂU ĐIỂM

I/ TR C NGHI M (3 ) Ắ Ệ Đ Mỗi câu trả lời đạt 0,5 đ

Câu

Đáp án A C, D B B, C

II/ Tù luËn: Bµi 1:

Tất câu khơng hợp lệ (1 đ) Sửa lại

a) For i:= to 100 writeln(‘A’); b) For i:= to 10 Writeln(‘A’); c) X: = 10; while X =10 X: = X + 5; d) X: = 10; while X =10 X: = X + 5;

( Mỗi câu 0,75đ)

Bµi 2:

Program tinh_tong; Uses crt;

Var

i, t: Integer; Tong : Longint; Begin

Clrscr;

Writeln(‘ Moi ban nhap vao mot so y lon hon 0’); Readln(t);

For i:= to t Tong:= Tong + i; Wirteln(‘ + + ’, t, ‘ =’, Tong : 10); Readln;

End (3®)

_

Tuần: 29 Ngày soạn: 13/3/2016

Tiết: 56

(38)

I Mục tiêu: 1.Kiến thức:

- Làm quen với việc khai báo sử dụng biến mảng - Tìm hiểu số ví dụ biến mảng

2 Kĩ năng:

- Việc gán giá trị, nhập giá trị tính toán với giá trị phần tử biến mảng thực thông qua số tương ứng phần tử

3 Thái độ:

18p + Hoạt động 1: Tìm hiểu dãy số và biến mảng

- Yêu cầu HS đọc ví dụ 1

- Ví dụ Pascal ta cần nhiều câu lệnh khai báo nhập liệu dạng sau đây, câu lệnh tương ứng với điểm học sinh

? Dữ liệu mảng

+: Ví dụ Giả sử cần viết chương trình nhập điểm kiểm tra học sinh lớp sau in hình điểm số cao Vì biến lưu giá trị nhất, để nhập điểm so sánh chúng, ta cần sử dụng nhiều biến, biến cho học sinh

- 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ử

(39)

20p + Hoạt độ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 có kiểu tương ứng phần khai báo chương trình

- Yêu cầu học sinh nghiên cứu SGK => Nêu cách khai báo biến mảng

- Cách khai báo đơn giản một biến mảng ngôn ngữ Pascal sau:

var Chieucao: array[1 50] of real;

var Tuoi: array[21 80] of integer;

số:

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

+ 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

2 Ví dụ biến mảng:

Cách khai báo

mảng

Pascal sau: Tên mảng : array[<chỉ số đầu> <chỉ số cuối>] of <kiểu dữ liệu>;

- Hãy nêu cách khai báo biến mảng, cho vài ví dụ khai báo biến mảng 5 Dặn dò (5 phút)

-Tuần: Ngày soạn: 28/3/2016

(40)

LÀM VIỆC VỚI DÃY SỐ (tt) I Mục tiêu:

- Làm quen với việc khai báo sử dụng biến mảng - Biết cách tìm giá trị lớn giá trị nhỏ dãy số 2 Kĩ năng:

- Rèn luyện kĩ tìm giá trị lớn giá trị nhỏ dãy số 3 Thái độ:

1 Ổn định lớp: 2 Kiểm tra cũ:

? Hãy nêu lợi ích việc sử dụng biến mảng chương trình 3 Bài mới:

18p

20p

+ Hoạt động : Tìm hiểu cách tìm giá trị lớn giá trị nhỏ dãy số.

Ví dụ Viết chương trình nhập N số ngun từ bàn phím in hình số nhỏ số lớn N nhập từ bàn phím

- Giáo viên đưa ý tưởng để viết chương trình

Trước hết ta khai báo biến N để nhập số số nguyên nhập vào Sau khai báo N biến lưu số nhập vào phần tử biến mảng A Ngoài ra, cần khai báo biến i làm biến đếm cho lệnh lặp biến Max để lưu số lớn nhất, Min để lưu số nhỏ

- Yêu cầu học sinh tìm hiểu ý

+ Học sinh đọc tìm hiểu yêu cầu toán

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

+ Học sinh thực theo yêu cầu

(41)

nghĩa câu lệnh chương trình

- Trong chương trình này, lưu ý số điểm sau: Số tối đa phần tử mảng phải khai báo số cụ thể (Ở 100)

của giáo viên 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, = '); readln(n);

writeln('Nhap cac phan tu cua day so:');

For i:=1 to n Begin

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

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

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

+ Học sinh ý lắng nghe

- “Có thể xem biến mảng biến tạo từ nhiều biến có kiểu tiên nhất” Phát biểu hay sai

5 Dặn dò (5 phút)

- Về nhà học bài, kết hợp SGK, tiết sau làm tập

Tuần: Ngày soạn: 4/4/2016

(42)

BÀI TẬP

- 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 2 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 3 Thái độ:

1 Ổn định lớp: 2 Kiểm tra cũ:

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

13p

20p

+ Hoạt động 1: Ôn tập câu lệnh lặp xác định For do. ? Nêu cú pháp vòng lặp xác định

? Nêu hoạt động vòng lặp

+ Hoạt động 2:Bài tập.

1 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');

d) for i:=1 to 10 do; writeln('A');

e) var x: real; begin for x:=1 to 10 writeln('A');

+ Cú pháp: For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>;

+ Hoạt động vòng lặp: - B1: biến đếm nhận giá trị đầu - B2: Chương trình kiểm tra biểu thức điều kiện, biểu thức điều kiện thực câu lệnh - B3: Biến đếm tự động tăng lên đơn vị quay lại B2

- B4: Nếu biểu thức điều kiện nhận giá trị sai khỏi vòng lặp

+ Trừ câu 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

? Nêu cú pháp vòng lặp xác định

? Nêu hoạt động vòng lặp

1 Các câu lệnh Pascal sau có hợp lệ khơng, sao?

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

g) for i:=1.5 to 10.5 writeln('A');

(43)

10p

end.

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

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

* Thuật tốn tính tổng: A = 1 31 +

2 4+

3 5+

n(n+1) Bước 1 Gán A  0, i 

Bước 2 A  ( 2)

i i .

Bước 3 i i +

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

writeln('A'); i) for i:=1 to 10 do; writeln('A');

j) var x: real; begin for x:=1 to 10 writeln('A'); end

- Về nhà học kết hợp sách giáo khoa, tiết sau Thực hành

(44)

-Tuần: Ngày soạn: 5/4/2016 Tiết: 59

Bài thực hành số 7:

XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH

- Làm quen với việc khai báo sử dụng biến mảng - Ôn luyện cách sử dụng câu lệnh lặp for

2 Kĩ năng:

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

Bài mới:

T/g Hoạt động thầy Hoạt động trị Nội dung

18p

Chương trình tìm giá trị nhỏ dãy số nguyên P_Min ?

HS chia nhóm làm thực hành

Bài 1:

Program P_Min; Var

i, n, Min : integer;

A: array[1 100] of integer; Begin

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;

Min:=a[1];

for i:=2 to n do if Min>a[i] then Min:=a[i];

(45)

20p 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á, TB

Tiêu chuẩn:

- Loại giỏi: 8.0 trở lên - Loại khá: 6.5 đến 7.9 - Loại TB: 5.0 đến 6.4 - Loại kém: 5.0

GV gợi ý:

- Dùng câu lệnh if…then…

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

End Bài 2:

Program Phan_loai; uses crt;

Var

i, n, G, Kh, TB, K: integer; A: array[1 100] of real; Begin

clrscr;

write('nhap so HS lop, n= '); readln(n);

writeln('Nhap diem :'); For i:=1 to n do Begin

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

G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do

Begin

if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1;

if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1;

if (a[i] >= ) and (a[i] < 6.5) then TB:= TB + 1;

end;

writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha ');

writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem ');

readln; End

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á, TB

Tiêu chuẩn: - Loại giỏi: 8.0 trở lên

- Loại khá: 6.5 đến 7.9

- Loại TB: 5.0 đến 6.4

- Loại kém: 5.0

(46)

Tuần: Ngày soạn: 5/4/2016 Tiết: 60

Bài thực hành số (tt)

XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH

- Làm quen với việc khai báo sử dụng biến mảng - Ôn luyện cách sử dụng câu lệnh lặp for

2 Kĩ năng:

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

Bài mới:

10p

Chương trình tính tổng dãy số, in hình dãy số vừa nhập

Bài 1:

Program P_Sum; Var

i, n, Sum : integer;

A: array[1 100] of integer; Begin

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;

Sum:=0;

for i:=1 to n do Sum:= Sum + a[i];

(47)

28p

Bổ sung chỉnh sửa chương trình BT2 (tiết 59 ) để nhập loại điểm Toán Ngữ văn bạn Sau in hình :

a/ điểm TB bạn lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2

b/ Điểm TB lớp theo mơn Tốn Ngữ văn

write('Day so vua nhap la: '); for i:=1 to n do write(a[i], ' '); writeln;

write('Tong day so la = ',Sum); readln;

End Bài 2:

Program Xep_loai; uses crt;

Var

i, n: integer;

TBtoan, TBvan: real;

diemT, diemV: array[1 100] of real; Begin

clrscr;

writeln('Diem TB : '); For i:=1 to n do

write(i,' ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0;

For i:=1 to n do Begin

TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end;

TBtoan: = TBtoan /n; TBvan: = TBvan /n;

writeln('Diem TB mon Toan : ',TBtoan : 3:2);

writeln('Diem TB mon Van: ',TBvan : 3:2);

readln; End

Bổ sung

chỉnh sửa

chương trình BT2 (tiết 59 ) để nhập loại điểm Toán Ngữ văn bạn Sau in hình : a/ điểm TB bạn lớp theo cơng thức:

Điểm TB = (Điểm tốn + điểm văn)/2 b/ Điểm TB lớp theo môn Toán Ngữ văn

(48)

-Tuần: Ngày soạn:11/4/2016 Tiết: 61

QUAN SÁT HÌNH KHÔNG GIAN VỚI PHẦN MỀM YENKA I Mục tiêu:

- Học sinh nghe giới thiệu phần mềm Yenka

- Nắm khung hình làm việc tạo số mơ hình làm việc 2 Kĩ năng:

- Rèn luyện kĩ khởi động tìm hiểu hình làm việc phần mềm 3 Thái độ:

- GV: SGK, giáo án, tài liệu tham khảo - HS: SGK, ghi, đọc trước III Phương pháp:

- Đặt vấn đề, đưa yêu cầu để học sinh trao đổi - Gv quan sát, hướng dẫn nhận diện phần mềm IV Tiến trình dạy học:

2 Kiểm tra chuẩn bị học sinh. 3 Bài mới:

13p + Hoạt động 1: Giới thiệu phần mềm Yenka.

- Cho học sinh đọc thông tin SGK

Yenka phần mềm nhỏ, đơn giản hữu ích làm quen với hình khơng gian hình chóp, hình nón, hình trụ Ngồi việc tạo hình này, em cịn thay đổi kích thước, màu, di chuyển xếp chúng Từ hình khơng gian em cịn sáng tạo mơ hình hồn chỉnh cơng trình xây dựng, kiến trúc theo ý

1 Giới thiệu phần mềm Yenka:

(49)

13p

12p

+ Hoạt động 2: Tìm hiểu màn hình làm việc phần mềm

Cho học sinh đọc thông tin phần

- Để khởi động phần mềm ta làm

- Hãy cho biết màm hình củ phần mềm có nhữ gì?

- Hãy nêu cách khỏi phần mềm

Cho học sinh đọc thông tin phần + Hoạt động 3: Tìm hiểu cách tạo hình khơng gian.

Giáo viên giới thiệu bảng tạo mơ hình hình học khơng gian

- Nháy đúp vào biểu tượng để khởi động phần mềm, xuất cửa sổ sau đây:

- Hộp công cụ dùng để tạo hình khơng gian Các hình tạo khung hình

- Thanh cơng cụ chứa nút lệnh dùng để điều khiển làm việc với đối tượng

- Muốn thoát khỏi phần mềm, nháy nút Close công cụ

- Để thiết lập đối tượng hình đầu, em phải làm việc với hộp công cụ: Objects

- Các công cụ dùng để tạo hình khơng gian thường gặp gồm hình trụ ( ), hình nón ( ), hình chóp ( ) hình lăng trụ ( ) Khi kéo thả đối tượng vào hình, em nhận mơ hình có dạng sau: - Ta sử dụng công cụ đặc biệt phần mềm để

2 Giới thiệu phần mềm làm việc chính phần mềm.

a) Khởi động phần mềm:

(50)

 GV giới thiệu số chức

Nháy vào biểu tượng công cụ Khi trỏ trở thành dạng

Đưa trỏ chuột lên mơ hình, nhấn giữ di chuyển chuột, em thấy mơ hình quay không gian 3D Lệnh hết tác dụng em thả chuột

Phóng to, thu nhỏ

Nháy chuột vào biểu tượng cơng cụ Khi trỏ trở thành dạng

Nhấn giữ di chuyển chuột em thấy mơ hình phóng to, thu nhỏ tuỳ thuộc vào di chuyển chuột Lệnh hết tác dụng em thả chuột

Dịch chuyển khung mơ hình Nháy chuột vào biểu tượng cơng cụ Khi trỏ trở thành dạng

Nhấn giữ di chuyển chuột em thấy mơ hình chuyển động theo hướng di chuyển chuột

quan sát tốt mơ hình vừa tạo

(51)

Lệnh hết tác dụng em thả chuột

- Màn hình làm việc phần mềm gồm thành phần nào? 5 Dặn dò (5 phút)

-Tuần: Ngày soạn:11/4/2011

Tiết: 62

QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA (tt) I Mục tiêu:

- Học sinh nắm ý nghĩa số lệnh bản, khám phá điều khiển hình khơng gian

2 Kĩ năng:

- Có kỹ tạo hình nhờ vào lệnh điều khiển hình học khơng gian đơn giản mà học sinh vẽ

3 Thái độ:

1 Ổn định lớp 2 Kiểm tra cũ:

? Màn hình làm việc phần mềm gồm thành phần nào? 3 Bài mới:

18p + Hoạt động 1: Tìm hiểu cách tạo hình khơng gian (tt) - Giáo viên giới thiệu Menu File

3 Tạo hình khơng gian:

(52)

20p

=> Nêu cách tạo mới, lưu mở tệp mơ hình

+ Hoạt động : Tìm hiểu cách điều khiển hình khơng gian.

- Để thay đổi di chuyển đối tượng hình học ta làm nào?

? Nêu cách để thay đổi kích thước

- Giáo viên giới thiệu cách thay đổi màu cho hình Muốn tơ màu, thay đổi màu cho hình, em dùng cơng cụ Khi nháy chuột vào công cụ em thấy danh sách màu sau:

Các bước thực tô màu: Kéo thả màu mơ hình Khi hình xuất chấm đen cho biết

+ Học sinh ý lắng nghe quan sát

+ Để tạo ta chọn Menu File => New

+ Để lưu ta chọn Menu File => Save (Save as)

+ Để mở tệp mơ hình ta chọn Menu File => Open

- Muốn di chuyển hình khơng gian, ta kéo thả đối tượng

- Để thay đổi kích thước đối tượng trước tiên cần chọn hình Khi xuất đường viền nút nhỏ đối tượng, cho phép tương tác để thay đổi kích thước Tuỳ vào đối tượng mà nút, đường viền có dạng khác

b) Các lệnh tạo mới, lưu, mở tệp mơ hình

4 Khám phá, điều khiển hình khơng gian:

a) Thay đổi, di chuyển

b) Thay đổi kích thước

(53)

hình thay đổi màu Kéo thả màu vào chấm đen để tơ màu

Ví dụ, ta tơ màu mặt hình lăng trụ tam giác với màu khác

- Nêu cách thay đổi, di chuyển hình khơng gian? 5 Dặn dị (5 phút)

Tiết: 63

- Học sinh nắm ý nghĩa số lệnh bản, khám phá điều khiển được hình khơng gian

2 Kĩ năng:

3 Thái độ:

2 Kiểm tra cũ: (5p)

(54)

13p

20p

+ Hoạt động 1: Tìm hiểu cách điều khiển hình khơng gian(tt).

- Giáo viên giới thiệu Menu File

=> Nêu cách tạo mới, lưu mở tệp mô hình

+ Hoạt động : Tìm hiểu số chức nâng cao - Để thay đổi di chuyển đối tượng hình học ta làm nào?

- Đối với hình khơng gian, ngồi việc thay đổi màu sắc, kích thước, ta thay đổi kiểu mẫu thể

+ Học sinh ý lắng nghe quan sát

c) Thay đổi màu cho cách hình

5 Một số chức năng nâng cao

a) Thay đổi mẫu thể hình

* Thao tác thực hiện: Nháy đúp chuột để mở hộp thoại t/c hình

2 Chọn Surface apperance

3 Chọn Use material chọn mẫu danh sách Material

(55)

không gian

+ Nháy nút lệnh khung Rotation

- Nêu cách thay đổi, di chuyển hình khơng gian? 5 Dặn dị (5 phút)

(56)

THỰC HÀNH

QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA I Mục tiêu:

- Học sinh nghe giới thiệu phần mềm Yenka

- Nắm khung hình làm việc tạo số mơ hình làm việc 2 Kĩ năng:

- Rèn luyện kĩ khởi động tìm hiểu hình làm việc phần mềm 3 Thái độ:

13p

+ Hoạt động 1: Giới thiệu phần mềm Yenka.

- Cho học sinh đọc thông tin SGK

Yenka phần mềm nhỏ, đơn giản hữu ích làm quen với hình khơng gian hình chóp, hình nón, hình trụ

+ Hoạt động 2: Tìm hiểu màn hình làm việc phần mềm

- Để khởi động phần mềm ta

- Nháy đúp vào biểu tượng

1 Giới thiệu phần mềm Yenka:

(57)

12p

làm

- Hãy nêu cách thoát khỏi phần mềm

+ Hoạt động 3: Thực hành cách tạo hình khơng gian.

Giáo viên giới thiệu bảng tạo mơ hình hình học không gian

 GV giới thiệu số chức

Nháy vào biểu tượng cơng cụ Khi trỏ trở thành dạng

Đưa trỏ chuột lên mơ hình, nhấn giữ di chuyển chuột, em thấy mơ hình quay

để khởi động phần mềm, xuất cửa sổ sau đây:

- Hộp cơng cụ dùng để tạo hình khơng gian Các hình tạo khung hình

- Thanh cơng cụ chứa nút lệnh dùng để điều khiển làm việc với đối tượng - Muốn thoát khỏi phần mềm, nháy nút Close công cụ

HS: Thực hành

- Để thiết lập đối tượng hình đầu, em phải làm việc với hộp công cụ: Objects

- Các cơng cụ dùng để tạo hình khơng gian thường gặp gồm hình trụ ( ), hình nón ( ), hình chóp ( ) hình lăng trụ ( ) Khi kéo thả đối tượng vào hình, em nhận mơ hình có dạng sau: - Ta sử dụng cơng cụ đặc biệt phần mềm để quan sát tốt mô hình vừa tạo

a) Khởi động phần mềm:

(58)

không gian 3D Lệnh hết tác dụng em thả chuột

Phóng to, thu nhỏ

Nháy chuột vào biểu tượng công cụ Khi trỏ trở thành dạng

Nhấn giữ di chuyển chuột em thấy mơ hình phóng to, thu nhỏ tuỳ thuộc vào di chuyển chuột Lệnh hết tác dụng em thả chuột

Dịch chuyển khung mơ hình Nháy chuột vào biểu tượng công cụ Khi trỏ trở thành dạng

Nhấn giữ di chuyển chuột em thấy mơ hình chuyển động theo hướng di chuyển chuột Lệnh hết tác dụng em thả chuột

- Học sinh thực hành

- Gv nhận xét tiết thực hành 5 Dặn dò (5 phút)

- Về nhà học bài, kết hợp SGK Tiết sau tiếp tục thực hành

(59)

THỰC HÀNH

2 Kĩ năng:

3 Thái độ:

Bài mới:

18p

20p

+ Hoạt động 1: Thực hành cách tạo hình không gian (tt) - Giáo viên giới thiệu Menu File

+ Học sinh ý lắng nghe thực hành

3 Tạo hình khơng gian:

(60)

+ Hoạt động 2: Thực hành cách điều khiển hình khơng gian.

- Giáo viên giới thiệu cách thay đổi màu cho hình Muốn tơ màu, thay đổi màu cho hình, em dùng cơng cụ Khi nháy chuột vào công cụ em thấy danh sách màu sau:

Các bước thực tô màu: Kéo thả màu mơ hình Khi hình xuất chấm đen cho biết hình thay đổi màu Kéo thả màu vào chấm đen để tơ màu

Ví dụ, ta tơ màu mặt hình lăng trụ tam giác với màu khác

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

- GV nhận xét, đánh giá tiết thực hành 5 Dặn dò (5 phút)

(61)

THỰC HÀNH

2 Kĩ năng:

3 Thái độ:

việc phần mềm gồm thành phần nào? Bài

15p + Hoạt động 1: Thực hành cách điều khiển hình khơng gian(tt).

- Giáo viên giới thiệu Menu File

+ Học sinh ý lắng nghe thực hành

+ Để mở tệp mơ hình ta chọn

(62)

23p

+ Hoạt động : Tìm hiểu số chức nâng cao - Để thay đổi di chuyển đối tượng hình học ta làm nào?

- Đối với hình khơng gian, ngồi việc thay đổi màu sắc, kích thước, ta cịn thay đổi kiểu mẫu thể

Menu File => Open

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

5 Một số chức năng nâng cao

a) Thay đổi mẫu thể hình

* Thao tác thực hiện: Nháy đúp chuột để mở hộp thoại t/c hình

2 Chọn Surface apperance

3 Chọn Use material chọn mẫu danh sách Material

b) Quay hình khơng gian

+ Nháy nút lệnh khung Rotation

- GV nhận xét, đánh giá tiết thực hành 5 Dặn dò (5 phút)

(63)

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

KIỂM TRA TIẾT ( TH) I Mục tiêu:

- Hệ thống lại số kiến thức học

- Biết sử dụng vịng lặp xác định vịng lặp khơng xác định để viết chương trình II Đề bài:

Câu 1: Em viết chương trình tính tổng số chẵn từ đến 100 (6đ) Câu 2: Em dịch sửa lỗi chương trình (nếu có) (2đ)

Câu 3: Em chạy chương trình kiểm tra kết (2đ) III Đáp án:

Câu 1: Chương trình tính tổng số chẵn từ đến 100 (sử dụng vòng lặp không xác đinh) Program tinh_tong_cac_so_chan;

Var i, S: Integer; Begin

S:= 0; i:= 2;

While i <= 100 Begin

S:= S+ i; i:= i + 2; End;

Writeln( ‘ Tong cac so chẳn tu den 100 =’, S); Readln;

End

Câu 2: Nhấn F9 để dịch sửa lỗi chương trình

Câu 3: Nhấn Ctrl +F9 để chạy kiểm tra chương trình

(64)

Tiết: 68 Ngày dạy: ÔN TẬP

I MỤC TIÊU:

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

- Rèn kỹ đọc hiểu chương trình có sử dụng vòng lặp while

II PHƯƠNG PHÁP

1 Phương pháp: Thuyết trình, nêu vấn đề, vấn đáp Phương tiện: Máy tính,

III CHUẨN BỊ: 1 Giáo viên:

- Chuẩn bị số thuật tốn chương trình

2 Học sinh:- Thực nhiệm vụ nhà tiết trước D TIẾN TRÌNH BÀI DẠY:

1 ỔN ĐỊNH LỚP

2 KIỂM TRA SỰ CHUẨN BỊ CỦA HS 3 BÀI MỚI

Hoạt động giao viên học sinh Hoạt động giáo viên Sử dụng biến mảng chiều để viết

chương trình sau

Bài 1: Viết chương trình nhập dãy số, in số lẻ hình, tính tổng số lẻ có danh sách

Bài 1:

program tong_ds;

var a:array[1 100] of integer; i,n,s:integer;

begin

write('nhap n: ');readln(n); for i:=1 to n do

begin

write('nhap so thu ',i,':'); readln(a[i]);

end;

for i:=1 to n do

if a[i] mod 2<>0 then write(a[i],' ');

s:=0;

for i:=1 to n do

if a[i] mod 2<>0 then s:=s+a[i];

write('tong cac so le mang la',s:4);

(65)

Bài 2: Viết chương trình nhập dãy số, in số chẵn hình, tính tổng số chẵn có danh sách

end. Bài 2:

program tong_ds;

var a:array[1 100] of integer; i,n,s:integer;

begin

write('nhap n: ');readln(n); for i:=1 to n do

begin

write('nhap so thu ',i,':'); readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

s:=0;

for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i];

write('tong cac so chan mang la',s:4);

readln; end.

4 Củng cố:

- Giáo viên hệ thống lại toàn nội dung học - Nhận xét, rút kinh nghiệm tiết ôn tập

5 Hướng dẫn nhà:

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

(66)

Định dạng
Số trang	66
Dung lượng	696,59 KB