Ngày soạn:5/3/2015
Ngày dạy:
Tiết 53:BÀI TẬP
I.Mục tiêu bài học
Ôn tập kiến thức câu lệnh While…. do
II.Phương pháp
Đặt vấn đề +giải quyết vấn đề
III.Chuẩn bị
Gv:giáo án ,SGK,phòng máy
HS:sách,vở,bút
IV. Các tiến trình lên lớp
ổn định lớp (1’)
KTBC ( Lồng ghép trong quá trình thực hành)
Bài mới(35’)
Hoạt động của GV và HS
Nội dung bài học

GV: đưa ra bài tập 1 và yêu câù HS làm ra nháp
HS: đọc kĩ đầu bài và làm ra nháp

GV: gọi từng HS lên bảng làm bài tập
HS: Lên bảng làm bài tập
GV: Gọi HS nhận xét
HS: nhận xét bài
GV: nhận xét , chữa bài và đánh giá cho điểm HS













GV: Đưa ra bài tập 2
HS: Chú ý theo dõi
GV : Gợi ý
HS: chú ý theo dõi
GV: Yêu cầ HS hoạt động nhóm làm bài tập 2.
HS: Hoạt động nhóm trong vòng 5 phút
GV: Gọi đại diện các nhom s lên bảng chữa bài
HS: Đại diện các nhóm lên chữa bài
GV: nhận xét và chữa bài , động viên các nhóm làm đúng.



GV: đưa ra bài tập 3
HS: Đọc bài tập 3
GV: để viết chương trình bài tập 3 thì phải khai báo những biến nào và kiểu dữ liệu gì?
HS: biến tong, saiso kiểu số thực, biến n kiểu số nguyên
GV: điều kiện để sử dụng trong lệnh While do là gì?
HS:1/nGV: gọi HS lên bảng viết chương trình.
HS: lên bảng viết chương trình
GV: nhận xét chữa bài và đánh giá cho điểm HS.
HS: Chữa bài






GV: đưa vả bài tập 4
HS: Đọc bài tập 4
GV: Gợi ý HS bài tập 4
GV: Yêu cầu HS hoạt động nhóm là bài tập 4
HS: Hoạt động nhóm trong vòng 6 phút
GV: yêu cầu các nhóm trao đổi bài với nhau và chấm điểm
HS: Trao đổi bài và chấm chéo
GV: Nhận xét và đưa ra đáp án
HS: Chưã bài













 Bài tập 1: Trong các câu lệnh pascal sau, câu lệnh nào sai? Sai ở đâu?
While i:=1 do t:=10;
While a<=b; do Write(‘ b không nho hon a’);
Whlie l=1 do Write (‘ toi lap trinh gioi’);
i:=1 ; While i<10 do sum:=sum+i; i:=i+1;
i:=1; x:=5 While iWrite(‘ gia tri cua i la:’,i);
Bài làm
Sai vì thừa dấu 2 chấm ở phép điều kiện
Sai vì thừa dấu 2 chấm trước do
Sai . Vì lặp vô hạn nên điều kiện luôn đúng
Sai thiếu begin …end nên lặp vô hạn
Sai . Vì vòng lặp thực hiện nhưng chỉ có giá trị cuối cùng của i được in ra.
Bài 2: Tìm hiểu đoạn chương trình sau đây không cần viết chương trình , hãy cho biết lệnh Writeln in ra giá trị i, j ,k
a) Đoạn chương trình 1
i:=1; j:=2; k:=3;
While i<6 do i:=i+1; j:=j+1;
K:=k+j;
Writeln(i,j,k);
b) Đoạn chương trình 2
i:=1; j:=2; k:=3;
While i<6 do begin
i=i+1; j:=j+1;
K:=k+j; end;
Writeln(i,j,k);
Bài Làm
Đoạn chương trình 1: i=6;j=3;k=6
Đoạn chương trình 2:i=6;j=7;k=28
Bài tập 3:Viết chương trình sử dụng câu lệnh While …do để tính tổng
S=1+1/2+1/3+…..+1/n
Với 1/n< sai số . Gía trị sai số cho trước
Bài làm
Program saiso;
Var tong, saiso:real; n:integer;
Begin
Tong:=0;n:=1;
Write(‘ sai so bang bao nhieu’); readln(saiso);
While 1/nBegin
Tong:=tong+1/n; n:=n+