VnDoc Tải tài liệu, văn bản pháp luật, biểu mẫu miễn phí Tiết 21 BÀI TẬP 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[.]
Tiết 21: BÀI TẬP I Mục tiêu Kiến thức:Tổng kết cho học sinh kiến thức cấu trúc rẽ nhánh lặp Kĩ năng: Rèn luyện kĩ vận dụng linh hoạt công việc lựa chọn cấu trúc rẽ nhánh cấu trúc lặp phù hợp để giải toán đặt II Chuẩn bị Giáo viên: Máy chiếu, SGK, sách giáo viên, sách tập Học sinh: SGK, sách tập, đồ dùng học tập III Tổ chức hoạt động học tập Ổn định tổ chức lớp: Kiểm tra cũ: Tiến hành trình thực hành Tiến trình học Hoạt động thầy trò Nội dung Hoạt động 1: Giới thiệu nội dung tập gợi ý (10 phút) Bài 5: Lập trình tính GV: Nêu Nội dung tập SGK tg a) Y = 50 n 51 n 1 n GV: Nêu hướng giải cho tập trên? 1 b) E(n) = 1+ HS: 2! n! Bài 5a: Sử dụng cấu trúc lặp với số lần biết 2.10 6 n! trước For - Do Bài 5b: Sử dụng cấu trúc lặp với số lần Bài 6: Lập trình để giải tốn cổ sau: Vừa gà vừa chó khơng biết trước While - Do Bó lại cho trịn Bài 6: Sử dụng vòng For duyệt thử Ba mươi sáu trường hợp x (gà); y (chó) Một trăm chân chẵn Nếu x+y = 36 2*x +4*y = 100 đưa Hỏi có hình kết x;y loại? Hoạt động 2: Chữa tập (30 phút) GV gọi học sinh lên bảng chữa bài, giáo Đáp án: viên nhận xét, tổng kết đánh giá cho Bài 5a: program Bai5a; điểm Uses crt; HS: Lên bảng làm tập theo yêu câầ Var n:Integer; Y: real; giáo viên Begin HS lớp suy nghĩ làm tập nháp Y:=0; for n:=1 to 50 GV: Chữa bài, tổng kết đánh giá cho Y:=Y+n/(n+1); điểm write(' Gia tri can tinh la:', Y:8:3); readln; End Bài 5b: program TongGT; uses crt; VnDoc - Tải tài liệu, văn pháp luật, biểu mẫu miễn phí Hoạt động thầy trị Var Begin end Nội dung n, gt: longint; e: real; clrscr; e:=2; gt:=2; n:=2; While not(1/gt < 2*1E-6) begin e:=e+ 1/gt; n:=n+1; gt:=gt*n; end; write('Kqua la:',e:10:6); readln; Bài 6: program gacho; uses crt; var x,y: integer; begin clrscr; for x:= to 36 for y:= to 36 if (x*2 + y*4 = 100) and (x+y =36) then write('So ga la: ', x,' so cho la:',y); readln; end Tổng kết hướng dẫn học tập nhà (05 phút) * Tổng kết + Câu lệnh For - Do: Số lần lặp xác định + Câu lệnh While - Do: Số lần lặp chưa xác định * Bài tập nhà: Cho chương trình viết lệnh For: Var x, i:word; nt:boolean; Begin Readln(x); nt :=true; For i :=2 to x – if x mod i = 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 lệnh lặp For thay lệnh lặp While Hãy cho biết, toán sử dụng lệnh lặp tốt hơn? VnDoc - Tải tài liệu, văn pháp luật, biểu mẫu miễn phí ... gacho; uses crt; var x,y: integer; begin clrscr; for x:= to 36 for y:= to 36 if (x*2 + y*4 = 100) and (x+y =36) then write(''So ga la: '', x,'' so cho la:'',y); readln; end Tổng kết hướng dẫn học tập... Số lần lặp chưa xác định * Bài tập nhà: Cho chương trình viết lệnh For: Var x, i:word; nt:boolean; Begin Readln(x); nt :=true; For i :=2 to x – if x mod i = then nt:=false; If nt = true then