Giáo án môn Lịch sử lớp 9 - PTTH Thuận Châu – Sơn La

, trang 63 và chạy thử chương trình.
 - Chiếu chương trình lên bảng .
 - Hỏi: Khai báo Uses CRT; có ý nghĩa gì?
 - Hỏi: Myarray là tên kiểu dữ liệu hay tên biến?
 - Hỏi: Vai trò của nmax và n có gì khác nhau?
 - Hỏi: Những dòng lệnh nào dùng để tạo biến màng a?
 - Thực hiện chương trình để học sinh thấy kết quả.
 - Hỏi: Lệnh gán a[i]:=random(300) – random(300) có ý nghĩa gì?
 - Hỏi: Lệnh Fori:=1 to n do
 Write(A[i]:5);có ý nghĩa gì?
 - Hỏi : Lệnh For – Do cuối cùng thực hiện nhiệm vụ gì?
 - hỏi: Lệnh s:=a+a[i]; được thựchiện bao nhiêu lần?
 - Thực hiện lại chương trình lần cuối để học sinh thấy kết quả.
 2. Sửa chương trình câu a để được chương trình giải quyết bài toán ở câu b.
 - Chiếu lên màn hình các lệnh cần thêm vào chương tình ở câu a.
 - Hỏi: ý nghĩa của biến Posi và neg?
 - Hỏi: Chức năng của lệnh:
 If a[i] >0 then posi:=posi+1
 else if a[i] <0 then neg:=neg+1;
 - Yêu cầu học sinh thêm vào vị trí cần thiết để chương trình đếm được số.
 - Yêu cầu học gõ nội dung và lưu lại với tên caub.pas. thực hiện chương trình và báo cáo kết quả.
 1. Quan sát, chú ý và trả lời.
 - Khai báo thư viện chương trình con Crt để sử dụng được thủ tục Clrscr;
 - Tên kiểu dữ liệu.
 - nmax là số phần tử tối đa có thể chứa của biến mảng a.n là số phần tử thực tế của a.
 - Lệnh khai báo kiểu và khai báo biến.
 - Quan sát chương trình thực hiện và kết quả trên màn hình.
 - Lệnh sinh ngẫu nhiên giá trị cho mảng a từ – 299 đến 299.
 - In ra màn hình giá trị của từng phần tử trong mảng a.
 - Cộng các phần tử chia hết cho k.
 - Có số lần đúng bằng số phần tử a[i] chia hết k.
 - Quan sát giáo viên thực hiện chương trình và kết quả trên màn hình.
 2. Quan sát và chú ý theo dõi các câu hỏi của giáo viên:
 - Quan sát các lệnh và suy nghĩ vị trí cần sửa trong chương trình câu a.
 - Dùng để lưu số lượng đếm được.
 - Đếm số dương hoặc đếm số âm.
 - Chỉ ra vị trí cần thêm vào trong chương trình.
 - Lưu chương trình. Thực hiện chương trình và thông báo kết quả.
 2. Hoạt động 2: rèn luyện kĩ năng lập trình.
 a. Mục tiêu:
 - Viết được chương trình hoàn thiện bằng cách sử dụng lệnh và kểi dữ liệu mảng một chiều.
 b. Nội dung:
 - Viết chương trình tìm phần tử có giá trị lớn nhất của mảng và in ra màn hình chỉ số và giá trị của phần tử tìm được. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì chỉ đưa ra phần tử có chỉ số nhỏ nhất.
 c. Các bước tiến hành:
