TAILIEUCHUNG - Bài tập access - Kiểu xâu kí tự

Đây là bài tập access - Kiểu xâu kí tự gửi đến các bạn độc giả tham khảo. | B1 xóa các kí tự trắng ở đầu và cuối chuỗi while s[1]=' ' do delete(s,1,' '); while s[length(s)]=' ' do delete(s,length(s),' '); {tạo sâu chỉ có 1 dấu cách giữa các từ} i:=1; while ilength(s) do if (s[i]=' ' and s[i+1]=' ') then delete(s,i+1,' ') else i:=i+1; B2 đếm số từ trong xau program demsotu; Var S:string; i,d:byte; Begin write('Nhap vao xau:'); Readln(S); S:=S+' '; d:=0; For i:=1 to length(S) do if (S[i]' ') and (S[i+1]=' ') then inc(d); write('Xau co so tu la:',d); Readln End. B3 Lập trình nhập vào một xâu từ bàn phím. Hãy biến đổi xâu đã cho bằng cách thay đổi tấ cả các dấu chấm liền nhau bằng được thay bằng một dấu chấm procedure Chuanhoa(var s:string); var i:integer; begin while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); i:=1; while i' ')and(s[i-1]=' ')or(i=1) then begin s[i]:=upcase(s[i]); end; end; function FilterEn(s:string):string; var s2:string; i:integer; begin s2:=''; for i:=1 to length(s) do if (s[i] in ['A''Z','a''z',' ','.',',']) then s2:=s2+s[i]; FilterEn:=s2; end; var s:string; BEGIN write('NHAP VAO 1 XAU : '); read(s); writeln('

• Tin học văn phòng
• tin học căn bản
• kỹ năng văn phòng
• Microsoft Access
• bài tập access
• chuỗi kí tự
• Bài giảng học phần Tin học căn bản
• Học phần Tin học căn bản
• Nhập môn tin học
• Môn học tin học căn bản
• Các thành phần cơ bản của máy tính
• Microsoft Word
• giáo trình tin học căn bản
• bài giảng tin học căn bảntài liệu tin học căn bản
• thực hành tin học căn bản
• Bài giảng Tin học căn bản
• Tin học căn bản Phần 2
• Microsoft Word cơ bản
• Tạo chữ drop cap
• Chèn hình ảnh
• Thông tin trong máy tính
• Xử lý thông tin trong máy tính
• Quá trình xử lý thông tin
• Biểu diễn thông tin trong máy tính
• giáo trình tin học
• tự học tin học
• tài liệu tin học căn bản
• Tin học căn bản Phần 4
• Xử lý bảng tính
• Cơ sở dữ liệu Excel
• Dữ liệu trong Excel
• Tin học căn bản Phần 3
• Microsoft Power point
• Trình bày slide
• Thiết kế trang trình bày slide
• Tin học căn bản Phần 1
• hệ điều hành windows
• Giới thiệu về control panel
• Các chương trình tiện ích
• Nhập môn Tin học căn bản
• Khởi động Windows
• Sử dụng hàm trong Excel
• Bài giảng Tin học
• Bài giảng Tin học đại cương
• Hệ thống ứng dụng
• Hệ thống thông tin quản lý
• Hệ thống soạn thảo văn bản
• Hệ thống trình chiếu văn bản
• Hệ thông tin bảng tính
• kinh nghiệm sử dụng
• soạn thỏa văn bản
• tiện ích máy tính
• internet explorer