GIáo án Tin lớp 8 tiết 60: Bài tập (tt)

Tiết: 60
Ngày dạy: 16/04/2010
BÀI TẬP (tt)
I. Mục tiêu
1. Kiến thức
Học sinh củng cố khái niệm mảng một chiều: khai báo mảng, nhập, in, truy cập các phần tử của mảng;
2. Kỹ năng
Rèn kỷ năng dùng thuật toán tìm số lớn nhất, nhỏ nhất của một dãy số.
3. Thái độ
Thái độ học tập nghiêm túc, tích cực làm bài tập.
II. Chuẩn bị
Thầy giáo
Câu hỏi, bài tập
Máy tính.
Học sinh
Xem lại các bài đã học.
III. Phương pháp dạy học
Vấn đáp, thuyết trình.
Hoạt động nhóm, thực hành.
IV. Tiến trình dạy học
Ổn định
Kiểm diện học sinh.
Kiểm tra bài cũ
Không 
Bài mới
Hoạt động của thầy & trò
Nội dung ghi của trò
* Nội dung 1: Sửa bài tập cũ
Câu 1: Đoạn chương trình sau dùng để sắp xếp lại dãy số được ghi trong mảng A[i], i = 1,2,..., N, theo thứ tự tăng dần:
For i:=1 to N do
For j:=i to N do
If A[i] > A[j] then 
Begin Tg:=A[i]; A[i]:=A[j]; A[j]:=Tg; End;
Hãy kiểm tra tính đúng đắn của đoạn chương trình trên.
Yêu cầu học sinh đọc đề bài
Hướng dẫn các em tìm hiểu bài tập
Gọi các em trả lời
Gọi học sinh nhận xét
Giáo viên nhận xét, đánh giá.
Câu 2: Hãy viết chương trình nhập 5 số ngyên từ bàn phím và ghi ra màn hình số lớn nhất trong 5 số đó theo hai cách: không sử dụng biến mảng và sử dụng biến mảng.
Yêu cầu học sinh đọc đề bài
Hướng dẫn các em tìm hiểu bài tập
Gọi các em trả lời
Gọi học sinh nhận xét
Giáo viên nhận xét, đánh giá.
* Nội dung 2: Bài tập mới
Câu 3: Viết chương trình sử dụng biến mảng để tính giá trị trung bình của tổng N số nguyên được nhập vào từ bàn phím.
Yêu cầu học sinh đọc đề bài
Hướng dẫn các em tìm hiểu bài tập
Gọi các em trả lời
Gọi học sinh nhận xét
Giáo viên nhận xét, đánh giá.
Câu 4: Chương trình nhập n số nguyên từ bàn phím và tính tổng các số dương:
 var N: integer;
 A: array[1..N] of real;
Yêu cầu học sinh đọc đề bài
Hướng dẫn các em tìm hiểu bài tập
Gọi các em trả lời
Gọi học sinh nhận xét
Giáo viên nhận xét, đánh giá.
BÀI TẬP
1. Sửa bài tập cũ
Câu 1: Đúng.
Câu 2: a) Nếu không sử dụng biến mảng, chương trình có thể dài như sau:
uses crt;
var So_1, So_2, So_3, So_4, So_5, Max: integer;
begin
clrscr;
write('Nhap so thu nhat: '); readln(So_1);
write('Nhap so thu hai: '); readln(So_2);
write('Nhap so thu ba: '); readln(So_3);
write('Nhap so thu tu: '); readln(So_4);
write('Nhap so thu nam: '); readln(So_5);
Max:=So_1;
If Max<So_2 then Max:=So_2;
If Max<So_3 then Max:=So_3;
If Max<So_4 then Max:=So_4;
If Max<So_5 then Max:=So_5;
writeln('So lon nhat: ',Max);
end.
b) Nếu sử dụng biến mảng, chương trình chỉ ngắn gọn như sau:
uses crt;
var i, Max: integer;
 A: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
 begin write('Nhap so thu ',i,':'); readln(A[i]) end;
Max:=a[1];
for i:=2 to 5 do If Max<a[i] then Max:=a[i];
writeln('So lon nhat: ',Max);
end.
2. Bài tập mới
Câu 3: uses crt;
var N, i: integer;
 TB: real;
 A: array[1..100] of real;
begin
clrscr;
write(’Nhap so phan tu cua mang, n= ’); read(n);
for i:=1 to n do
 begin 
 write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’);
 readln(a[i])
 end;
TB:=0;
for i:=1 to n do TB:=TB+a[i];
TB:=TB/n;
write(’Trung binh bang ’,TB);
end.
Câu 4: uses crt;
var n,k,S: integer;
 	X: array[1..1000] of integer;
begin
clrscr;
write('Nhap so tu nhien n: '); readln(n);
for k:=1 to n do
 begin write('Nhap X[',k,']='); readln(X[k]) end;
S:=0;
for k:=1 to n do
 if X[k]>0 then S:=S+X[k];
writeln('Tong cac duong S=',S);
readln;
end.
Củng cố và luyện tập
Gọi học sinh trả lời lại các câu hỏi và bài tập trên.
Hướng dẫn học ở nhà
Xem lại các câu hỏi đã giải.
Ôn lại các bài đã làm à kiểm tra một tiết.
V. Rút kinh nghiệm