I.Mục đích:
+ Củng cố cho hs những kiến thức và kĩ năng đã có khi LT với kiểu dl mảng.
- Củng cố 1 thuật toán sắp xếp các ptử của 1 dãy bằng tráo đổi và kĩ năng diễn đạt thuật toán này bằng chương trình sd dl kiểu mảng.
- Rèn luyện hs 1 ý thức cần có của người LT là viết ctrình với Klượng tính toán ít nhất có thể được.
- Góp phần hình thành và rèn luyện tư duy LT, tác phong của người LT
II.Biện pháp: Dạy và học hợp tác trong nhóm nhỏ.
III. Phương tiện:
- GV: Ph òng m áy vi t ính
- HS: Sách bài tập.
IV. Nội dung tiết dạy.
1. Ổn định tổ chức:
2. Kiểm tra bài cũ:
3. Tiến trình bài học:
Ngày soạn: 10/01/2010 Ngày dạy: 13/01/2010 Tiết : 26,27 BÀI TẬP VÀ THỰC HÀNH 4. I.Mục đích: + Củng cố cho hs những kiến thức và kĩ năng đã có khi LT với kiểu dl mảng. - Củng cố 1 thuật toán sắp xếp các ptử của 1 dãy bằng tráo đổi và kĩ năng diễn đạt thuật toán này bằng chương trình sd dl kiểu mảng. - Rèn luyện hs 1 ý thức cần có của người LT là viết ctrình với Klượng tính toán ít nhất có thể được. - Góp phần hình thành và rèn luyện tư duy LT, tác phong của người LT II.Biện pháp: Dạy và học hợp tác trong nhóm nhỏ. III. Phương tiện: - GV: Ph òng m áy vi t ính - HS: Sách bài tập. IV. Nội dung tiết dạy. 1. Ổn định tổ chức: 2. Kiểm tra bài cũ: 3. Tiến trình bài học: Hoạt động Nội dung GV: - Chia nhóm cho hs thực hành. Y/c hs đọc và nghiên cứu đề bài. -Y/c hs chạy chương trình SGK(65) và tìm hiểu. Hs: làm theo hướng dẫn của gv. GV: Câu lệnh ghép sau có ý nghĩa gì? Begin T:=A[i]; A[i]:=A[i+1]; A[i+1]:=t; End; HS: Trao doi A[i] và A[i+1] GV: Nxét về thời gian chạy ctrinh. HS: GV: Y/c hs nghiên cứu và làm tiếp phần b. - Gọi 1 hs lên bảng chạy ctrinh phần B. HS: Dưới lớp làm bài. - 1 hs đại diện lên bảng chạy ctrinh. Bài 1: Hãy tìm hiểu và chạy thử ctrinh thực hiện thuật toán sắp xếp dãy số nguyên bằng thuật toán tráo đổi với các giá trị khác nhau của n dưới đây. Program sapxepdayso; Uses crt; Const nmax=250; Type ArrInt=array[1..nmax] of integer; Var A:ArrInt; n,i,j,y: integer; Begin Clrscr; randomize; Write (‘Nhap n=’); Readln(n); For i:=1 to n do A[i]:=random(300)-random(300); For i:=1 to n do write(A[i]:5); Writeln; For j:=n downto 2 do For i:=1 to j-1 do If A[i] >A[i+1] then Begin T:=A[i]; A[i]:=A[i+1]; A[i+1]:=t; End; Writeln(‘Day so duoc sap xep la: ’); For i:=1 to n do Write (A[i]:7); Writeln; Readln End. + Qua đó nhận xét về thời gian chạy ctrinh. B, Khai báo thêm biến nguyên Dem và bổ sung vào ctrinh những câu lệnh cần thiết để biến Dem tính số lần thực hiện tráo đổi trong thuật toán. Đưa kq tìm được ra màn hình. 4. Củng cố: Từ ArrInt có phải là 1 hàm chuẩn ko? Có thể thay thế bằng 1 từ khác được không. 5.Dặn dò: Về nhà nghiên cứu và làm bài tập số 2 SGK tr66.
Tài liệu đính kèm: