Bai10t2

Tuần: 6 Tiết 12 Ngày dạy:20/09/2011
Chương III: CẤU TRÚC RẼ NHÁNH VÀ LẶP
Bài 10: CẤU TRÚC LẶP (tt)
Mục tiêu:
Về kiến thức:
Hiểu khái niệm lặp trong lập trình. Biết được ý nghĩa của cấu trúc lặp
Biết sử dụng các câu lệnh lặp For – Do của Turbo Pascal
Về kỹ năng:
Biết phân tích bài toán đơn giản để chọn kiểu lặp phù hợp
Biết diễn đạt đúng các câu lệnh, soạn được chương trình giải các bài toán đơn giản áp dụng các kiểu lặp phù hợp
Về thái độ:Rèn luyện tính cẩn thận, thái độ nghiêm túc trong học tập
Trọng Tâm
Hiểu khái niệm lặp trong lập trình. Biết được ý nghĩa của cấu trúc lặp
Biết sử dụng các câu lệnh lặp For – Do của Turbo Pascal
Chuẩn bị:
Giáo viên:Sách giáo khoa Tin học 11, giáo án giảng dạy, bảng, phấn viết.
Học sinh: Sách giáo khoa Tin học 11, vở
Tiến trình dạy học:
Ổn định lớp: lớp trưởng báo cáo sĩ số lớp
Kiểm tra bài cũ: GV đặt câu hỏi:
Hãy cho biết 2 dạng của cấu trúc lặp với số lần biết trước của câu lệnh For-Do?
Bài mới:

Hoạt động của giáo viên – học sinh
Nội dung bài dạy

Hoạt động 1: Xét Ví dụ 1
GV: Yêu cầu HS xác định Input, Output của bài toán?
GV hướng dẫn học sinh thuật toán của việc lặp bằng ngôn ngữ tự nhiên.
Sơ đồ:



Thuật toán TONG_1b
Yêu cầu HS tự làm
GV sửa và giải thích sự khác nhau giữa hai dạng lặp.

GV: Yêu cầu HS xác định Input, Output của bài toán?
GV hướng dẫn học sinh thuật toán của việc lặp bằng ngôn ngữ tự nhiên.
Chuơng trình:
S:=0;
FOR I:=M TO N DO
IF (I MOD 3=0) OR (I MOD 5=0) THEN
S:=S+I;

Thực hiện một số lần đã định trước.
Cú pháp:
Lặp dạng tiến:
For := to do ;
Lặp dạng lùi:
For := downto do ;


GV: Cho HS xem thuật toán, sau đó gọi vài HS nhận xét các điểm sau:
Với thuật toán này thì việc lặp ở các bước nào ?
Giá trị đầu, giá trị cuối ?
Dạng của vòng lặp For-do ?
Yêu cầu “ số nguyên chia hết cho 3 hoặc 5” được biểu diễn trong Pascal như thế nào ?
Câu lệnh lặp For-do như thế nào?

Ví dụ 1: Tính và đưa ra kết quả tổng ra màn hình:


trình TONG_1a:
S:=1.0/a; N:=0;
For N := 1 to 100 do
S:= S+1.0/(a+N);
Writeln(‘Tong S la: ’, S);
Program Tong_1a;
Uses crt;
Var S : real;
a, N : integer;
begin
clrscr;
write(‘Hay nhap gia tri a vao!’);
readln(a);
S:=1.0/a;
for N:=1 to 100 do
S:= S+1.0/(a+N);
writeln(‘Tong S la: ‘,S:8:4);
readln;
end.
trình TONG_1b:
S:=1.0/a; N:=101;
For N := 100 downto 1 do
S:= S+1.0/(a+N);
Writeln(‘Tong S la: ’, S);
Program Tong_1b;
Uses crt;
Var S : real;
a, N : integer;
begin
clrscr;
write(‘Hay nhap gia tri a vao!’);
readln(a);
S:=1.0/a;
for N:=100 downto 1 do
S:= S+1.0/(a+N);
writeln(‘Tong S la: ‘,S:8:4);
readln;
end.
Ví 2: Thuật toán:
Bước 1: T ←0; I←M ;
Bước 2: I ←I+1;
Bước 3: Nếu I > N thì chuyển sang bước 5;
Bước 4: Nếu I chia hết cho 3 hoặc chia hết cho 5 thì thực hiện T ←T + I rồi quay lại bước 2;