Đang tải... (xem toàn văn)
Bài 2: Viết ctrinh nhập từ bàn phím xâu kí t GV: Chia nhóm cho học sinh thực ự s1, tạo xâu s2 gồm tất cả cac chữ số có hành... trong s1 và đưa kết quả ra màn hình..[r]
(1)Ngày soạn: Ngày dạy: Tiết: 32 BÀI TẬP I.Mục đích: + Củng cố lại kiến thức đã học + Vận dụng kiến thức kỹ đã học vào giải các bài tập đúng, chính xác + Học sinh yêu thích giải bài toán lĩnh vực tin học II.Biện pháp: Dạy và học phát và giải vấn đề III Phương tiện: - GV: Sách bài tập và số bài tập nâng cao - HS: SGK, bút vở, nháp… IV Nội dung tiết dạy: Ổn định tổ chức: Tiến trình bài học: Hoạt động Nội dung Bài 1: Viết ctrinh nhập xâu vào từ bàn phím và kiểm tra kí tự đầu tiên xâu thứ GV: Chia nhóm cho học sinh thực có trùng với kí tự cuối cùng xâu hành thứ hai - HS: Nghiên cứu làm các bài tập Program bai1; Var x: byte; A, b: string; Begin - GV: Goi HS lên bảng chữa bài Write (‘nhap xau thu nhat : ’); - Quan sát và hướng dẫn các nhóm Readln (a); làm bài tập Write (‘nhap xau thu hai : ’); Readln (b); HS: nghiêm túc làm bài tập X: length (b); If a [1 ] =b [x ] then write (‘trung nhau’) Lop11.com (2) Else write (‘khac nhau’); Readln End Bài 2: Viết ctrinh nhập từ bàn phím xâu kí t GV: Chia nhóm cho học sinh thực ự s1, tạo xâu s2 gồm tất cac chữ số có hành s1 và đưa kết màn hình - HS: Nghiên cứu làm các bài tập Pr ogram bai2; Var s1, s2: string; I:byte; Begin - GV: Goi HS lên bảng chữa bài Write (‘Nhap vao xau s1: ’); - Quan sát và hướng dẫn các nhóm Readln (s1); làm bài tập S2:= ‘ ‘; for i:=1 to length (s1) HS: nghiêm túc làm bài tập if (‘0’=<s1 [i ] and (s1 [i ]<=’9’ then s2:=s2+s1 [i ]; writeln (‘Ket qua: ’, s2); readln end Củng cố: Nhắc lại câu lệnh rẽ nhánh Dặn dò: Về nhà chuẩn bị bài 13 - Kiểu ghi Lop11.com (3)