Tiết 47 : Bài Tập
I. Mục tiêu:
*) Tiếp tục giúp HS:
+) Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước trong ngôn ngữ lập trình;
+) Biết ngôn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc đến khi một điều kiện nào đó được thoả mãn;
+) Hiểu hoạt động của câu lệnh lặp với số lần chưa biết trước.
+) Biết sửa lổi và viết được chương trình một số bài toán cơ bản.
II. Công tác Chuẩn bị:
1. Giáo viên: Soạn bài, đọc tài liệu tham khảo, dung cụ dạy học.
2. Học sinh: Đọc trước bài, làm các bài tập, dụng cụ học tập.
C. các hoạt động dạy h ọc
1. định tổ chức :
Lớp
Ngày dạy
Vắng

8A



8B



8C



2. Bài mới:
Hoạt động của giáo viên, học sinh
Nội dung cần đạt

Hoạt động 1: Sử dụng vòng for ... do


Gv: yêu cầu học sinh thực hiện yêu cầu của bài tập
Gv: yêu cầu hs lên bảng trình bày thuật toán.
Hs: thực hiện
b1: A( 0; i ( 0;
b2: A ( 1/i(i+2);
b3: i ( i+1;
b4: Nếu i ≤ n, quay lại b2.
b5: Ghi kết qua A, kết thúc thuật toán
Gv: yêu cầu hs lên bảng trình bày chương trình
Hs: thực hiện
program bai6;
uses crt;
var
A: real;
i,n: integer;
Begin
Clrscr;
Write(‘Nhập n=’);readln(n).
A:=0;
For i:=1 to n do
A:=1/i*(1+2);
Write(‘Tổng A =’,A:6:2);
Readln;
End.
Bài tập 6 – trang 61 và viết chương trinh cho bài tập đó:
a. Thuật toán:
b1: A( 0; i ( 0;
b2: A ( 1/i(i+2);
b3: i ( i+1;
b4: Nếu i ≤ n, quay lại b2.
b5: Ghi kết qua A, kết thúc thuật toán
b. Chương trình
program bai6;
uses crt;
var
A: real;
i,n: integer;
Begin
Clrscr;
Write(‘Nhập n=’);readln(n).
A:=0;
For i:=1 to n do
A:=1/i*(1+2);
Write(‘Tổng A =’,A:6:2);
Readln;
End.





Hoạt động 2: Chuyển câu lệnh vòng For … do sang while … do

Gv: yêu cầu hs thực hiện
Hs: thực hiện.
program bai6;
uses crt;
var
A: real;
i,n: integer;
Begin
Clrscr;
Write(‘Nhập n=’);readln(n).
A:=0; i:=1;
While i=>n do
A:=1/i*(1+2); i:=i+1
Write(‘Tổng A =’,A:6:2);
Readln;
End.

program bai6;
uses crt;
var
A: real;
i,n: integer;
Begin
Clrscr;
Write(‘Nhập n=’);readln(n).
A:=0; i:=1;
While i=>n do
A:=1/i*(1+2); i:=i+1
Write(‘Tổng A =’,A:6:2);
Readln;
End.


3. Củng cố kiến thức:
Nhận xét, rút ra bài học cho tiết ôn tập: phân biệt được vòng lặp While ... do và For ... do.
4. Hướng dẫn về nhà: