Giải bài tập Tin học 11 Bài tập và thực hành 5 VnDoc com Thư viện Đề thi Trắc nghiệm Tài liệu học tập miễn phí Trang chủ https //vndoc com/ | Email hỗ trợ hotro@vndoc com | Hotline 024 2242 6188 Giải[.]
Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí Giải tập Tin học 11: Bài tập thực hành Mục đích, yê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; uses crt; var i,x:byte; a,p:string; begin clrscr; write('nhap xau:'); readln(a); x:=length(a); p:=''; for i:=x downto p:=p+a[i]; if a=p then write('xau la palindrome') else write('xau khong phai la palindrome'); readkey; end Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí 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 xi so sánh với xau[length(xau)-i] khác kết luận 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; 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 Đến xâu ban đầu khơng cịn từ 'anh' dừng program vd2; uses crt; var a:string; vt:integer; begin 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; Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 Thư viện Đề thi - Trắc nghiệm - Tài liệu học tập miễn phí end write(a); readkey; Xem thêm tại: https://vndoc.com/tai-lieu-hoc-tap-lop-11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188 ... ASCII 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... Tài liệu học tập miễn phí end write(a); readkey; Xem thêm tại: https://vndoc.com/tai-lieu -hoc -tap- lop -11 Trang chủ: https://vndoc.com/ | Email hỗ trợ: hotro@vndoc.com | Hotline: 024 2242 6188... học tập miễn phí end 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]);