Giáo án Tin học 8 - Bài 7: Câu lệnh lặp

Bài 7 - CÂU LỆNH LẶP
Ngày soạn: 25/02/2012
Ngày dạy : 28/02/2012
1. MỤC TIÊU:
kiến thức
Biết được nhu cầu cần có cấu trúc lặp được sử dụng để hướng dẫn cho máy tính thực hiện lặp lại một công việc nào đó một số lần trong ngôn ngữ lập trình.
Nắm được cú pháp và cách sử dụng vòng lặp FOR DO và cách áp dụng làm những bà tập cơ bản.
kỹ năng
Đọc và tìm hiểu chương trình trong các ví dụ.
Viết được câu lệnh lặp ở những bài toán đơn giản.
 3. Thái độ:
- Ham muốn làm việc trên máy tính, cĩ ý thức bảo vệ tốt các trang thiết bị, hệ thống máy tính của nhà trường.
II. CHUẨN BỊ: 
Gv: Soạn giáo án, SGK, phần mềm netsupport school.
HS: Vở ghi, SGK, SBT, đọc trước nội dung bài học. 
III. TIẾN TRÌNH BÀI DẠY:
Hoạt động của GV
Hoạt động của HS
Ghi Bảng
Hoạt động 1: ơn lại kiến thức cũ 
GV : Ở tiết học trước chúng ta đã được học câu lệnh lặp forto...do vậy em nào cĩ thể cho thầy biết cĩ vịng lặp for..to..do cĩ tác dụng gì ?
GV nhận xét câu trả lời của HS.
GV : gọi 1 HS lên bảng viết lại cấu trúc của câu lệnh lặp for..to..do.
GV nhận xét và đưa ra cấu trúc hồn chỉnh.
GV : Nhìn vào cấu trúc câu lệnh lặp for..to..do, em nào cĩ thể cho biết câu lệnh sẽ hoạt động khi nào ? được lặp lại bao nhiêu lần ? và vịng lặp sẽ lặp từ đâu đến đâu ?
GV : nhận xét câu trả lời của HS.
GV : câu lệnh được lặp trong vịng lặp for..to..do là câu lệnh ghép (nhiều lệnh)thì ta phải làm như thế nào ?
GV nhận xét câu trả lịi của học sinh.
Hoạt động 2:thực hành làm các bài tập.
Bài 1: Các câu lệnh Pascal sau cĩ hợp lệ khơng? Vì sao?
 a) for i:=100 to 1 do writeln(‘A’);
 b) for i:=1.5 to 10.5 do writeln(‘A’);
 c) for i=1 to 10 do; writeln(‘A’);
 d) for i:=1 to 10 do writeln(‘A’);
 e) var x:real; 
begin 
 for x:=1 to 10 do writeln(‘A’);
end.
Bài 2: Nhập n số và đếm xem cĩ bao nhiêu số dương?
Bài tập 3: tính tổng các số chẵn từ 1 dến n,với n được nhập từ bàn phím.
HS trả lời câu hỏi
Hs lắng nghe
HS viết cấu trúc câu lệnh lặp lên bảng.
HS lắng nghe
HS chú ý quan sát và trả lời câu hỏi.
Hs lắng nghe.
HS trả lời câu hỏi.
HS chú ý lắng nghe.
Bài 1:
Trừ d) các câu cịn lại đều khơng hợp lệ.Vì :
a)giá trị đầu lớn hơn giá trị cuối.
b)giá trị đầu và cuối khơng phải số nguyên
c)thiếu dấu : khi gán
e) biến điếm khơng phải kiểu nguyên. 
Bài 2:
Ch­¬ng tr×nh Pascal cã thĨ nh­ sau:
uses crt;
var n,i,SoDuong,A: integer;
begin
clrscr;
write('Nhap N='); readln(n);
if n>0 then
 begin
 SoDuong:=0;
 for i:=1 to n do
 begin 
write('Nhap so thu ',i,':'); readln(A);
 if A>0 then SoDuong:=SoDuong+1 end;
 writeln('So cac so duong = ',SoDuong)
 end
 else writeln('n phai > 0!');
end.
Bài tập 3: Ch­¬ng tr×nh Pascal cã thĨ nh­ sau:
uses crt;
var n,i,tong: integer;
begin
clrscr;
write('Nhap N='); readln(n);
if n<1 then
writeln(‘tong = 0’)
else
 tong:=0;
 for i:=1 to n do
 if i mod 2=0 then
 tong:=tong+i; writeln('tong la :',tong);
end.
1/ Ơn lại kiến thức cũ :
- câu lệnh lặp for..to..do cĩ tác dụng lặp đi lặp lại 1 cơng việc nào đĩ với số lần xác định.
For:= to do 
;
* chú ý :
-Vịng lặp chỉ được thực hiện khi giá trị đầu nhỏ hơn hoặc bằng giá trị cuối.
-Số vịng lặp là biết trước và bằng: Giá trị cuối –giá trị đầu+1.
- Khi thực hiện, ban đầu biến đếm sẽ nhận gia trị là giá trị đầu sau mỗi vịng lặp ,biến đếm được tự động tăng thêm một đơn vị cho đến khi bằng giá trị cuối.
- nếu câu lệnh muốn lặp là câu lệnh ghép thì phải được đặt trong
2 từ khĩa begin  end ;
Hoạt động 2:thực hành làm các bài tập.
Bài 1:
Trừ d) các câu cịn lại đều khơng hợp lệ.Vì :
a)giá trị đầu lớn hơn giá trị cuối.
b)giá trị đầu và cuối khơng phải số nguyên
c)thiếu dấu : khi gán
e) biến điếm khơng phải kiểu nguyên. 
màn hình thứ tự lần lặp.
Bài 2:
Ch­¬ng tr×nh Pascal cã thĨ nh­ sau:
uses crt;
var n,i,SoDuong,A: integer;
begin
clrscr;
write('Nhap N='); readln(n);
if n>0 then
 begin
 SoDuong:=0;
 for i:=1 to n do
 begin 
write('Nhap so thu ',i,':'); readln(A);
 if A>0 then SoDuong:=SoDuong+1 end;
 writeln('So cac so duong = ',SoDuong)
 end
 else writeln('n phai > 0!');
end.
Bài tập 3: Ch­¬ng tr×nh Pascal cã thĨ nh­ sau:
uses crt;
var n,i,tong: integer;
begin
clrscr;
write('Nhap N=');
readln(n);
if n<1 then
writeln(‘tong = 0’)
else
 tong:=0;
 for i:=1 to n do
 if i mod 2=0 then
 tong:=tong+i; writeln('tong la :',tong);
end.
IV. Củng cố:
1/ Cấu trúc lặp trong chương trình dùng để làm gì?
2/ Trong ngơn ngữ lập trình Pascal cấu trúc lặp với số lần lặp cho trước được thể hiện với câu lệnh nào?
V. Dặn dị :
Học bài, làm các bài tập trong SGK trang 61, xem lại các ví dụ, tiết sau làm bài tập tại lớp. 
	Vạn Hưng, Ngày 24 tháng 2 năm 2012
Giáo viên hướng dẫn :	Người Dạy :