Giáo án môn Tin học lớp 11 bài 22

Bùi Thế Hiển
Bùi Thế Hiển 03 Tháng mười, 2018

Giáo án môn Tin học 11

Giáo án môn Tin học lớp 11 bài 22: Bài tập được biên soạn theo chuẩn kiến thức kĩ năng của Bộ GD&ĐT. Đây sẽ là tài liệu giáo án điện tử lớp 11 hay giúp quý thầy cô soạn giáo án điện tử môn Tin học 11 nhanh chóng và hiệu quả. Mời quý thầy cô cùng tham khảo.

I. Mục tiêu

1. Kiến thức: Tổng kết cho học sinh những kiến thức về cấu trúc rẽ nhánh và lặp.

2. Kĩ năng: Rèn luyện kĩ năng vận dụng và linh hoạt trong công việc lựa chọn cấu trúc rẽ nhánh và cấu trúc lặp phù hợp để giải quyết bài toán đặt ra.

II. Chuẩn bị

  • Giáo viên: Máy chiếu, SGK, sách giáo viên, sách bài tập.
  • Học sinh: SGK, sách bài tập, đồ dùng học tập.

III. Tổ chức các hoạt động học tập

1. Ổn định tổ chức lớp:

2. Kiểm tra bài cũ: Tiến hành trong quá trình thực hành.

3. Tiến trình bài học

Hoạt động của thầy và trò

Nội dung

Hoạt động 1: Bài tập 1(25 phút)

GV: Nêu Nội dung bài tập.

GV: Nêu hướng giải cho bài tập trên?

HS: Sử dụng cấu trúc lặp với số lần không biết trước While - Do.

GV: Chia nhóm cho các nhóm hoạt động.

HS: Thảo luận nhóm.

GV: Cho các nhóm báo cáo kết quả thảo luận.

GV: Chính xác hóa kiến thức.

GV: Nên sử dụng cấu trúc lặp nào tốt hơn?

HS: Dùng cấu trúc lặp While.

GV: Giải thích?

HS: Vì số lần thực hiện lệnh ít hơn. Chỉ cần gặp trường hợp x mod i = 0 thì thoát khỏi vòng lặp mà không cần kiểm tra các trường hợp còn lại.

GV: Chính xác hóa kiến thức.

Hoạt động 2: Thực hành (15 phút)

GV: Yêu cầu HS thực hành chạy chương trình trên máy.

HS: Thực hành theo yêu cầu của GV.

GV: Quan sát sửa lỗi cho HS.

Bài 1: Cho chương trình được viết bằng lệnh For:

Var x, i:word; nt:boolean;

Begin

Readln(x); nt :=true;

For i :=2 to x – 1 do

if x mod i = 0 then nt:=false;

If nt = true then write(x,’la so nguyen to’) else write(x, ‘khong phai snt’);

readln;

End.

Câu hỏi: Hãy viết lại chương trình trên trong đó lệnh lặp For được thay bằng lệnh lặp While. Hãy cho biết, trong bài toán trên sử dụng lệnh lặp nào là tốt hơn?

Đáp án:

Var x, i:word; nt:boolean;

Begin

Readln(x);

I:=2;

While (i<= x-1) and (x mod i <>0 )do

i:=i+1;

If i> x-1 then write(x,’la so nguyen to’) else write(x, ‘khong phai snt’);

readln;

End.

Nên sử dụng cấu trúc lặp While.

03 Tháng mười, 2018

Nếu bạn không thấy nội dung bài viết được hiển thị. Vui lòng tải về để xem. Nếu thấy hay thì các bạn đừng quên chia sẻ cho bạn bè nhé!