Bai giang tiet 32

Bµi 12 Gi¸o ¸n ®iÖn tö tin häc líp 11 Tr×nh bµy c¸ch khai b¸o kiÓu d÷ liÖu x©u? cho vÝ dô. KiÓm tra bµi cò 3. Mét sè vÝ dô NhËp vµo hä tªn cña hai häc sinh, in ra mµn h×nh hä tªn dµi h¬n? 1 C¸c b íc: ThÓ hiÖn b»ng pascal 1. Khai b¸o x©u Var a,b: string; 2. NhËp x©u BEGIN Write(‘ Nhap xau ho ten thu nhat :’); Readln(a); Write(‘Nhap xau ho ten thu hai :’); Readln(b); 3. Xö lÝ x©u IF Length(a)>Length(b) Then write(a) else write(b); Readln; END. Chương trình hoàn chỉnh cài đặt trên cửa sổ soạn thảo của Pascal Chạy chương trình và đưa ra kết quả Nhập vào hai xâu từ bàn phím, kiểm tra xem kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không? 2 Các b ớc: 1. Khai báo xâu : A,B 2. Nhập xâu 3. Xử lí xâu, trong đó: Kí tự đầu tiên của xâu A: A[1] Kí tự cuối cùng của xâu B: B[x] trong đó X là độ dài của xâu B Dựa vào các b ớc bên, hãy hoàn thiện ch ơng trình? Chương trình hoàn chỉnh cài đặt trên cửa sổ soạn thảo của Pascal Chạy chương trình và đưa ra kết quả Nhập vào một xâu từ bàn phím, đ a ra màn hình xâu thu đ ợc bằng cách loại bỏ các dấu cách từ xâu đã cho? 3 Hãy nêu thuật toán để giải bài toán trên? Ví dụ: - Xâu ban đầu : Mon Tin hoc - Kết quả ra màn hình : MonTinhoc Thuật toán B1. Khởi tạo xâu rỗng; B2. Lần l ợt duyệt qua tất cả các phần tử của xâu vừa nhập, nếu phần tử đ ợc duyệt khác dấu cách thì bổ sung vào xâu rỗng. Hãy viết ch ơng trình dựa theo thuật toán bên.