Tiết 60. Bài Tập

: 8B; 8C; 8D. Ngày soạn: 12/04/2009.
PPCT: 60. Ngày dạy: 14/04/2009.
Bài tập.
I. Mục đích, yêu cầu:
Làm các bài tập để:
+) Nắm rõ được khái niệm mảng một chiều.
+) Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng.
+) Hiểu thuật toán tìm số lớn nhất, số nhỏ nhất của một dãy số.
II. Chuẩn bị:
GV: Soạn bài, đọc tài liệu tham khảo, dụng cụ dạy học.
HS: Xem lại kiến thức bài học trước, làm bài tập ở nhà, dụng cụ học tập.
III. Tiến trình dạy học:
Hoạt động của GV
Hoạt động của HS

Hoạt động 1:
GV: Yêu cầu làm bài tập sau:
Bài 1: 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.
GV Yêu cầu viết chương trình có sử dụng biến mảng và không sử dụng biến mảng.













GV: Kiểm tra nhận xét, sửa sai nếu cần.









Hoạt động 2:
Bài 2: 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.








GV: Kiểm tra tính đúng đắn của đoạn chương trình trên.
Hoạt động 3:
Hướng dẫn về nhà:
Xem lại phần lý thuyết và các bài tập đã làm, ôn tập kỹ tiết sau kiểm tra thực hành.


HS: Thưc hiện và trình bày:
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 MaxIf MaxIf MaxIf Maxwriteln(`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 Maxwriteln(`So lon nhat: `,Max);
end.


HS: Thực hiện.
Bài 2: 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.
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