+ GV: Yêu cầu Hs thực hiện gõ đoạn chương trình sau và thực hiện các yêu cầu: - Tìm hiểu ý nghĩa của các câu lệnh trong chương trình, dịch chương trình và sửa lỗi, nếu có.. Quan sát kết [r]
Trang 1Bài thực hành 5: SỬ DỤNG LỆNH LẶP WHILE … DO
I Mục tiêu:
1 Kiến thức:
- Hiểu câu lệnh lặp while…do trong chương trình;
2 Kĩ năng:
- Rèn luyện kĩ năng về khai báo sử dụng biến;
- Rèn luyện kĩ năng đọc chương trình
3 Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.
II Chuẩn bị
- Gv: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu, phòng máy.
- Hs: Vở ghi, sách giáo khoa.
III Phương pháp:
- Gv hướng dẫn, thao tác mẫu, quan sát, sửa sai Hs quan sát, tự thực hiện theo yêu cầu
IV Tiến trình bài dạy:
1 Ổn định lớp: (1’)
8A1: 8A2:
2 Kiểm tra 15’:
Câu 1: Trình bày cú pháp câu lệnh lặp với số lần chưa biết trước trong Pascal? Cho ví dụ? Đáp án: Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:
While <điều kiện> do <câu lệnh>; (2 điểm)
Trong đó:
- câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép (2 điểm)
Câu 2: Cách sử dụng câu lệnh lặp với số lần chưa biết trước trong Pascal?
Câu lệnh lặp này được thực hiện như sau:
2 Nếu điều kiện SAI, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc Nếu điều
kiện đúng, thực hiện câu lệnh và quay lại bước 1 (2 điểm)
3 Nội dung bài mới:
Hoạt động 1: (8’) Ôn tập lý
thuyết.
+ GV: Đưa ra chương trình in lời
chào các bạn trong lớp
+ GV: Yêu cầu tên Hs được nhập từ
bàn phím
+ GV: Số lần lặp “giá trị cuối” dưới
5
+ GV: Yêu cầu thay đổi giá trị cuối
và cho nhận xét về số lần nhập nhập
tên và hiển thị lời chào
+ GV: Rút ra nhận xét hiểu rõ và
+ HS: Gõ đoạn chương trình
Var ten: String;
i: Integer;
BEGIN For i:= 1 To 3 Do Begin
Write(‘Nhap ten cua ban: ’);
Readln(ten);
Writeln(‘Chao ban ’,ten);
Readln
Var ten: String;
i: Integer;
BEGIN For i:= 1 To 3 Do Begin
Write(‘Nhap ten cua ban: ’);
Readln(ten);
Writeln(‘Chao ban
’,ten);
Readln End;
Ngày soạn: 10/03/2013 Ngày day: 12/03/2013
Tuần 26
Tiết: 51
Trang 2giải thích được hoạt động của câu
lệnh For do
Hoạt động 2: (15’) Nội dung bài
tập 1.
+ GV: Yêu cầu Hs thực hiện gõ
đoạn chương trình sau và thực hiện
các yêu cầu:
- Tìm hiểu ý nghĩa của các câu lệnh
trong chương trình, dịch chương
trình và sửa lỗi, nếu có
- Chạy chương trình với các giá trị
nhập vào lần lượt bằng 1, 2, , 10
Quan sát kết quả nhận được trên
màn hình
+ GV: Quan sát, hướng dẫn Hs thực
hiện trên máy
+ GV: Sửa chữa những sai sót các
em mắc phải
+ GV: Sử dụng một bài làm hoàn
thiện của Hs hướng dẫn các em về
câu lệnh lặp
+ GV: Yêu cầu Hs giải thích về câu
lệnh lặp được sử dụng trong bài
Hoạt động 3: (15’) Nội dung bài
tập 2.
+ GV: Yêu cầu Hs nhận xét về cách
hiển thị của chương trình bài tập 1
+ GV: Vậy để được cân đối ta cần
phải làm gì
+ GV: Đưa ra yêu cầu bài 2
+ GV: Yêu cầu Hs sửa câu lệnh theo
như yêu cầu
+ GV: Yêu cầu Hs chạy lại chương
trình
+ GV: Cho Hs quan sát chương
trình đã sửa so với chương trình
chưa sửa và so sánh
+ GV: Hướng dẫn các em về câu
lệnh GotoXY
+ GV: Đưa ra những lưu ý khi các
em sử dụng câu lệnh GotoXY
End;
END
+ HS: Gõ đoạn chương trình:
Uses Crt;
Var n, i: Integer;
BEGIN Clrscr;
Write(‘Nhap n = ’); Readln(n);
Writeln;
Writeln(‘Bang nhan ’,n);
Writeln;
For i:=1 To 10 Do Writeln(N, ‘
x ’, i:2, ‘ = ’, n*i:3);
Readln;
END
+ HS: Tự giác thực hiện theo sự hướng dẫn của Gv
+ HS: Sửa những lỗi mà các em hay gặp phải về dấu
+ HS: Quan sát và nhận xét, lắng nghe và hiểu về chương trình
+ HS: Giải thích về cách chạy của câu lệnh lặp
+ HS: Hàng kết quả sát nhau nên khó đọc; Hàng kết quả không được cân đối với hàng tiêu đề
+ HS: Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình
+ HS: Thực hiện yêu cầu bài 2
+ HS: Thêm lệnh GotoXY vào chương trình
+ HS: Dịch sửa lỗi và chạy lại chương trình, quan sát nhận xét
+ HS: Quan sát hai chương trình
và nhận xét về thay đổi và khác nhau của hai chương trình
+ HS: Tập trung chú ý lắng nghe, hiểu thêm về câu lệnh
+ HS: Chú ý lắng nghe và hiểu về phần lưu ý khi sử dụng câu lệnh
END
1 Bài 1.
Uses Crt;
Var n, i: Integer;
BEGIN Clrscr;
Write(‘Nhap n = ’); Readln(n);
Writeln;
Writeln(‘Bang nhan ’,n); Writeln;
For i:=1 To 10 Do Writeln(N, ‘ x ’, i:2, ‘ = ’, n*i:3);
Readln;
END
2 Bài 2.
For i:= 1 To 10 Do Begin
GotoXY(5,Where); Writeln(n, ‘ x ’, i:2, ‘ = ’, n*i:3);
Writeln;
End;
4 Củng cố:
- Củng cố trong nội dung bài học
5 Hướng dẫn và dặn dò về nhà: (1’)
- Học bài kết hợp SGK
Trang 3- Đọc trước nội dung phần tiếp theo của bài.
6 Rút kinh nghiệm: