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

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.
- 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ự.
GV: Y/c hs đọc và nghiên cứu đề bài.
-Y/c hs chạy chương trình SGK(64) và tìm hiểu.
 ? Từ MyArray có phải là 1 hàm chuẩn ko? Có thể thay thế bằng 1 từ khác được không.
Đó là tên kiểu dl do người lập trình tự đặt. Vì thế nó không phải là 1 hàm chuẩn và có thể thay thế bằng bất cứ từ gì do người lập trình tự đặt.
Hs: chạy ctrinh theo y/c của gv.
Hs: chỉnh sửa ctrinh theo yêu cầu.
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;
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 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.
A, Tìm hiểu ctrinh.
Program MaxElement;
Const nmax=100;
Type Myarray=array[1..nmax] of integer;
Var A:Myarray;
n,i,j:integer;
Begin
Write (‘Nhap so luong ptu cua day so, N=’);
Readln(N);
For i:=1 to n do
Begin
Write (‘phan tu thu ’, I,’=’);
Readln(A[i]);
End;
J:=1;
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.
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.