| Tìm kiếm | Inside GoogleDisplay results as : Posts Topics Advanced Search |
| Most Viewed Topics | | Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình. | | Xóa các phần tử trùng nhau trong mảng 1 chiều | | Lập chương trình Pascal để in bảng cửu chương ra màn hình. | | Đếm số nguyên tổ trong mảng 1 chiều | | Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. | | iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. | | Giải nén xâu trong pascal | | Vừa gà vừa chó, bó lại cho tròn, ba mươi sáu con, một trăm chân chẵn. Hỏi có bảo nhiêu chó gà? | | Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều | | Trò Chơi Đánh Chữ Trên PASCAL |
|
| Top posters | | codeturbopascal | | | mzone1998 | | | tungduong08 | | | hungthomvp | | | hangcincin | | | vie_tetua | | | saobang050506 | | | tinnguyen0702 | |
|
| Latest topics | » Đếm số nguyên tổ trong mảng 1 chiều Tue Dec 30, 2014 9:23 pm by hangcincin» Có ai chơi vlcm khôngTue Dec 30, 2014 9:18 pm by hangcincin» Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Fri Apr 18, 2014 4:22 pm by hungthomvp» Đây là các bài thi khảo sát HSG nèWed Apr 02, 2014 4:27 pm by hungthomvp» Trò Chơi Đánh Chữ Trên PASCALWed Feb 05, 2014 1:30 pm by tinnguyen0702» Làm gấp cho em cái bài mảng 2 chiều vs anh chị em ơi.Sun Sep 22, 2013 2:47 am by vie_tetua» Lập chương trình Pascal để in bảng cửu chương ra màn hình.Sun Apr 21, 2013 7:07 pm by tungduong08» iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.Sun Apr 21, 2013 7:04 pm by tungduong08» hướng dẩn cách đăng ký Sun Apr 21, 2013 2:36 pm by codeturbopascal |
| Statistics | | Diễn Đàn hiện có 39 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: xuanmaiqcnh.nguyen2002Tổng số bài viết đã gửi vào diễn đàn là 40 in 20 subjects |
| | codeturbopascal :: Ngôn ngử lập trình pascal :: Xâu |
| Giải nén xâu trong pascal |  |
| | Tác giả | Thông điệp |
|---|
codeturbopascalAdmin   Tổng số bài gửi : 22Danh vọng : 64 Được thank : 7Ngày Tham gia : 19/04/2013Tuổi : 28Đến từ : Quảng trịThú Cưng :  |  Tiêu đề: Giải nén xâu trong pascal Sun Apr 21, 2013 2:25 pm | | Code: program xau_thuan_nhat;uses crt;var s,ss,st,si:string; i,j,l:integer;function kttn(s:string):boolean; var x:char; ok:boolean; begin kttn:=true; for i:=1 to length(s) do s[i]:=upcase(s[i]); for i:=1 to length(s) do begin ok:=false; for x:='A' to 'Z' do if s[i]=x then ok:=true; if not ok then begin kttn:=false;break;end; end; end;procedure nen(s:string;var st:string); begin ss:=''; while s<>'' do begin i:=1; while (s[i+1]=s[1])and(i<length(s)) do inc(i); if i>1 then begin str(i,si); ss:=ss+s[1]+si; end else ss:=ss+s[1]; delete(s,1,i); end; s:=ss;l:=2; while l<length(s) do begin i:=1; while i<=length(s)-l do begin si:=copy(s,i,l); j:=i+l; ss:=copy(s,j,l); while ss=si do begin j:=j+l; ss:=copy(s,j,l); end; if j=i+l then inc(i) else begin str((j-i)div l,ss); delete(s,i,j-i); si:='('+si+')'+ss; insert(si,s,i); i:=i+l+2+length(ss); end; end; inc(l); end; st:=s; end;function ktcd(st:string):boolean; begin ktcd:=false; for i:=1 to length(st) do if st[i]='(' then begin ktcd:=true; break; end; end;procedure giainen(st:string;var s:string); var d,c:byte; code:integer; begin while ktcd(st) do begin i:=1; c:=0; while st[i]<>'(' do inc(i); d:=1; j:=i+1; while c<d do begin inc(j); if st[j]='(' then inc(d); if st[j]=')' then inc(c); end; si:=copy(st,i,j-i+1); delete(st,i,j-i+1); delete(si,1,1); delete(si,length(si),1); j:=i; while st[j+1] in['0'..'9'] do inc(j); ss:=copy(st,i,j-i+1); delete(st,i,j-i+1); val(ss,l,code); for j:=1 to l do insert(si,st,i); end; i:=1; while i<=length(st) do begin inc(i); if st[i] in['0'..'9'] then begin j:=i; while st[j+1] in['0'..'9'] do inc(j); ss:=copy(st,i,j-i+1); delete(st,i,j-i+1); val(ss,l,code); ss:=st[i-1]; for j:=1 to l-1 do insert(ss,st,i); i:=i+l-1; end; end; s:=st; end;begin clrscr; write('nhap chuoi: ');readln(s); if kttn(s) then begin nen(s,st); writeln('Chuoi sau khi nen la: ',st); giainen(st,s); writeln('Chuoi sau khi giai nen la: ',s); end else write('Xau ko thuan nhat.');readln;end. | | LikeDislike |
|  | | | Giải nén xâu trong pascal | |
|
| Trang 1 trong tổng số 1 trang |
| Similar topics |  |
|
| Similar topics |  |
| | » Tổng m số tận cùng của n trong pascal» Trò Chơi Đánh Chữ Trên PASCAL» Đếm số nguyên tổ trong mảng 1 chiều» Xóa các phần tử trùng nhau trong mảng 1 chiều» Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều |
| Permissions in this forum: | Bạn không có quyền trả lời bài viết | | codeturbopascal :: Ngôn ngử lập trình pascal :: Xâu | |
|
| | codeturbopascal :: Ngôn ngử lập trình pascal :: Xâu | |
|
|
| Chuyển đến: Chọn Diễn Đàn||--Ngôn ngử lập trình pascal| |--Câu lệnh Vòng lặp| |--Câu lệnh rẻ nhánh| |--Mảng 1 chiều| |--Mảng 2 chiều| |--Xâu| |--Trò chuyện linh tinh |
|
codeturbopascal
