VD: gán st:= copy‘thuc hanh nghe’,9,4; Trả lời: kết quả là ‘nghe’ f.Hàm GV: Giới thiệu cấu trúc chung Hàm 5p lengths của hàm lengths lengths,Cho giá Nêu ý nghĩa của hàm lengths trị là [r]
(1)Giáo án tin học lớp 11 Kiểu xâu( tiết 2) I II III Mục tiêu Kiến thức Hiểu lợi ích các hàm và thủ tục liên quan đến xâu ngôn ngữ lập trình pascal Nắm cấu trúc chính hàm liên quan đến xâu, Kĩ Bước đầu sử dụng số hàm, thủ tục thông dụng xâu Có thể cài đặt số chương trình đơn giản có sử dụng xâu Phương pháp dạy học và công tác chuẩn bị Phương pháp Sử dụng phương pháp trao đổi Đặt câu hỏi kết hợp thuyết trình giảng giải Chuẩn bị Giáo viên: giáo án, bảng phụ, phấn, máy chiếu Học sinh: sách giáo khoa, ghi, bút,… Hoạt động dạy học Kiểm tra bài cũ Câu 1: Em hãy cho biết kiểu xâu là gì? Cách khai báo kiểu xâu? Đáp án: xâu là dãy kí tự mã ASCII, kí tự gọi là phần tử xâu, đặt dấu nháy đơn ‘ ’ Cách khai báo xâu: var<tên biến>: string[độ dài lớn xâu] Câu 2: Em hãy khai báo biến mảng chiều có tên là KT gồm 255 phần tử, mã phần tử mảng thuộc kiểu kí tự Đáp án: Var KT: array[1…255] of char; Câu 3: với biến mảng KT trên, thì câu lệnh gán nào sau đây là sai? Vì sao? a KT[1]:= ‘T’; b KT[5]:= ‘DAI HOC SU PHAM HA NOI’; Gợi động (2) Chúng ta vừa nhắc lại kiến thức xâu, cách khai báo xâu, các thao tác với xâu… để làm rõ vấn đề này hôm chúng ta vào số ví dụ sử dụng xâu Nội dung bài STT Hoạt động GV Và HS Các Giới thiệu cho các em thao tác Hôm chúng ta học bài xử lí kiểu xâu gồm: xâu Nhập, xuất xâu Thủ tục và hàm GV: Giới thiệu cấu trúc chung d.Thủ thủ tục Thủ tục tục insert(s1,s2,vt) insert Chiếu chương trình ví dụ (s1,s2,vt) Var st1,st2:string; begin st2:= ‘hinh 2’; st1:= ‘1’; insert(st1, st2,6); Write(st1,st2); readln; End HS: quan sát cấu trúc chung thủ tục Insert GV Hỏi: kết chương trình in màn hình HS Trả lời: ‘hinh 1.2’ GV hỏi: chức thủ tục Insert Chèn xâu s1 vào vị trí xâu s2 vị trí vt GV hỏi: gán st2:= ‘432’; hỏi kết in màn hình Insert (s1,s2,4) Insert (s1,s2,2) Hs trả lời: ‘4321’ Nội dung Hoạt động Giới thiệu Thời Phương gian pháp gợi động 1: 2p Thủ tục insert 7p (s1,s2,vt )Chèn xâu s1 vào xâu s2, bắt đầu vị trí vt (3) ‘4123’ e.Hàm copy (S,vt,N) GV: Giới thiệu cấu trúc chung hàm copy(S,vt,N) Nêu ý nghĩa hàm copy Chiếu chương trình Var st:string; Begin st:=copy(‘bai tap’, 4, 3); Write(st); readln; End Hàm copy 5p (S,vt,N),Tạo xâu gồm N kí tự liên tiếp vị trí vt xâu S Hỏi: kết in màn hình là gì? Trả lời: kết ‘ tap’ Hỏi: chức hàm copy là gì? Cho giá trị là xâu kí tự lấy xâu st, lấy n kí tự từ vị trí VD: gán st:= copy(‘thuc hanh nghe’,9,4); Trả lời: kết là ‘nghe’ f.Hàm GV: Giới thiệu cấu trúc chung Hàm 5p length(s) hàm length(s) length(s),Cho giá Nêu ý nghĩa hàm length(s) trị là độ dài xâu S Chiếu chương trình: Var st:string; Begin st:= ‘HaNoi’; Write(length(st)); readln; End GV hỏi: kết chương trình in màn hình Kq: GV hỏi: chức hàm (4) length là gì? Cho biết kí tự là độ dài xâu Vd: gán st:= ‘CNTT’ cho kết in màn hình là bao nhiêu? Kq: g Hàm GV: Giới thiệu cấu trúc chung pos hàm pos(s1,s2) (s1, s2) Nêu ý nghĩa hàm pos Cho vị trí xuất đầu tiên xâu s1 xâu s2 Hàm pos 5p (s1, s2),Cho vị trí xuất đầu tiên xâu s1 xâu s2 Chiếu chương trình: Var vt:byte; Begin vt:=Pos(‘cd’, ‘abcdefcd’); Write(vt); readln; End Hỏi: kết in màn hình là gì? Kq : Vd: gán s1:= ‘ĐHSPHN’ S2:= ‘SP’ Vậy pos(s1,s2)=? Kq: pos(s1,s2) = Hỏi: Vậy chức hàm pos là gì? Chức năng: cho giá trị là vị trí xuất s1 xâu h.Hàm upcase (ch) GV: Giới thiệu cấu trúc chung hàm upcase(ch) Nêu ý nghĩa hàm upcase(ch) Cho chữ cái in hoa ứng với chữ cái ch chiếu chương trình con: Var ch:char; Begin ch:= ‘h’; Write(upcase(ch)); Hàm upcase 5p (ch),Cho chữ cái in hoa ứng với chữ cái ch (5) readln; End Hỏi: kết chương trình in màn hình? ‘H’ Hỏi: gán ch:= ‘t’ cho kết in màn hình là gì? ‘T’ Hỏi:Vậy chức hàm upcase là gì? Cho giá trị là kí tự hoa tương ứng với kí tự ch 3.Một số Ví dụ 1: ví dụ Hỏi:Các em xác định input và out put bài toán: a Ví dụ Trả lời: Input: Xâu a,b là họ tên hai người OutPut: In màn hình xâu dài Hỏi: để xác định chiều dài xâu tà dùng thuật toán gì? Trả lời: ta sử dụng hàm length(s) Chương trình: Begin If Length(a)>Length(b) Then write(a) else write(b); End b.Ví dụ Ví dụ 2: Hỏi:Các em xác định input và out put bài toán: Trả lời: Input: Xâu a,b OutPut: In màn hình thông báo xâu trùng hay không Chương trình: Begin If a[1]=b[x] Then write(‘Dai Hoc) else write(‘Su pham’); Input: Xâu a,b là họ tên hai người - Out put: In màn hình xâu dài - đọc lại hàm length(s) Input: Xâu a,b - OutPut: In màn hình thông báo xâu trùng hay không - Hàm Length(S) (6) End IV Củng cố Câu 1: Khai báo nào sau đây là đúng? A Var x:string[25]; C Var x= string[40]; B Var x:string[256]; D Var x: string40; Đáp án : A Câu 2: Hãy cho biết độ dài xâu S; Với S:=‘Viet Nam’? A B 10 C 13 D.7 Đáp án : A Câu 3: Với giá trị xâu S trên, tham chiếu đến phần tử thứ 4thì ta kí tự nào? A ‘u’ B ‘a’ C ‘ t’ D ‘n’ Đáp án : C Cho s1:=‘tin’; s2:=‘hoc’ Câu 4: Để có kết là: ‘tin hoc lop 11’ thì ta làm sau: A S1+S2+ lop 11; B S1+S2+lop+11; C S1+S2+’lop’+’11’; D S1+S2+‘lop 11’; Đáp án : D Câu 5: Để có kết là: ‘ c ’ thì ta làm: A delete(s2,1,2); B delete(s2,2,1); C delete(s1,s2,1); D.delete(s2,3); Đáp án : A Câu 6: Để có kết là: ‘htinoc’ thì ta làm: A insert(s2,s1,3); B insert(s2,s1,2); C insert(s1,s2,2); D.insert(s1,s2,3); Đáp án : C B Tổng kết Củng cố đánh giá: (7) Các hàm xâu và chức Các thủ tục xâu và chức Dặn dò Về nhà học bài, xem các ví dụ cuối bài và làm hết bài tập SGK (8)