- Học sinh thực hiện được các thao tác với phần mềm Pascal để thực hiện viết chương trình, dịch, chạy và lưu chương trình; viết chương trình Pascal có câu lệnh lặp While …do.. Hs thực[r]
(1)Tuần 26 - Tiết 50 Ngày dạy: 06/03/2017
Bài thực hành 6:
SỬ DỤNG LỆNH LẶP WHILE … DO
1 MỤC TIÊU:
1.1 Kiến thức:
* Hoạt động: - Học sinh biết hiểu câu lệnh chương trình tập 2; hiểu trình hoạt động câu lệnh lặp While … chương trình - Học sinh biết thao tác với phần mềm Pascal để thực viết chương trình,
dịch, chạy lưu chương trình
- Biết lựa chọn câu lệnh lặp while for phù hợp với tình cụ thể
1.2 Kĩ năng:
Hs thực được:
- Học sinh thực thao tác với phần mềm Pascal để thực viết chương trình, dịch, chạy lưu chương trình; viết chương trình Pascal có câu lệnh lặp While …do
Hs thực thành thạo:
- Học sinh thực thành thạo thao tác với phần mềm Pascal để thực viết chương trình, dịch, chạy lưu chương trình; viết chương trình Pascal có câu lệnh lặp While …do
1.3 Thái độ:
Thói quen:
- Học sinh thói quen tự rèn luyện mơn học có ý thức học tập mơn, ham thích tìm hiểu tư khoa học
Tính cách:
- Rèn luyện tính kiên trì học tập, rèn luyện
2 NỘI DUNG BÀI HỌC:
- Thực hành sử dụng lệnh lặp While
3 CHUẨN BỊ:
3.1 Giáo viên: Phòng máy Phần mềm Pascal hoạt động tốt
(2)4 TỔ CHỨC CÁC HOẠT ĐỘNG HỌC TẬP: 4.1.
Ổn định tổ chức kiểm diện (2 phút)
Giáo viên ổn định tổ chức kiểm diện học sinh
4.2.
Kiểm tra miệng :
Lịng q trình thực hành
4.3.
Tiến trình học:
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG BÀI HỌC
Hoạt động: (35 phút)
d Viết lại chương trình cách sử dụng câu lệnh For … thay cho câu lệnh While …
Gv: Hướng dẫn học sinh thực tập
Hs: Cùng với giáo viên viết chương trình theo yêu cầu toán
Gv: Yêu cầu học sinh so sánh với chương trình sgk cho nhận xét
Hs: Cho nhận xét
Gv: Rút nhận xét việc trường hợp phù hợp sử dụng lệnh For hay lệnh While
Bài tập 2:Tìm hiểu chương trình nhận biết
một số tự nhiên N nhập vào từ bàn phím có phải số nguyên tố hay không
Gv: Hướng dẫn học sinh thực tập
Bài tập 1:
Program Tinh_trung_binh; Var n, dem: integer;
X, Tb: real; Begin
Dem:=0; Tb:=0;
Writeln(‘nhap cac so can tinh n =’); Readln(n); For dem :=1 to n
Begin
Writeln(‘nhap so thu’, dem,’=’); Readln(x);
Tb:= Tb + x; End;
Tb:=Tb/n;
Writeln(‘Trung binh của’,n,’so =’, tb:10:3); Writeln(‘Nhấn Enter để thoát ’);
Readln;
End
Bài tập 2: Tìm hiểu chương trình nhận biết
số tự nhiên N nhập vào từ bàn phím có phải số ngun tố hay không
Uses Crt;
Var n,i: integer;
(3)2
Hs: Thực tập theo hướng dẫn giáo viên
Gv: Hỗ trợ học sinh trình thực
hành
Gv: Yêu cầu học sinh suy nghĩ câu d (nếu thời gian
Clrscr;
write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else
begin
i:=2;
while (n mod i<>0) i:=i+1;
if i=n then writeln(n,' la so nguyen to!') else writeln(n,'khong phai la so nguyento!'); end;
readln
End
4.4.
Tổng kết (3 phút)
- Giáo viên đánh giá kết tiết thực hành
- Tuyên giương em làm tốt, nhiệt tình Phê bình nhắc nhở em chưa nghiêm túc tiết thực hành
4.5.
Hướng dẫn học tập (5 phút)
Đối với học tiết này:
- Về nhà xem lại chương trình thực hành hôm
- Về nhà viết lại chạy thử chương trình với liệu vào khác để hiểu chương trình câu lệnh lặp (nếu có điều kiện)
Đối với học tiết tiếp theo:
- Sưu tầm tập liên quan đến câu lệnh For … While Chuẩn bị cho tiết tập tiết sau
5.
PHỤ LỤC.