20211030174707617d22abefa0a giai bai tap tin hoc 11 bai tap va thuc hanh 5 ngan gon

Thư viện tài liệu học tập, tham khảo online lớn Nội dung viết Soạn SGK Tin Học lớp 11: Bài tập thực hành 5​ ​ Bài (trang 73 sgk Tin 11) Bài (trang 73 sgk Tin 11) Bài (trang 73 sgk Tin 11) ​ ​ ​ ​ ​ Mời em học sinh quý thầy cô giáo tham khảo hướng dẫn Soạn SGK Tin học lớp 11: Bài tập thực hành ngắn gọn đầy đủ nhất, biên soạn chia sẻ Soạn SGK Tin Học lớp 11: Bài tập thực hành 5​ ​ ​ ​ ​ ​ ​ Mục đích, u cầu Làm quen với việc tìm kiếm, thay biến đổi xâu Nội dung Bài (trang 73 sgk Tin 11) Nhập vào từ bàn phím xâu Kiểm tra xâu có phải xâu đối xứng hay khơng Xâu đối xứng có tính chất: đọc từ phải sang trái thu kết giống đọc từ trái sang phải (còn gọi xâu palindrome) a) Hãy chạy thử chương trình sau: program vd2; clrscr; p:=''; uses crt; var i,x:byte; a,p:string; begin write('nhap xau:'); readln(a); x:=length(a); for i:=x downto p:=p+a[i]; if a=p then Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom write(' Thư viện tài liệu học tập, tham khảo online lớn b) Hãy viết lại chương trình tên, khơng dùng biến xâu p Do xâu đảo ngược xâu viết xi nên Xau[1]=Xau[length(xau)] Xau[2]=Xau[length(xau-1)] … Vậy ta làm theo cách sau: Sử dụng biến I để đếm xuôi so sánh với xau[length(xau)-i] khác kết luận ln khơng phải palindrome Lặp đến i> length(xau)-I +1(Vì duyệt tiếp lặp lại) program vd2; uses crt; var a:string; i:integer; p:boolean; begin clrscr; write('nhap xau:'); readln(a); i:=1; p:=true; while (i0 then writeln(chr(ord('A')+i),':',gt[i]); readkey; end Kết quả: Bài (trang 73 sgk Tin 11) Nhập vào từ bàn phím xâu Thay tất cụm kí tự 'anh' cụm kí tự 'em' Trả lời: Ta tìm vị trí mà từ 'anh' xuất hàm pos sau xóa từ 'anh' chèn từ 'em' vào Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom Thư viện tài liệu học tập, tham khảo online lớn Đến xâu ban đầu khơng cịn từ 'anh' dừng program vd2; uses crt; var a:string; vt:integer; clrscr; write('nhap xau:'); readln(a); while pos('anh',a)>0 begin vt:=pos('anh',a); delete(a,vt,3); insert('em',a,vt); end; write(a); readkey; end begin ►►CLICK NGAY vào nút TẢI VỀ để tải Giải tập Tin học lớp 11: Bài tập thực hành (Ngắn gọn) file PDF hoàn toàn miễn phí Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom ... sau trừ giá trị 'A' bảng ASCII Ví dụ : Mã ASCII 'A' 65 vị trí mảng 65- 65 =0 Mã ASCII 'A' 66 vị trí mảng 66- 65 =1 program vd2; uses crt; var a:string; gt:array[0 26] of integer; i:integer; begin... then readkey; end Cách tiết kiệm chi phí cách trước cần duyệt khoảng 1/2 xâu Bài (trang 73 sgk Tin 11) Website: https://tailieu.com/ | Email: info@tailieu.com | https://www.facebook.com/KhoDeThiTaiLieuCom... write('nhap xau:'); readln(a); for i:=0 to 25 gt[i]:=0; for i:=1 to length(a) begin gt[ord(upcase(a[i]))-ord('A')]:=gt[ord(upcase(a[i]))ord('A')]+1; end; for i:=0 to 25 if gt[i]>0 then writeln(chr(ord('A')+i),':',gt[i]);