Giáo án Tin học 8 - Tiết 57-58 - Năm học 2009-2010 - Hoàng Trung Kiên

Tuaàn 30
	Tieát 57	NS: 04/04/2010
	NG: 06/04/2010
LÀM VIỆC VỚI DÃY SỐ (tt)
I. 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.
 	- Biết cách tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số
	2. Kĩ năng:
	- Rèn luyện kĩ năng tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số
3. Thái độ:
- Thái độ học tập nghiêm túc, yêu thích môn học.
II. Chuẩn bị:
Sách giáo khoa, máy tính điện tử.
III. Tiến trình bài dạy:
Kiểm tra bài cũ:
? Hãy nêu các lợi ích của việc sử dụng biến mảng trong chương trình.
Bài mới:
Hoạt động của thầy
Hoạt động của trò
Nội dung
+ Hoạt động : Tìm hiểu cách tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số.
Ví dụ 3. Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lớn nhất. N cũng được nhập từ bàn phím
- Giáo viên đưa ra ý tưởng để viết chương trình
Trước hết ta khai báo biến N để nhập số các số nguyên sẽ được nhập vào. Sau đó khai báo N biến lưu các số được nhập vào như là các phần tử của một biến mảng A. Ngoài ra, cần khai báo một biến i làm biến đếm cho các lệnh lặp và biến Max để lưu số lớn nhất, Min để lưu số nhỏ nhất. 
- Yêu cầu học sinh tìm hiểu ý nghĩa của từng câu lệnh trong chương trình
- Trong chương trình này, chúng ta hãy lưu ý một số điểm sau: Số tối đa các phần tử của mảng phải được khai báo bằng một số cụ thể (Ở đây là 100)
+ Học sinh đọc và tìm hiểu yêu cầu của bài toán.
- Học sinh chú ý lắng nghe => ghi nhớ kiến thức.
+ Học sinh thực hiện theo yêu cầu của giáo viên.
+ Học sinh chú ý lắng nghe.
3. Tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số
program MaxMin;
uses crt;
Var
 i, n, Max, Min: integer;
 A: array[1..100] of integer;
Phần thân chương trình sẽ tương tự dưới đây:
Begin
 clrscr;
write('Hay nhap do dai cua day so, = '); readln(n);
 writeln('Nhap cac phan tu cua day so:');
 For i:=1 to n do
 Begin
 write('a[',i,']='); readln(a[i]);
 End;
 Max:=a[1]; Min:=a[1];
 for i:=2 to n do 
 begin if Max<a[i] then Max:=a[i];
 if Min>a[i] then Min:=a[i] 
 end;
 write('So lon nhat la Max = ',Max);
 write('; So nho nhat la Min = ',Min);
 readln;
End.
IV. Củng cố 
- “Có thể xem biến mảng là một biến được tạo từ nhiều biến có cùng kiểu nhưng chỉ dưới một tên duy nhất”. Phát biểu đó đúng hay sai.
V. Dặn dò
- Về nhà học bài, kết hợp SGK, tiết sau bài tập.
********************************************
Tuaàn 30
	Tieát 58	NS: 04/04/2010
	NG: 06/04/2010
BÀI TẬP
I. Mục tiêu:
	1. Kiến thức:
	- Viết chương trình Pascal sử dụng câu lệnh lặp với số lần biết trước, và sử dụng biến mảng
	2. Kĩ năng:
	- Rèn luyện khả năng đọc chương trình, tìm hiểu tác dụng và kết hợp các câu lệnh. 
3. Thái độ:
- Thái độ học tập nghiêm túc, yêu thích môn học.
II. Chuẩn bị:
Sách giáo khoa, máy tính điện tử.
III. Tiến trình bài dạy:
Hoạt động của thầy
Hoạt động của trò
Nội dung
+ Hoạt động 1: Ôn tập câu lệnh lặp xác định For..do.
? Nêu cú pháp của vòng lặp xác định.
? Nêu hoạt động của vòng lặp.
+ Hoạt động 2: Bài tập.
1. Các câu lệnh Pascal sau có hợp lệ không, vì sao?
for i:=100 to 1 do writeln('A');
for i:=1.5 to 10.5 do writeln('A');
for i=1 to 10 do writeln('A');
for i:=1 to 10 do; writeln('A');
var x: real; begin for x:=1 to 10 do writeln('A'); end.
2. Hãy mô tả thuật toán để tính tổng sau đây:
A = .
+ Cú pháp: For := to do ;
+ Hoạt động của vòng lặp:
- B1: biến đếm nhận giá trị đầu
- B2: Chương trình kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đúng thì thực hiện câu lệnh.
- B3: Biến đếm tự động tăng lên 1 đơn vị và quay lại B2.
- B4: Nếu biểu thức điều kiện nhận giá trị sai thì thoát ra khỏi vòng lặp.
+ Trừ câu d), tất cả các câu lệnh đều không hợp lệ: 
a) Giá trị đầu phải nhỏ hơn giá trị cuối; 
b) Các giá trị đầu và giá trị cuối phải là số nguyên; 
c) Thiếu dấu hai chấm khi gán giá trị đầu; 
d) Thừa dấu chấm phẩy thứ nhất, nếu như ta muốn lặp lại câu lệnh writeln('A') mười lần, ngược lại câu lệnh là hợp lệ; 
e) Biến x đã được khai báo như là biến có dữ liệu kiểu số thực và vì thế không thể dùng để xác định giá trị đầu và giá trị cuối trong câu lệnh lặp.
* Thuật toán tính tổng: 
A = 
Bước 1. Gán A ¬ 0, i ¬ 1. 
Bước 2. A ¬ .
Bước 3. i ¬ i + 1. 
Bước 4. Nếu i £ n, quay lại bước 2. 
Bước 5. Ghi kết quả A và kết thúc thuật toán.
? Nêu cú pháp của vòng lặp xác định.
? Nêu hoạt động của vòng lặp
1. Các câu lệnh Pascal sau có hợp lệ không, vì sao?
for i:=100 to 1 do writeln('A');
for i:=1.5 to 10.5 do writeln('A');
for i=1 to 10 do writeln('A');
for i:=1 to 10 do; writeln('A');
var x: real; begin for x:=1 to 10 do writeln('A'); end.
IV. Dặn dò: 
- Về nhà học bài kết hợp sách giáo khoa, tiết sau học thực hành.