Tiết 58

Ngày dạy: 25/ 3 / 2009

Tiết 58:
BàI TậP

Mục tiêu:
1. Kiến thức
Làm quen với việc khai báo và sử dụng các biến mảng.
Ôn luyện cách sử dụng câu lệnh lặp for…do.
Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
2. Kỹ năng: Việc gán giá trị, nhập giá trị và tính toán với các giá trị của một phần tử trong biến mảng được thực hiện thông qua chỉ số tương ứng của phần tử đó.
3.Thái độ: Thái độ học tập nghiêm túc, tích cực làm các dạng bài tập ứng dụng.
Chuẩn bị :
Giáo viên : Tài liệu, GA điện tử, Phòng máy tính...
Học sinh : Vở ghi, SGK, đọc trước bài thực hành, học thuộc kiến thức lý thuyết đã học.
Tiến trình Lên lớp :
1. Kiểm tra bài cũ:
2. Bài mới:
Hoạt động của GV và hs
Nội dung ghi bảNG

Hoạt động 1: bài tập 1
- Gv gọi Hs đọc đề của bài tập1
- Hs đọc đề.
- Gv gọi 3 đại diện của 3 tổ lên bảng làm bài.
- Hs làm bài.
- Gv gọi hs nhận xét.
- Hs: nhận xét.
- Gv nhận xét, chữa bài
- Hs: lắng nghe, ghi nhớ.
Bài tập1
Đ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.


Hoạt động 2: bài tập 2
- Gv gọi Hs đọc đề của bài tập 2
- Hs đọc đề.
- Gv gọi 3 đại diện của 3 tổ lên bảng làm bài.
- Hs làm bài.

- Gv gọi hs nhận xét.

- Hs nhận xét.

- Gv nhận xét, chữa bài:

- Hs lắng nghe, chép vào vở
Bài tập 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.
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.

Tổng kết đánh giá (4’) :
Kiểm tra đánh giá
-