hướng dẫn của giáo viên
Hoạt động của học sinh
 1. láy một ví dụ thực tiễn: Người mù tìm viên sỏi có kích thước lớn nhất trong một dãy các viên sỏi để gợi ý cho học sinh thuật toán tìm giá trị lớn nhất.
 - Yêu cầu: Nêu thuật toán tìm phần tử có giá trị lớn nhất.
 2. Tìm hiểu chương trình tìm chỉ số và giá trị lớn nhất.
 - Chiếu chương tình ví dụ, sách giáo khoa, trang 64. 
 - Hỏi: Vai trò của biến j trong chương trình?
 - Hỏi: Nếu muốn tìm phần tử nhỏ nhất, cần sửa ở chỗ nào?
 - Hỏi: Nếu muốn tìm phần tử lớn nhất với chỉ số lớn nhất ta sửa ở chỗ nào?
 3. Đặt yêu cầu mới: Viết chương trình đưa ra các chỉ số của các phần tử có giá trị lớn nhất.
 - Hỏi: Cần giữ lại đoạn chương trình tìm giá trị lớn nhất không?
 - Hỏi: Cần thêm lệnh nào nữa?
 - Hỏi: Vị trí thêm các lệnh đó?
 - Yêu cầu: Viết chương trình hoàn thiện.
 - Yêu cầu học sinh nhập dữ liệu vào của giáo viên và báo kết quả.
 - Đánh giá kết quả của học sinh.
 1. Theo dõi vị trí của giáo viên.
 - So sánh lần lượt từ trái sang phải, giữ lại chỉ số của phần tử lớn nhất. 
 2. Quan sát chương trình, suy nghĩ và trả lời.
 - Giữ lại chỉ số của phần tử có giá trị lớn nhất.
 - Phép so sánh a[i] <a[j]
 - Chuyển thứ tự duyệt từ n-1 vè 1.
 3. Theo dõi yêu cầu, suy nghĩ các câu hỏi định hướng để viết chương trình.
 - Có.
 - Lệnh để in ra các chỉ số có giá tị bằng giá trị lớn nhất tìm được.
 - Sau khi tìm được giá trị lớn nhất.
 - Soạn chương trìnhvào máy. Thực hiện chương trình và thông báo kết quả.
 - Nhập dữ liệu vào và thông báo cho giáo viên dữ liệu ra.
 IV. Đánh giá cuối bài
 1. Những nội dung đã học.
 Một số thuật toán cơ bản:
 + Tìm tổng các phần tử thỏa mãn điều kiện nào đó.
 + Đếm số các phần tử thỏa mãn điều kiện nào đó.
 + Tìm phần tử lớn nhất, nhỏ nhất.
 2. Câu hỏi và bìa tập về nhà.
 - Viết chương trình nhập một mảng một chiều A[1..20] và nhập một số x. Đếm số lượng số trong A có giá trị bằng x.
 - Xem nội dung của bài thực hành số 4, sách giáo khoa, trang 65.
Bài thực hành số 4
 I. mục tiêu
 1. Kiến thức.
 - Củng cố lại các kiến thức cơ bản khi lập trình với kiểu dữ liệu mảng.
 - Làm quen với thuật toán sắp xếp đơn giản.
 2. Kĩ năng.
 - Rèn luyện kĩ năng sử dụng kiểu dữ liệu có cấu trúc, kĩ năng diễn đạt thuất toán bằng chương trình sử dụng dữ liệu kiểu mảng.
 - Rèn luyện kĩ năng nhận xét, phân tích và đề xuất cách giải bài toán sao cho chương trình chạy nhanh hơn.
 3. Thái độ.
 - Tự giác, chủ động trong khi thực hành.
 II. Đồ dùng dạy học
 1. Chuẩn bị của giáo viên
 - Phòng máy vi tính, máy chiếu Projedtor để hướng dẫn.
 2. Chuẩn bị của học sinh.
 - Sách giáo khoa, chương trình đã được viết sẵn.
 III. Hoạt động dạy – học .
 1. Hoạt động 1: Tìm hiểu chương trình diễn đạt của thuật toán sắp xếp.
 a. Mục tiêu:
 - Học sinh hiểu chương trình và thuật toán sắp xếp đơn giản.
 b. Nội dung:
 Bài toán 1: Viết chương trình sắp xếp các phần tử của mảng theo thứ tự không giảm.
Chương trình minhhọa:
 Uses CRT;
 Const nmax=250;
 type arrint=array[1..nmax] of integer;
 Var n, i, j, y:integer;
 a:arrint;
 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 i:=n dowto 2 do
 For i:=1 to i – 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 sau khi sap xep’);
 For i:=1 to n do write(a[i]:7);
 Writeln;
 readln;
 End.
 - Yêu cầu: Soan chương trình vào máy, chạy thử với các giá trị khac nhau của n. Rút ra nhận xét về thời gian thực hiện của hcương trình.
 c. Các bước tiến hành:
