Đang tải... (xem toàn văn)
Bài tập 1: Lập trình nhập vào xâu đếm xem trong xâu có bao nhiêu ký tự -Hoïc sinh suy nghó -Ta có thể cho lệnh for đi từ ‘A’ đến ‘Z’.. Theo em lệnh nào sẽ ở ngoài?[r]
(1)BÀI THỰC HÀNH SỐ (Tiết 2) I MỤC TIÊU Kiến thức - Khắc sâu thêm phần kiến thức lý thuyết kiểu xâu ký tự, đặc biệt là các hàm và thủ tục liên quan - Nắm số thuật toán bản: tạo xâu mới, đếm số lần xuất ký tự Kĩ - Khai báo biến kiểu xâu - Nhập, xuất giá trị cho biến xâu - Duyệt qua tất các ký tự xâu - Sử dụng các hàm và thủ tuc chuẩn Thái độ - Tích cực, chủ động thực hành II ĐỒ DÙNG DẠY HỌC Chuẩn bị giáo viên - Máy chiếu projector để hướng dẫn Tổ chức phòng máy để học sinh có kĩ làm việc với kiểu xâu Chuẩn bị học sinh - Sách giáo khoa, bài tập nhà III HOẠT ĐỘNG DẠY-HỌC Hoạt động 1: Rèn luyện kỹ lập trình HOẠT ĐỘNG GIÁO VIÊN HOẠT ĐỘNG HỌC SINH Bài tập 1: Lập trình nhập vào xâu đếm xem xâu có bao nhiêu ký tự -Hoïc sinh suy nghó -Ta có thể cho lệnh for từ ‘A’ đến ‘Z’ Làm nào để kiểm tra số lần xuất kí tự? -Hướng dẫn học sinh: ta có hai lệnh for lòng nhau, lệnh for từ đến cuối xâu, còn lệnh - Lệnh for từ ‘A’ ’Z’ nằm từ ‘A’ ’Z’ Theo em lệnh nào ngoài? ngoài -Hướng dẫn học sinh khai báo biến và hoàn chỉnh chöông trình Program bai_1a; Uses Crt; Var s: String; - Học sinh hoàn chỉnh chương trình theo hướng dẫn (2) Dem,l:integer; kt:char; Begin Write(' Nhap xau :');Readln(s); l:=length(s); for kt:='A' to 'Z' begin dem:=0; For i := to l if upcase(s[i])=kt then dem:=dem+1; if dem <>0 then begin write('Co ',dem,' ki tu ',kt); writeln; end; end; Readln; End Bài tập 2: Để kiểm tra xem xâu s1 có xuất s2 không ta có thể sử dụng hàm nào? -YÙ nghóa cuûa thuû tuïc delete,insert? -Hướng dẫn học sinh sử dụng các hàm,thủ tục này để giải bài Baøi Program bai_1a; Uses Crt; Var s,s1,s2: String; vt:integer; Begin Write(' Nhap xau :');Readln(s); write('Nhap chuoi can thay the: '); readln(s1); Write('Nhap xau can thay the:'); readln(s2 ); - Ta có thể sử dụng hàm pos(s1,s2) Neáu keát quaû <>0 thì s1 coù s2 -Học sinh trả lời -Học sinh làm theo hướng dẫn giaùo vieân (3) l:=length(s1); while pos(s1,s) <> begin vt:=pos(s1,s); delete(s,vt,l); insert(s2,s,vt); end; write('Chuoi sau da thay the: ',s); Readln; End Cuûng coá : Nhắc lại sai sót mà học sinh thường gặp thao tác với xâu Daën doø : + Xem laïi baøi + Chuaån bò baøi taäp 2,3 SGK trang 73 (4) (5)