Nếu có nhiều phần tử cùng giá trị nhỏ nhất thì đưa ra phần tử có chỉ số lớn nhất. Duyệt của GVHD:.[r]
(1)Người soạn: Phạm Thị Ba. GVHD: Bùi Văn Vàng. Ngày soạn : 8/02/2012 Ngày giảng: 15/02/2012
Tiết PPCT: 29. Tiết 5. Lớp: 11B2.
BÀI TẬP VÀ THỰC HÀNH (Tiết 2). I. MỤC ĐÍCH, YÊU CẦU:
1 Về kiến thức
- Nhận biết khai báo mảng 2 Về kĩ :
- Biết cách nhập liệu cho mảng từ bàn phím
- Biết cách duyệt phần tử mảng truy cập phần tử mảng II. PHƯƠNG PHÁP, PHƯƠNG TIỆN
1. Phương pháp: Kết hợp phương pháp: - Thuyết trình
- Vấn đáp 2. Phương tiện
- Chuẩn bị giáo viên:
a Sách chuẩn kiến thức kĩ Tin học THPT b Sách giáo khoa
c Giáo án
d Sách tham khảo - Chuẩn bị học sinh:
a Sách giáo khoa b Vở ghi lý thuyết
III. TIẾN TRÌNH LÊN LỚP: 1 Ổn định lớp
- Yêu cầu lớp trưởng báo cáo sĩ số 2 Nội dung học
(2)TRÒ GIAN
BÀI 1:
Nhập từ bàn phím mảng A gồm phần tử nguyên
a Tìm đưa hình tất số giá trị phần tử chẵn?
b Tính trung bình cộng phần tử chẵn mảng? Chương trình:
Program vidu1;
Var A:array[1 5] of integer; i,dem: byte; tong:integer; Begin
For i:= to Begin
Write('Nhap phan tu thu ',i,':'); Readln(A[i]);
End;
Gv: Hệ thống lại kiến thức học kiểu mảng yêu cầu học sinh trả lời câu hỏi:
Khai báo biến mảng chiều
Cách tham chiếu đến phần tử mảng
Cách nhập xuất liệu
GV: Nêu toán
GV: Dẫn dắt học sinh giải toán
GV: Yêu cầu học sinh xác định input, output
HS: Trả lời
GV: Minh họa mảng gồm phần tử Yêu cầu học sinh xác định số phần tử chẵn
HS: Trả lời
GV: Cách xác định số phần tử chẳn?
HS: Trả lời
Gv: Cách xác định phần tử chẵn?
HS: Trả lời
GV: Đưa thuật tốn xác định phần tử chẵn
GV: Phân tích input để khai báo biến kiểu mảng Yêu cầu học sinh
5’
(3)Writeln(' Cac chi so phan tu chan cua mang A la:');
For i :=1 to
If A[i] mod = then Begin
tong:=tong+A[i]; dem:=dem+1;
Writeln('Chi so thu ',i,' co gia tri:',A[i]:4);
End;
Writeln('Trung binh cong cac so chan la:',tong/dem:5:2);
Readln End
khai báo biến
HS: Trả lời
GV: Trình bày cách nhập liệu cho tốn
Hồn thành chương trình Và chạy chương trình
b
GV: Nêu cách tính trung bình cộng phần từ chẵn mảng?
HS: Trả lời
GV: Yêu cầu xác định biến
GV: Đưa đoạn chương trình xác định output
tb:=0;d:=0; For i :=1 to
If A[i] mod = then Begin
d:=d+1;
tong:=(tong+A[i]); End;
tb:=tong/d ;
GV: Gọi học sinh bổ sung hồn thành chương trình dựa vào câu a
GV: Nêu toán Yêu cầu học sinh xác định input, output
8’
(4)Bài 2:
Tạo mảng A gồm N phần tử nguyên dương (0<N<=50), với giá trị phần tử tính: A[i]= i2 .Tính tổng các
phần tử khơng chia hết cho
Program ct;
Var A: array[1 50] of word; tong,i,N: word;
Begin
Write('Nhap so phan tu cua mang: N= ');
Readln(N); For i:=1 to N A[i]:=i*i; tong:=0;
For i:= to N
If A[i] mod <>0 then tong:=tong+A[i];
Write(' Tong cac phan tu khong chia het cho 2:',tong:4);
Readln End
HS: Trả lời
GV: Yêu cầu học sinh khai báo biến mảng A, nhập liệu cho mảng
HS: Trình bày
GV: Yêu cầu học sinh nêu cách tính tổng phần tử khơng chia hết cho 2?
HS: Trả lời
(5)IV. CỦNG CỐ (5’) Bài tập nhà
1 Nhập từ bàn phím N số ngun có giá trị A[i]= ( i* +1), (0<N<=50) Cho biết mảng có số lẻ, số chẵn?
2 Tạo mảng gồm N số nguyên dương nhập từ bàn phím (0<N<=50) Tìm phần tử có giá trị nhỏ mảng Cho biết số phần tử nhỏ vừa tìm? Nếu có nhiều phần tử giá trị nhỏ đưa phần tử có số lớn