Câu lệnh lặp for..to..do

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
đượ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 for…to...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 hoà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+