hội thi giáo viên dạy giỏi thpt tỉnh đồng tháp

Câu hỏi: Hãy điền vào chỗ trống câu lệnh thích hợp để chương trình nhập xuất xâu A hoàn chỉnh? Var A: String[25]; Begin Write(‘Nhap xau A: ’); _ Write(‘Xau A la: ‘); _ Readln; End Var A: String[25]; Begin Write(‘Nhap xau A: ’); Readln(A); Write(‘Xau A la: ‘); Write(A); Readln; End Bµi 12 : Giả sử ta có: st1 := ‘ THPT ; THPT’ st2 := ‘Truong TP Cao Lanh’; st3 := ‘Truong THPT TP Cao Lanh’; Trong ngôn ngữ lập Xâu st3 = st1 + st2 trình Pascal thủ tục hay sai? Vì sao? chèn có cú pháp nào? Bài 12: KIỂU XÂU (tt) (STRING TYPE) c Một số thủ tục hàm Pascal: Insert(s1, s2, vt): Chèn xâu s1 vào s2 vị trí vt Ví dụ: st1 := ‘ Nam’; st2 := ‘Phuong Bac’; Insert(st1, st2, vt); 7);  KQ: ‘Phuong Nam Bac’ Bài 12: KIỂU XÂU (tt) (STRING TYPE) c Một số thủ tục hàm Pascal: Hãy điền đối số thích hợp vào dấu chấm hỏi (?) để cú pháp thủ tục hàm Nêu chức năng? Lấy ví dụ minh họa? NHÓM THỦ TỤC / HÀM CHỨC NĂNG CỦA THỦ TỤC / HÀM Insert (s1,s2,vt); Chèn xâu s1 vào xâu s2 vị trí vt Delete (st,vt,n); ? Xóa n kí tự xâu st vị trí vt Copy (st,vt,n); ? Tạo xâu gồm n kí tự liên tiếp vị trí vt xâu st Length (st); ? Trả giá trị độ dài xâu st 4, Pos (s1,s2); ? Trả giá trị vị trí xuất xâu s1 xâu s2 Upcase (ch); ? Cho chữ in hoa ứng với chữ ch Cấu trúc chung chương trình gồm phần nào? [] Bài 12: KIỂU XÂU (tt) (STRING TYPE) Một số ví dụ:  Ví dụ 1: Viết chương trình nhập họ tên hai người vào hai biến xâu đưa hình xâu dài hơn, đưa xâu nhập sau Input: Nhập họ tên hai người vào hai biến xâu Output: Đưa hình xâu dài hơn, đưa xâu nhập sau Sử dụng thủ tục Read() Readln() để nhập giá trị cho biến xâu Sử dụng hàm Length(st) để lấy độ dài hai xâu Sử dụng câu lệnh If… Then… Else Bài 12: KIỂU XÂU (tt) (STRING TYPE) Một số ví dụ:  Ví dụ 1: Viết chương trình nhập họ tên hai người vào hai biến xâu đưa hình xâu dài hơn, đưa xâu nhập sau  Khai báo hai biến xâu a, b  Nhập giá trị cho hai xâu a, b  Xử lý xâu: Nếu độ dài xâu a lớn xâu b đưa hình xâu a, ngược lại đưa hình xâu b Program VD1; Var a, b: String; Begin Write(‘Nhap ho ten thu nhat: ’); Readln(a); Write(‘Nhap ho ten thu hai: ’); Readln(b); If Length(a) > Length(b) Then Writeln(a) Else Writeln(b); Readln; End Bài 12: KIỂU XÂU (tt) (STRING TYPE) Một số ví dụ:  Ví dụ 2: Viết chương trình nhập xâu từ bàn phím đưa hình xâu thu từ sau loại bỏ dấu cách có  Khai báo hai biến xâu a, b  Nhập giá trị cho hai xâu a  Xử lý xâu: Lần lượt duyệt qua tất phần tử xâu a Nếu phần tử duyệt khác dấu cách bổ sung vào xâu b Program VD2; Var i,k: byte; a, b: String; Begin Write(‘Nhap xau: ’); Readln(a); b:= ‘’; k:= Length(a); For i:= To k Do If a[i] ‘ ’ Then b:= b + a[i]; Writeln(‘Ket qua: ’, b); Readln; End BÀI TẬP: Câu 1: Cho: st := ‘300kitu’; Sau thực thủ tục hàm sau kết trả là:  a Length(st);  ‘300’ b Delete(st,4,4);  ‘kitu’ c Copy(st, 4, 4);  d Pos(‘00’,st); BÀI TẬP: Câu 2: Hãy xếp lại mảnh ghép để chương trình hồn chỉnh: “đổi xâu kí tự thường thành xâu kí tự in hoa” Program DOI_CHU; Var i: byte; st: String; Begin Write(‘Nhap xau: ’); Readln(st); For i:= To Length(st) Do st[i] := Upcase(st[i]); Writeln(‘Ket qua: ’, st); Readln; End VỀ NHÀ: Các em nhà học xem trước tập thực hành SGK trang 73 Giải tập 10 SGK trang 80 ... Write(‘Xau A la: ‘); Write(A); Readln; End Bµi 12 : Giả sử ta có: st1 := ‘ THPT ; THPT? ?? st2 := ‘Truong TP Cao Lanh’; st3 := ‘Truong THPT TP Cao Lanh’; Trong ngôn ngữ lập Xâu st3 = st1 + st2 trình Pascal