hướng dẫn của giáo viên
Hoạt động của học sinh
 1. Gợi ý cho học sinh thuật toán sắp xếp tăng dần.
 - Lấy một ví dụ thực tiễn: Người mù sắp xếp một dãy các viên bi theo kích thước không giảm.
 - Yêu cầu: Vạch ra các bước để sắp xếp các phần tử của một mảng không giảm.
 2. Tìm hiểu chương trình ví dụ, sách giáo khoa, trang 65.
 - Chiếu chương trình ví dụ lên bảng.
 - Hỏi: Vai trò của biến i, j trong chương trình? Mỗi vòng lặp For trong đoạn chương trình sắp xếp có ý nghĩa gì?
 - Hỏi: Ba lệnh tg:=a[i]; a[i]:=a[i+1]; a[i+1]:=tg; có ý nghĩa gì?
 - Thực hiện chương trình, nhập dữ liệu để học sinh thấy kết quả chương trình.
 - Hỏi: Chương trình làm công vịêc gì?
 3. Sửa chương trình để giẩi quyết bài toán ở câu b.
 - Đặt yêu cầu mới: Khai báo thêm biến nguyên Dem và bổ sung vào chương trình đoạn 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. In kết quả tìm được ra màn hình.
 - Hỏi: Đoạn chương trình nào dùng để thực hiện tráo đổi giá trị?
 - Yêu cầu học sinh viết lệnh để đếm số lần tráo đổi.
 - Hỏi: Lệnh này được viết ở vị nào trong chương trình?
 - Yêu cầu học sinh soạn chương trình?
 - Yêu cầu học sinh nhập dữ liệu vào của giáo viên và thông báo kết quả.
 - Đánh giá kết quả của học sinh.
 1. CHú ý theo dõi những dẫn dắt của giáo viên để trả lời câu hỏi.
 - Lần lượt lấy từng phần tử từ trái qua phải.
 - Cứ mỗi phần tử ta đem so sánh lần lượt với các phần tử đứng bên phải của nó.
 - Nếu nhỏ hơn thì đổi chỗ.
 2. Quan sát chương trình, suy nghĩ câu hỏi và trả lời.
 - Biến i, j dùng làm chỉ số.
 - Mỗi vòng lặp For ứng với mỗi phép duyệt lần lượt.
 - Dùng để đổi giá trị của hai phần tử a[i] với a[i+1].
 - Quan sát giáo viên thực hiện chương trình.
 - Chương trình sắp xếp dãy số theo thứ tự không giảm.
 3. Quan sát yêu cầu mới, chú ý định hướng giải quyết của giáo viên.
 tg:=a[i];a[i]:=a[i+1];a[i+1]:=tg;
 - Dem := Dem+1;
 - Ngay sau đoạn tráo đổi.
 - Soạn chương trình vào máy, thực hiện chương trình và thông báo kết quả.
 - Nhập dữ liệu theo yêu cầu của giáo viên, thực hiện chương trình và thông báo kết quả sau khi thực hiện.
 2. Hoạt động 2: Rèn luyện kĩ năng nhận xét, phân tích và đề xuất cách giải bào toán sao cho chương trình chạy nhanh hơn.
 a. Mục tiêu:
 - Học sinh biết sử dụng kiểu mảng để lập trình giải một bài toán. Biết nhận xét, phân tích để đề xuất phương pháp giải hay.
 b. Nội dung:
 Cho mảng A gồm n phần tử. Viết chương trình tạo mảng B[1..n], trong đó B[i] là tổng giá trị của i phần tử đầu tiên của mảng A.
 Chương trình minh họa:
 Const nmax=100;
 Type myarray=array[1..nmax] ò integer;
 Var n, i, j:integer;
 a,b:arrint;
 Begin
 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 i:=1 to n do
 Begin
 B[i]:=0;
 For j:=1 to i do B[i]:=B[i]+A[j];
 End;
 For i:=1 to n do write(B[i]5);
 Readln;
 End.
 c. Các bước tiến hành:
hướng dẫn của giáo viên
Hoạt động của học sinh
 1. Xác định bài toán.
 - Chiếu đề bài lên bảng.
 - Yêu cầu: Xác định dữ liệu vào, dữ liệu ra?
 - Gợi ý để học sinh đề xuất thuật toán thô.
 2. giới thiệu chương trình chưa cải tiến.
 - Chiếu chương trình diễn đạt thuật toán.
 - Thực hiện chương trình để học sinh biết thời gian thực hiện chương trình và kết quả của chương trình.
 - Hỏi: Trong chương trình phải thực hiên bao nhiêu phép toán cộng?
 - Hỏi: Có cách nào để cải tiến?
 - Lệnh này được thay lệnh nào trong chương trình? Viết ở vị trí nào?
 3. Yêu cầu: Viết chương trình hoàn thiện.
 4. Tiểu kết: Cùng một bài toán, có nhiều cách giải quyết khác nhau. Người lập trình cần chọn cách sao cho máy thực hiện nhanh nhất. 
 1. Quan sát đề bài và trả lời câu hỏi.
 - Vào: Mảng A gồm n phần tử.
 - Ra: Mảng B gồm n phần tử.
 - Tại vị trí i ta tính tổng giá trị các phần tử từ 1 đến i.
 2. Quan sát chương trình trên bảng.
 - Quan sát giáo viên thực hiện, nhận xét về thời gian thực hiện chương trình.
 -