Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.
Dy Lp: 8B; 8C; 8D. Ngày soạn: 12/04/2009.
Tit 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.
HS: Thc 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;

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.
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;