Tiết 60. Bài Tập

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;

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:
Giáo án tin học lớp 8.
Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.
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.
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.
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;

for i:=1 to n do TB:=TB+a[i];
TB:=TB/n;
write(Trung binh bang ,TB);
end.
Giáo án tin học lớp 8.