Giáo án môn Tin học 11 - Bài tập và thực hành 3

<span class='text_page_counter'>(1)</span>Ngµy so¹n: 2/01/2010 Ngµy d¹y: 6/01/2010 TiÕt : 24,25 BÀI TẬP VÀ THỰC HÀNH 3. I.Mục đích: + Củng cố cho hs những hiểu biết về kiểu dl mảng. -T/chức những h/đ trong pm để hs có được các kĩ năng cban lviệc với kiểu mảng 1 chiều trong LT. - Khai báo kiểu dl, nhập đưa ra màn hình chỉ số và giá trị các ptử của mảng. - Duyệt qua tất cả các ptử của mảng để xử lí từng ptử. + Cung cấp cho hs 3 thuật toán cbản và đơn giản thường gặp với dl kiểu mảng. Tính tổng và đếm các ptử thỏa mãn đ/k nào đó. Tìm ptử max (min) của mảng cùng với vị trí của nó trong mảng… 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(63) và tìm hiểu. Hs: chạy ctrinh theo y/c của gv. - Nhấn Ctrl+F9 rồi nhập n=5. - Y/c đại diện 5 nhóm đứng dậy đọc kq. HS: đứng dậy đọc kết quả theo y/c. ! Tại sao cùng 1 ctrinh và nhập n=5 thì lại ra 3 kết quả khác nhau. => - Hàm chuẩn random(n) cho gtri là số nguyên ngẫu nhiên trong phạm vi từ 0 đến n-1.. Bài1: Tạo mảng A gồm (n<=100) số nguyên, mỗi số có trị tuyệt đối không vượt quá 300. Tính tổng các phần tử của mảng là bội số của 1 số nguyên dương k cho trước. A, Tìm hiểu và chạy ctrình. Program Sum1; Uses crt; Const nmax=100; Type Myarray=array[1..nmax] of integer; Var A:Myarray; S,n,I,k:integer; Begin Clrscr; randomize;. Lop11.com.

<span class='text_page_counter'>(2)</span> - Còn thủ tục Randomize dùng để khởi tạo cơ chế sinh số ngẫu nhiên. ? Câu lệnh A[i]:=random(300)random(300); có ý nghĩa gì. Hs: Cho giá trị ngẫu nhiên trong phạm vi từ 299 đến -299. ? Câu lệnh write(A[i]:5); có ý nghĩa gì. Hs: Viết kết quả của mảng A[i] cách nhau 5 kí tự.. 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; Write (‘Nhap k=’’); Readln(k); S:=0; For i:=1 to n do If A[i] mod k=0 then s:=s+A[i]; Writeln(‘Tong can tinh la: ’,s); Readln End. Bài 2: Viết ctrinh tìm ptử có gtri lớn nhất của mảng và đưa ra màn hình chỉ số và gtri của GV: Y/c hs đọc và nghiên cứu đề ptu tìm được. Nếu có nhiều ptu có cùng gtri lớn nhất thì đưa ra ptu có chỉ số nhỏ nhất. bài. -Y/c hs chạy chương trình SGK(64) A, Tìm hiểu ctrinh. Program MaxElement; và tìm hiểu. ? Từ MyArray có phải là 1 hàm Const nmax=100; chuẩn ko? Có thể thay thế bằng 1 từ Type Myarray=array[1..nmax] of integer; khác được không. Var A:Myarray; Đó là tên kiểu dl do người lập trình n,i,j:integer; tự đặt. Vì thế nó không phải là 1 hàm Begin chuẩn và có thể thay thế bằng bất cứ Write (‘Nhap so luong ptu cua day so, N=’); từ gì do người lập trình tự đặt. Readln(N); For i:=1 to n do Begin Write (‘phan tu thu ’, I,’=’); Readln(A[i]); End; J:=1; Hs: chạy ctrinh theo y/c của gv. For i:=2 to n do if A[i]>A[j] then j:=I; Write (‘chi so : ’, j,’Gia tri: ‘, A[j]:4); Readln End.. Lop11.com.

<span class='text_page_counter'>(3)</span> Hs: chỉnh sửa ctrinh theo yêu cầu.. B, Chỉnh sửa ctrinh để đưa ra chỉ số của các ptu có cùng gtri lớn nhất.. 4. Cñng cè: Gọi 1 hs lên máy chủ chạy lại chương trình. 5. DÆn dß: Về nhà viết chương trình tìm phần tử nhỏ nhất của mảng.. Lop11.com.

<span class='text_page_counter'>(4)</span>