Đang tải... (xem toàn văn)
. 1 BÀI TẬP XÂU CƠ BẢNNÂNG CAO THÀNH PHỐ HỒ CHÍ MINH 2018 GV: Phạm Thị Bích Tường Email: bichtuong2312gmail.com KIỂU DỮ LIỆU CÓ CẤU TRÚC TRONG PASCAL 2. 2 MỤC LỤC BÀI TẬP CƠ BẢN....................................................................................................................3 Bài tập 1: Nhập xâu kí tự bất kì .........................................................................................3 a) Đếm số lần xuất hiện của 1 kí tự nào đó trong câu. ...............................................3 b) Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó.......3 Bài 2: Nhập 1 xâu kí tự........................................................................................................3 a) Xét xem trong xâu có K kí tự kề nhau mà như nhau hay không? ....................3 b) Hãy xóa đi kí tự kề nhau mà như nhau, chỉ giữ lại một.....................................3 Bài 3: Nhập 1 xâu kí tự. Kiểm tra tính đối xứng của xâu đó. Nếu xâu không đối xứng thì đảo xâu...............................................................................................................4 Bài 4: Cho 1 xâu kí tự. Tính xem trong số đó có bao nhiêu loại kí tự khác nhau ( không phân biệt in hoa hay in thường)..........................................................................5 Bài 5: Cho 1 xâu kí tự bất kì, tính: Số lượng các kí tự số, Số lượng các kí tự chữ cái
KIỂU DỮ LIỆU CÓ CẤU TRÚC TRONG PASCAL BÀI TẬP XÂU CƠ BẢN-NÂNG CAO GV: Phạm Thị Bích Tường Email: bichtuong2312@gmail.com THÀNH PHỐ HỒ CHÍ MINH - 2018 MỤC LỤC BÀI TẬP CƠ BẢN Bài tập 1: Nhập xâu kí tự a) Đếm số lần xuất kí tự câu b) Liệt kê kí tự có mặt xâu số lần xuất kí tự Bài 2: Nhập xâu kí tự a) Xét xem xâu có K kí tự kề mà hay khơng? b) Hãy xóa kí tự kề mà nhau, giữ lại Bài 3: Nhập xâu kí tự Kiểm tra tính đối xứng xâu Nếu xâu khơng đối xứng đảo xâu Bài 4: Cho xâu kí tự Tính xem số có loại kí tự khác ( khơng phân biệt in hoa hay in thường) Bài 5: Cho xâu kí tự bất kì, tính: Số lượng kí tự số, Số lượng kí tự chữ Bài 6: Cho xâu kí tự (cả số lẫn chữ) Viết chương trình tách phần số xâu đưa mảng số nguyên Bài 7: Nhập vào xâu Biến đổi thành chữ in hoa Bài 8: Nhập vào xâu Biến đổi in thường Bài 9: Nhập vào chuỗi, in chuỗi ngược Bài 10: Nhập vào danh sách HS lớp Sắp xếp lại danh theo thứ tự tăng dần theo chiều dài tên 10 Bài 11: Nhập vào họ tên sau biến đổi chữ in hoa 10 Bài 12: Nhập vào đoạn văn Tính số câu 11 Bài 13: Nhập vào số, xóa bỏ chữ số lẻ Xuất kết dạng đối xứng phần lại Vd:1 > 6 11 Bài 14: Nhập vào số, xóa bỏ chữ số chẵn Kiểm tra số lại có chữ số Xuất kết dạng đối xứng phần lại 12 Bài 15: Nhập chuỗi gồm chữ số Xuất hình số riêng chữ riêng Hãy đếm số lần xuất chữ, số 12 Bài 16: Nhập xâu kí tự bỏ tất khoảng trống bên trái 13 Bài 17: Dùng hàm “copy” Tách từ khỏi xâu kí tự cho trước 14 Bài 18: Vị Giám đốc công ty XYZ cần gửi văn quan trọng tới đối tác Để bảo mật văn bản, ơng định mã hóa văn trước gửi Văn xâu S chữ la tinh in thường Ông ta chia văn thành hai đoạn liên tiếp Sb Se Lần lượt viết hai xâu Sb Se theo thứ tự ngược lại ơng ta nhận xâu mã hóa Q Bức thư thứ gửi cho đối tác có nội dung Q Để đối tác đọc văn bản, ông ta gửi thêm thư thứ hai chứa khóa để giải mã: độ dài k xâu Sb 14 Bài 19: Trong học Lập trình xử lý chuỗi Thầy giáo có cho tập sau: Thầy đọc họ tên bạn sinh viên lớp Công việc viết chương trình để tách Họ, Tên Lót (tên đệm), Tên bạn 15 Bài tập 20: Viết chương trình thực phép cộng số tự nhiên lớn (không 255 chữ số) 16 BÀI TẬP NÂNG CAO 17 Đề số 17 Đề 19 BÀI TẬP CƠ BẢN Bài tập 1: Nhập xâu kí tự a) Đếm số lần xuất kí tự câu b) Liệt kê kí tự có mặt xâu số lần xuất kí tự Bài giải: uses crt; var str:string[100]; chu:array[#1 #254] of integer; i:integer; ch:char; begin clrscr; for ch:=#1 to #254 chu[ch]:=0; write(' Nhap chuoi = ');readln(str); for i:=1 to length(str) (chu[upcase(str[i])]):=chu[upcase(str[i])] +1; writeLn('Cac ki tu xau la:'); for ch:=#1 to #254 if chu[ch]>0 then writeln(ch, ': xuat hien ',chu[ch],' lan'); readln; end Bài 2: Nhập xâu kí tự a) Xét xem xâu có K kí tự kề mà hay khơng? b) Hãy xóa kí tự kề mà nhau, giữ lại Bài giải: uses crt; var ch:string[100]; i,k,d,d1,n:integer; (*****) function xoa:boolean; var i:integer; begin xoa:=false; for i:=1 to length(ch)-1 if ch[i]=ch[i+1] then begin delete(ch,i,1); xoa:=true; exit end; end; (*****) begin clrscr; write('Nhap chuoi :');readln(ch); write('Nhap ki tu K:');readln(k); n:=length(ch); d:=0;d1:=0; for i:=1 to n-1 begin if ch[i]=ch[i+1] then inc(d1) else d1:=0; if d1+1>=k then inc(d); end; if d>0 then writeln('Co ',k,' ki tu nhu nhau') else writeln('Khong co ',k,' ki tu nhu nhau'); while xoa do; write('In lai xau sau xoa:'); writeln(ch); readln; end Bài 3: Nhập xâu kí tự Kiểm tra tính đối xứng xâu Nếu xâu khơng đối xứng đảo xâu Bài giải: uses crt; var str,s:string[100]; n,i:integer; (*****) procedure sx(var a,b:char); var tam:char; begin tam:=a; a:=b; b:=tam; end; procedure dao(n,i:integer); var j:integer; begin for j:=i+1 to n if str[i]=str[j] then begin sx(str[j],str[n-i+1]); exit end; end; (*****) begin clrscr; write('Nhap xau:');readln(str); n:=length(str); s:=''; for i:=n downto s:=s+str[i]; if str=s then writeln('Chuoi doi xung:') else begin writeln('Chuoi ko doi xung, chuoi da dao doi xung:'); for i:=1 to n-1 dao(n,i); end; writeln(str); readln; end Bài 4: Cho xâu kí tự Tính xem số có loại kí tự khác ( không phân biệt in hoa hay in thường) Bài giải: uses crt; var s:string; i,j,dem:integer; t:boolean; begin clrscr; write('Nhap xau:');readln(s); dem:=0; for i:=1 to length(s) begin t:=false; for j:=1 to i-1 if((s[j])=(s[i])) then t:=true; if not(t) then inc(dem); end; write('Co ',dem,' ki tu khac nhau.'); readln; end Bài 5: Cho xâu kí tự bất kì, tính: Số lượng kí tự số, Số lượng kí tự chữ Bài giải: uses crt; const so: set of char=['0','1','2','3','4','5','6','7','8','9']; var st,b:string; a:array[1 100] of integer; i,j,l,n,dem,dem1,c:integer; (*****) procedure sx(var x,y:integer); var tam:integer; begin tam:=x; x:=y; y:=tam; end; (*****) begin clrscr; write('nhap xau:');readln(st); dem:=0; dem1:=0; for i:=1 to length(st) begin if (st[i] in['0' '9']) then inc(dem); if (upcase(st[i]) in['A' 'Z']) then inc(dem1); end; write('Co ',dem1,' chu cai.'); writeln; writeln('Co ',dem,' chu so.'); l:=length(st); i:=1; n:=0; repeat if (st[i] in so) then begin b:=''; repeat b:=b+st[i]; inc(i); until (not(st[i] in so)) or (i>l); inc(n); val(b,a[n],c); end; inc(i); until i>l; for i:=1 to n write(a[i]:5); writeln; writeln('Sx tang:'); for i:=1 to n-1 for j:=i to n if a[j]l); inc(n); val(b,a[n],c); end; inc(i); until i>l; for i:=1 to n write(a[i]:5); writeln; write('Sx tang:'); writeln; for i:=1 to n-1 for j:=i to n if a[j] length(hs[j]) then sx(hs[i],hs[j]); writeln('Sx theo dai ten:'); for i:=1 to n writeln(hs[i]); readln; end Bài 11: Nhập vào họ tên sau biến đổi chữ in hoa Bài giải: uses crt; const chu=['a' 'z']; var hoten:string; i,k:integer; begin 10 l:=l+s[i]; for i:=length(s) downto n+1 l:=l+s[i]; WRITE(L); end Bài 19: Trong học Lập trình xử lý chuỗi Thầy giáo có cho tập sau: Thầy đọc họ tên bạn sinh viên lớp Công việc viết chương trình để tách Họ, Tên Lót (tên đệm), Tên bạn Input: Một chuỗi họ tên bạn sinh viên mà thầy đọc Lưu ý: Họ tên gồm họ tên (khơng có tên lót), đầy đủ họ, lót, tên Output: Dòng 1: Xuất họ Dòng 2: Xuất tên lót (nếu có) Dòng 3: Xuất tên var ht,ten,ho,lot:string; i,n,d:longint; begin read(ht); lot:=''; ho:=''; ten:=ht; n:=length(ht); for i:=n downto if ten[i]=' ' then begin delete(ten,1,i); break; end; for i:=length(ht) downto n-length(ten) begin if ht[i]' ' then delete(ht,i,1); if ht[i]=' ' then break; end; i:=1; while iLength(st2) Then For i:=1 To Length(st1)-Length(st2) Do st2:='0'+st2 Else For i:=1 To Length(st2)-Length(st1) Do st1:='0'+st1; End; Function Cong(st1,st2:string):string; Var i,a,b,c,sodu:Byte; code:integer; st,ch:string; Begin st:=''; sodu:=0; LamDayXau(st1,st2); {Lấy số xâu: từ phải sang trái} For i:=Length(st1) DownTo Do Begin {Đổi ký tự sang số nguyên} Val(st1[i],a,code); Val(st2[i],b,code); {Tính tổng số a,b vừa lấy cho vào biến c} 16 c:=(a+b+sodu) MOD 10; {Lấy phần dư tổng a+b} sodu:=(a+b+sodu) DIV 10; {Đổi số nguyên c sang xâu ký tự ch} str(c,ch); {Cộng xâu ch vào bên trái xâu kết st} st:=ch+st; End; {Xử lý trường hợp số dư cuối >0} If sodu>0 Then Begin str(sodu,ch); st:=ch+st; End; Cong:=st; End; Begin Write('Nhap so thu nhat: '); Readln(so1); Write('Nhap so thu hai: '); Readln(so2); kqua:=Cong(so1,so2); Writeln('Tong= ',kqua); Readln; End BÀI TẬP NÂNG CAO Đề số Ngày nay, việc sử dụng bàn phím điện thoại di động để nhấn số trở thành việc quen thuộc với bạn sinh viên Ai biết phím số điện thoại phím dùng để nhấn chữ cái: 2: ABC, 3: DEF, 4: GHI, 5: JKL, 6: MNO, 7: PQRS, 8: TUV, 9: WXYZ Nam viết giấy dãy ký tự đố Bình xác định dãy số theo cách nhấn số điện thoại (chỉ xem xét tương ứng số ký tự không xem xét phải nhấn lần phím đó, ví dụ A, B, C số 2) Bình nhanh chóng xác định kết quả, khơng Bình muốn xác định nhanh xem số có phải số dạng thuận nghịch hay không Một số thuận nghịch viết theo thứ tự ngược lại Hãy viết chương trình giúp Bình thực cơng việc 17 Input Dòng chứa số n số test (không 1000) Mỗi test viết dòng dãy ký tự gồm chữ chữ hoa chữ thường, dài khơng q 20 ký tự, khơng có khoảng trống Output Với test, in hình, dòng, chữ “YES” tương ứng số thuận nghịch, chữ “NO” ngược lại Chương trình tham khảo const fi=''; type data=longint; var f:text; s:string; i,test,j:data; function tinh(c:char):char; begin c:=upcase(c); case c of 'A' 'C': exit('2'); 'D' 'F': exit('3'); 'G' 'I': exit('4'); 'J' 'L': exit('5'); 'M' 'O': exit('6'); 'P' 'S': exit('7'); 'T' 'V': exit('8'); 'W' 'Z': exit('9'); end; end; function check:boolean; var i:data; st,sk:string; begin st:=''; sk:=''; for i:=1 to length(s) begin st:=tinh(s[i])+st; sk:=sk+tinh(s[i]); end; if st=sk then 18 writeln('YES') else writeln('NO'); end; begin assign(f,fi); reset(f); readln(f,test); for i:=1 to test begin readln(f,s); check; end; end Đề Hệ điều hành XP cho phép điều khiển lúc hai bàn phím Hai anh em Tuấn Nam vừa thưởng máy tính nên muốn thử tính XP Tuấn Nam, người dùng bàn phím đồng thời gõ vào từ nghĩ đầu tương ứng S1 S2 Do gõ đồng thời tốc độ gõ khác nên kết hình chuỗi ký tự S kết hợp ký tự S1 S2 Các ký tự đan xen theo trình tự khiến Tuấn Nam khơng nhận ký tự gõ Yêu cầu Hãy giúp Tuấn Nam xác định ký tự theo nghĩa tách ký tự ghép lại theo thứ tự ta nhận từ mà Tuấn Nam gõ Dữ Liệu Dữ liệu vào gồm dòng, đó: Dòng chứa từ S1 Tuấn gõ Dòng thứ hai chứa từ S2 Nam gõ Dòng cuối chứa chuỗi S S1 S2 chứa chữ latin (a, A, b, B ) số lượng ký tự chuỗi không vượt 100 Kết Quả Kết ghi có dòng chứa chuỗi ký tự có chiều dài chiều dài chuỗi S, ký tự thứ I ký tự ′1′ ký tự tương ứng S[I] Tuấn gõ ′2′ S[I] Nam gõ 19 Trong trường hợp có nhiều kết in dãy có thứ tự từ điển bé Ví Dụ Input: papa mama mpapamaa Output: 21112212 Hướng dẫn giải NKH spoj – Tách Từ – Xây dựng thủ tục đệ quy try(i,kt1,kt2) với ý nghĩa tìm kết kí tự thứ i xâu S chọn kí tự s1[kt1] s2[kt2] để ghép vào vị trí Code tham khảo const fi=''; nmax=200; type data=longint; var f:text; s1,s2,s3:string; n,m:data; tr:array[0 nmax+1] of data; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); readln(f,s1); n:=length(s1); readln(f,s2); m:=length(s2); readln(f,s3); close(f); end; procedure try(i,kt1,kt2:data); // sinh ki tu thu i var j:data; begin if i>m+n then begin for j:=1 to m+n write(tr[j]); halt; end 20 else begin if s3[i]=s1[kt1] then begin tr[i]:=1; try(i+1,kt1+1,kt2); end; if s3[i]=s2[kt2] then begin tr[i]:=2; try(i+1,kt1,kt2+1); end; end; end; begin docfile; try(1,1,1); end Đề 3: NKH spoj Hệ điều hành XP cho phép điều khiển lúc hai bàn phím Hai anh em Tuấn Nam vừa thưởng máy tính nên muốn thử tính XP Tuấn Nam, người dùng bàn phím đồng thời gõ vào từ nghĩ đầu tương ứng S1 S2 Do gõ đồng thời tốc độ gõ khác nên kết hình chuỗi ký tự S kết hợp ký tự S1 S2 Các ký tự đan xen theo trình tự khiến Tuấn Nam khơng nhận ký tự gõ Yêu cầu Hãy giúp Tuấn Nam xác định ký tự theo nghĩa tách ký tự ghép lại theo thứ tự ta nhận từ mà Tuấn Nam gõ Dữ Liệu Dữ liệu vào gồm dòng, đó: Dòng chứa từ S1 Tuấn gõ Dòng thứ hai chứa từ S2 Nam gõ Dòng cuối chứa chuỗi S S1 S2 chứa chữ latin (a, A, b, B ) số lượng ký tự chuỗi không vượt 100 Kết Quả 21 Kết ghi có dòng chứa chuỗi ký tự có chiều dài chiều dài chuỗi S, ký tự thứ I ký tự ′1′ ký tự tương ứng S[I] Tuấn gõ ′2′ S[I] Nam gõ Trong trường hợp có nhiều kết in dãy có thứ tự từ điển bé Ví Dụ Input: papa mama mpapamaa Output: 21112212 Hướng dẫn giải NKH spoj – Tách Từ – Xây dựng thủ tục đệ quy try(i,kt1,kt2) với ý nghĩa tìm kết kí tự thứ i xâu S chọn kí tự s1[kt1] s2[kt2] để ghép vào vị trí i Code tham khảo const fi=''; nmax=200; type data=longint; var f:text; s1,s2,s3:string; n,m:data; tr:array[0 nmax+1] of data; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); readln(f,s1); n:=length(s1); readln(f,s2); m:=length(s2); readln(f,s3); close(f); end; procedure try(i,kt1,kt2:data); // sinh ki tu thu i var j:data; begin if i>m+n then begin for j:=1 to m+n 22 write(tr[j]); halt; end else begin if s3[i]=s1[kt1] then begin tr[i]:=1; try(i+1,kt1+1,kt2); end; if s3[i]=s2[kt2] then begin tr[i]:=2; try(i+1,kt1,kt2+1); end; end; end; begin docfile; try(1,1,1); end Đề 4: P156SUME spoj Một chuỗi a gọi ước chuỗi b tồn số nguyên dương x cho ta viết x lần chuỗi a thu chuỗi b Ví dụ chuỗi “abab” có ước “ab” “abab” Bạn cho cho chuỗi s1 s2, đếm xem chúng có tất ước chung? Input Dòng chuỗi s1, dòng thứ chuỗi s2 Cả chuỗi gồm chữ thường, độ dài chuỗi không 105 Output In số nguyên kết toán Example Test 1: Input: xyztxyzt xyzt Output: 23 Test 2: Input: aaa aa Output: Hướng dẫn giải P156SUME spoj PTIT – Gọi n1, n2 độ dài xâu s1, s2 – độ dài ước xâu [1 độ dài xâu], mà ta cần xâu chung, ta cần xét xâu có độ dài từ [1 min(n1,n2)] xâu có độ dài i có khả ước xâu n1 mod i=0 n2 mod i = – Xét độ dài xâu ước, kiểm tra xem xâu có độ dài i có phải ước hay khơng? kiểm tra ước s1, s2 giống không – Đếm kết toán… const fi=''; nmax=100000; type data=longint; var f:text; n1,n2:data; s1,s2:ansistring; procedure docfile; begin assign(f,fi); reset(f); readln(f,s1); readln(f,s2); n1:=length(s1); n2:=length(s2); close(f); end; function min(a,b:data):data; begin if a