* Kiến thức: - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.. * kỹ năng: - Rèn luyện khã năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.[r]
Trang 1Ngày soạn:
Bài thực hành 6
Sử dụng lệnh lặp while do
(Tiết 51)
A Mục tiêu.
* Kiến thức: - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.
* kỹ năng: - Rèn luyện khã năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.
* Thái độ: - Nghiêm túc, nghiên cứu tài liệu, yêu thích môn học.
B Phương pháp.
- Thực hành, rèn luyện kỹ năng lập trình trên máy.
C Chuẩn bị.
1 Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2 Chuẩn bị của học sinh: SGK, tài liệu tham khảo, làm bài tập thực hành.
D Tiến trình lên lớp.
I ổn định: Kiểm tra sĩ số (1 phút)
II Kiểm tra bài cũ:
III Bài mới:
1 Đặt vấn đề: Để làm quen với câu lệnh lặp với số lần chưa biết trước
2 Triển khai bài:
a Hoạt động 1: Lặp với số lần chưa biết trước (39 phút)
Hoạt động của thầy và trò Nội dung kiến thức
GV: Yêu cầu HS khởi động máy và khởi động
chương trình Pascal.
HS: Thực hiện.
GV: Yêu cầu HS mô tả thuật toán.
HS: Thực hiện.
GV: Nhận xét, bổ sung.
1 Nội dung thực hành.
* Bài 1: Viết chương trình sử dụng lệnh lặp While do để tính trung bình n số thực x 1 , x 2 ,
x 3 , , x n Các số x 1 , x 2 , x 3 , , x n được nhập từ bàn phím.
a) Mô Tả thuật toán b) Gõ chương trình và lưu với tên Tinh_TB: Program tinh_trung_binh;
Use crt;
Var n, dem: Integer;
Trang 2GV: Yêu cầu HS nghiên cứu SGK và thực hiện
bài TH.
HS: Làm bài TH.
GV: Quan sát, hướng dẫn HS trong quá trình
TH.
GV: Yêu cầu HS lưu bài TH và viết lại chương
trình bằng lệnh lặp For do.
HS: Làm bài TH theo yêu cầu của GV.
X, TB: Real;
Begin Clrscr;
Dem:= 0; TB:= O;
Write (‘Nhap so cac so can tinh n = ‘);
Readln(n);
While dem < n do Begin
Dem:= dem + 1;
Write (‘Nhap so thu ‘, dem,’ = ‘); Readln(x);
TB:= TB + x;
End;
TB:= TB/n;
Writeln (‘Trung binh cua ‘, n, ‘so la ‘, TB: 10: 3);
Writeln (‘Nhan Enter de thoat ’);
Readln End c) Đọc và tìm hiểu ý nghĩa của từng câu lệnh Dịch chương trình và sửa lỗi nếu có d) Viết lại chương trình bằng câu lệnh For do thay cho câu lệnh While do IV Cũng cố: (5 phút) - Nhận xét bài làm của từng nhóm và chung cho cả lớp - Yêu cầu HS thoát khỏi Pascal và tắt máy V Dặn dò: - Học bài Xem trước bài 2 và viết bài thu hoạch thực hành * Rút kinh nghiệm: .
Trang 3
Ngày soạn:
Bài thực hành 6
Sử dụng lệnh lặp while do
(Tiết 52)
A Mục tiêu.
* Kiến thức: - Viết chương trình Pascal sử dụng câu lệnh lặp với số lần chưa biết trước.
* kỹ năng: - Rèn luyện khã năng đọc chương trình, tìm hiểu tác dụng của các câu lệnh.
* Thái độ: - Nghiêm túc, nghiên cứu tài liệu, yêu thích môn học.
B Phương pháp.
- Thực hành, rèn luyện kỹ năng lập trình trên máy.
C Chuẩn bị.
1 Chuẩn bị của giáo viên: Giáo án, SGK, máy tính.
2 Chuẩn bị của học sinh: SGK, tài liệu tham khảo, làm bài tập thực hành.
D Tiến trình lên lớp.
I ổn định: Kiểm tra sĩ số (1 phút)
II Kiểm tra bài cũ:
III Bài mới:
1 Đặt vấn đề: Để làm quen với câu lệnh lặp với số lần chưa biết trước
2 Triển khai bài:
a Hoạt động 1: Lặp với số lần chưa biết trước (39 phút)
Hoạt động của thầy và trò Nội dung kiến thức
GV: Yêu cầu HS khởi động máy và khởi động
chương trình Pascal.
HS: Thực hiện.
GV: Yêu cầu HS mô tả thuật toán.
HS: Thực hiện.
GV: Nhận xét, bổ sung.
GV: Yêu cầu HS nghiên cứu SGK và thực hiện
1 Nội dung thực hành.
* Bài 2: Tìm hiểu chương trình nhận biết một số
tự nhiên N được nhập vào từ bàn phím có phải
là số nguyên tố hay không?
a) Đọc và hiểu ý nghĩa của từng câu lệnh trong chương trình sau:
Use crt;
Var n, i: Integer;
Begin Write (‘Nhap vao mot so nguyen: ‘);
Readln(n);
Trang 4bài TH.
HS: Làm bài TH.
GV: Quan sát, hướng dẫn HS trong quá trình
TH.
HS: Làm bài TH theo yêu cầu của GV.
If n <= 1 then writeln (n, ‘Khong la so nguyen
to ‘) Else Begin i:= 2;
While (n mod i<>0) do i:= i + 1;
If i = n then writeln (n, ‘La so nguyen to! ‘)
Else writeln (n, ‘Khong phai la so nguyen to! ‘);
End;
Readln End.
b) Gõ, dịch và chạy thử chương trình với một vài độ chính xác khác nhau.
IV Cũng cố: (5 phút)
- Nhận xét bài làm của từng nhóm và chung cho cả lớp.
- Yêu cầu HS thoát khỏi Pascal và tắt máy.
V Dặn dò:
- Học bài Làm bài tập, chuẩn bị cho tiết bài tập.
* Rút kinh nghiệm: