- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Bài 5: Xâu ký tự (String) trong Pascal



Xâu là gì? Để xử lý các chuỗi văn bản, Pascal đưa ra một kiểu dữ liệu mới gọi là xâu ký tự và được định nghĩa bằng từ khóa STRING. Xâu ký tự là dữ liệu bao gồm một dãy các ký tự trong bảng mã ASSCII.

Cách khai báo:

Var: STRING[độ dài của xâu];

Xâu ký tự trong bộ nhớ nó chiếm số byte bằng số ký tự cực đại được khai báo cộng với byte đầu tiên chứa số ký tự hiện có của xâu. Độ dài tối đa của xâu ký tự là 255.

- Cách nhập/xuất: Cách đọc hay viết kiểu STRING cũng tương tự như các kiểu dữ liệu khác, ta sử dụng các thủ tục READ, hoặc WRITE.
Ví dụ:
Readln(st);
Writeln(st);

- Truy cập từng phần tử của xâu ký tự: tương tự mảng 1 chiều: thông qua tên biến kiểu STRING và chỉ số của nó
Ví dụ:
St := 'Le Thanh Lam';
write(st[4]);
-> Kết quả: cho ra chữ T.

Các thao tác trên xâu ký tự:

1/ Phép cộng xâu:

Ví dụ:
st1:=’Le’; st2:=’Thanh’; St=st1 + st2; 
-> KQ: ‘Le Thanh’

2/ Phép so sánh: 
Hai xâu ký tự có thể so sánh với nhau bằng các phép so sánh =, >, <…
Nguyên tắc so sánh thực hiện như sau, chúng sẽ đem từng ký tự tương ứng với nhau để so sánh, xâu nào có ký tự có số thứ tự trong bảng mã ASCII lớn hơn thì xâu đó lớn hơn.
Hai xâu ký tự được gọi là bằng nhau khi chúng hoàn toàn giống nhau (có độ dài như nhau).
Ví dụ: ‘FILENAME’ = ’FILENAME ‘

3/ Các thủ tục và hàm chuẩn xử lý xâu ký tự
a. Hàm length(st): cho độ dài thực của xâu ký tự
ví dụ: st:=’le thanh’ thì LENGTH(st) cho bằng 8.

b/ Thủ tục DELETE(st, pos, num): xóa num ký tự trong xâu st kể từ vị trí pos
Ví dụ: st= ‘FILENAME’
Delete(st,5,4) lúc đó st cho ra là ‘FILE’

c/ Thủ tục INSERT(obj, st, pos): Thủ tục cho kết quả bằng cách chèn xâu ký tự có tên là Obj vàoxâu st tại vị trí pos, những ký tự đứng sau pos sẽ được dời vềphía sau của xâu ký tự obj.
Ví dụ: obj:= ‘Thanh ‘
st:=’Le Lam’;
INSERT(obj,st,4) lúc đó st=’Le Thanh Lam’;

d/ Thủ tục STR(value, st): Thủ tục này thực hiện việc chuyển đối giá trị kiểu số(value) sang dạng xâu ký tự và gán cho biến st.
Ví dụ: n là một só nguyên có giá trị: n:=150;
STR(n:5,st) sẽ cho kết quả xâu st là: st=’ 150’;

e/ Thủ tục VAL(st, value,code) đối một xâu ký tự st sang dạng số và gán cho biến value, nếu biến đối thành công thì code sẽ nhận giá trị bằng 0. ngược lại thì cho giá trị khác không
Ví dụ: VAL(‘123’,value,code) lúc này code sẽ nhận giá trị bằng 0 và value=123

f/ Hàm COPY(st, pos, num): sao chép trong xâu st, num ký tự tại vị trí pos,
Ví dụ: st=’Le Thanh Lam’
COPY(st,4,5) = ‘Thanh’;

g/ Hàm CONCAT(s1,s2,…,sn): hàm cho ra 1 xâu mới bằng cách nối đuôi các xâu s1,s2,…,sn lại với nhau.
Ví dụ: CONCAT(‘Le ’,’Thanh ‘, ‘Lam’) = ‘Le Thanh Lam’;

h/ Hàm POS(st1,st2): hàm cho tavị trí tìm thấy đầu tiên của xâu s1 trong xâu s2.
Ví dụ: POS(‘Lam’,‘Le Thanh Lam’) = 10;

Sưu tầm và biên tập



chiconghl nói...

nhờ giải thích về ý nghĩa của đoạn lệnh
for i:=1 to length(s) do
A[s[i]]:=A[s[i]]+1;


lúc 16:06 4 tháng 8, 2012
TÌNH Bạn nói...

câu này mình thấy wen wen !!


lúc 09:28 11 tháng 11, 2012
Nặc danh nói...

mình không hiểu lắm câu lệnh val('123',value,code)


lúc 13:29 23 tháng 11, 2012
Unknown nói...

du ma djt loz me kho vaj lon du ma.


lúc 07:05 7 tháng 12, 2012
Nặc danh nói...

Xau ki tu voi minh la mot bai kho


lúc 21:02 15 tháng 12, 2012
Unknown nói...

cach dao chu phai lm sao day?giup minh vs!!!!!!!!!


lúc 09:18 20 tháng 1, 2013
Nặc danh nói...

Ban thu downto chua? Minh nghi vay thoi. Chua chac lam ban a!


lúc 21:48 31 tháng 1, 2013
Nặc danh nói...

Minh vua thu xong. Downto duoc ma! Thanks nhieu.


lúc 21:53 31 tháng 1, 2013
Nặc danh nói...

tôi kô hiểu lắm về pascal mọi người giúp tôi với


lúc 15:43 20 tháng 3, 2013
Nặc danh nói...

ai giỏi về pascal thì gọi cho tôi nha
01629073134
xin cảm ơn mọi người trước


lúc 15:44 20 tháng 3, 2013
Unknown nói...

nếu mảng là xâu kí tự thì a[0] chứa cái gì trong pascal


lúc 09:18 26 tháng 3, 2013
Unknown nói...

ai ranh? k??? lam gjup may bai tap nay voi... dc thj pm , toi up len cho lm jup/ caj nha... tks trk.>>>


lúc 13:56 22 tháng 5, 2013
Nặc danh nói...

lam sao de lay chu dau cua mot xau roi đem dò voi mot mit xau khac???Ban nao biet thi giup mih vs!!!!


lúc 21:40 16 tháng 7, 2013
Nặc danh nói...

mk cg phai cong nhan la xau kho that! @_@


lúc 14:33 10 tháng 2, 2014
Nặc danh nói...

@@


lúc 12:59 19 tháng 2, 2014
Nặc danh nói...

mình cũng khá hiểu bài này nhưng không biết admin đã bỏ blog này chưa


lúc 15:22 10 tháng 4, 2014
Unknown nói...

nhập vào một chuỗi sau đó xuất ra các từ dài nhất trong chuỗi ?
Dữ liệu vào : Một Chuỗi
Dữ liệu ra :các từ dài nhất trong chuỗi


lúc 16:19 9 tháng 3, 2015
Unknown nói...

viết chương trình nhập 2 xâu S1,S2 cho biết độ dài của từ dài nhất trong xâu S1. giúp mình với


lúc 23:02 19 tháng 3, 2015
http://kienthuc24h.com/ nói...

haiz. vào trang mình mà coi
http://kienthuc24h.com/


lúc 00:25 27 tháng 3, 2015
Unknown nói...

có ai giúp mk bài này ko??
VCT nhập vào 1 số nguyên dương n, in ra cách viết nhị phân của nó.
please!! please!! giúp mk với..


lúc 18:19 4 tháng 11, 2015
Unknown nói...

ai rảnh làm hộ mình bài này với
nhập vào một chuỗi st, đếm xem trong st :
Có bao nhiêu chữ cái A->Z, a->z;
Có bao nhiêu chữ số : 0. .9
Có bao nhiêu ký tự trắng
Có bao nhiêu ký tự khác
Trong số các loại ký tự trên loại nào là nhiều nhất?


lúc 21:09 17 tháng 12, 2015
Nặc danh nói...

Không biết có ai trả lời bạn Nhung Thuy chưa...
Mình có làm một bài theo yêu cầu đếm số ký tự của bạn. có thể không hay nhưng nếu cần bạn có thể tham khảo.

Program Dem_Ky_Tu;
uses crt;
var s,Len:string;
i,H,T,N,E:byte;{Hoa, Thuong, Normal, Else}
MaxL:byte; {Nhieu ky tu nhat}

begin
clrscr;
write('Nhap xau can dem: ');
readln(s);
H:=0;
T:=0;
N:=0;
E:=0;
for i:=1 to length(s) do
begin
if s[i] in ['A'..'Z'] then
H:=H+1
else if s[i] in ['a'..'z'] then
T:=T+1
else if s[i] in ['0'..'9'] then
N:=N+1
else E:=E+1;
end;
Len:='';
MaxL:=H;
Len:='In Hoa';
if T>MaxL then
begin
MaxL:=T;
Len:='Thuong';
end;
if N>MaxL then
begin
MaxL:=N;
Len:='So';
end;
if E>MaxL then
begin
MaxL:=E;
Len:='Khac';
end;

Writeln('Trong chuoi co [',H,'] ky tu in hoa.');
Writeln('Trong chuoi co [',T,'] ky tu thuong.');
Writeln('Trong chuoi co [',N,'] ky tu so.');
Writeln('Trong chuoi co [',E,'] ky tu khac.');
write('Ky tu ',Len,' co nhieu ky tu nhat.');

end.


lúc 17:05 7 tháng 1, 2016
Nặc danh nói...

Giúp mìh bài này với
Viết chương trình nhập vào xâu s có độ dài không quá 150 kí tự.Hãy in ra có bao nhiêu chữ số trong xâu s và in ra các kí tự là chữ viết hoa


lúc 21:12 3 tháng 3, 2016
Nặc danh nói...

Thật đơn giản


lúc 08:57 16 tháng 5, 2016
Nặc danh nói...

Chuyển xâu '123' sang số 123


lúc 08:48 22 tháng 7, 2016
Unknown nói...

bài viết lâu phết r vẫn có ng rep -_-


lúc 23:20 3 tháng 9, 2016
Nặc danh nói...

tìm từ dài nhất trong xâu (từ là một dãy kí tự liên tiếp ko chứa dấu cách)
có ai rãnh ko? chỉ e bài nay với


lúc 15:59 17 tháng 9, 2016
Unknown nói...

co cach nao chuyen so thuc sang xau ki tu duoc khong may ban
trong turbo nha


lúc 15:24 30 tháng 9, 2016
Unknown nói...

Ai giúp mình làm bài mã hoá 1 đoạn vb với số K nhập từ màn hình


lúc 13:35 20 tháng 10, 2016
Unknown nói...

Ai giúp mình làm bài mã hoá 1 đoạn vb với số K nhập từ màn hình


lúc 13:36 20 tháng 10, 2016
Unknown nói...

ai giúp mình giải bài toán cho 1 xâu, và thời điểm t, cho bảng điện tử hiện theo xau.
vd: s='tuyensinh10'
t=12
kq 'yensinh10t'


lúc 10:30 28 tháng 10, 2016
Nặc danh nói...

bạn có thể nói rõ hơn ko,mình k hiểu lắm


lúc 11:35 30 tháng 10, 2016
Unknown nói...

1.Nhập vào một xâu ký tự và ghi vào file vanban.txt
2.Đọc file vanban.txt, mã hóa mỗi ký tự thành 1 xâu dài 8 bit. Ghi xâu đã được mã hóa vào file code.txt
3.Đọc file code.txt và thêm vào cuối mỗi ký tự đã được mã hóa một bit sao cho số bit 1 trong mỗi ký tự được mã hóa là một số lẻ. Với mỗi khối gồm 8 ký tự thêm vào một hàng gồm 8 bit, mỗi một bít được tính sao cho tổng số bit 1 trên mỗi cột là một số lẻ. Ghi các khối đã được mã hóa vào file có tên encoded.txt.
4. Đọc các khối từ file encoded.txt và sửa ngẫu nhiên một số bit sau đó ghi vào file có tên error.txt.
5. Đọc file error.txt, sử dụng phương pháp phát hiện lỗi thích hợp để kiểm tra xem các ký tự có bị lỗi hay không?
(Se hau tang) mysupatu@gmail.com


lúc 14:12 14 tháng 11, 2016
ParaboY nói...

xài for i:=1 to length(st) do begin
if st[i] in ['A'..'Z'] then inc(dem1);
.... tương tự
cái cuối thì xài if (st[i] or ['A'..'Z'] ) or ( (st[i] in ['0'..'9'] ) or (ord(st[i])65) then writeln else inc(dem2);
end;


lúc 00:52 25 tháng 11, 2016
ParaboY nói...

Cần 1 thánh viết giúp em cái code đảo ngược các từ lại ( k phải là đảo kí tự nhé) trong 1 chuỗi, xếp chúng theo tăng dần


lúc 00:58 25 tháng 11, 2016
Nặc danh nói...

kha de
for i:=2 to length(st) do
for j:=1 to length(st)-1 do
if st[i]<st[j]then
begin
tg:=st[i];
st[i]:=st[j];
st[j]:=tg;
end;


lúc 17:56 2 tháng 12, 2016
Unknown nói...

Ai giúp giải bài này với.............
một xâu chữ cái được gọi là xâu số nếu khi xóa 1 vài kí tự ta thu được một trong các xâu sau: ONE, TWO, THREE, FOUR, FIVE, SIX, SEVEN, EIGHT, NINE. Cac xâu:ONE, TWO, THREE, FOUR, FIVE, SIX, SEVEN, EIGHT, NINE được gọi là các chữ số(tương ứng với các số nguyên:1,2,3,4,5,6,7,8,9)
vd
BOUNCE và ANNOUNCE là hai xaau số vì hai xâu có chứa từ ONE
ENCODE không phải là xâu số vì dù có chứa o,n,e nhưng vị trí có kí tự o,n,e trong xâu này không theo thứ tự
yêu cầu:
viết chương trình nhập vào 1 xâu. kiểm tra xâu đó có pải xâu số k . Nếu là xâu sô thì in ra màn hình số nguyên tương ứng với từ sô chứa trong xâu này. Nếu xâu đc nhập k pải là xâu số thì xuất ra mang hình "KHONG'.
VD
BOUNCE thì in ra 1
ENCODE thì in ra KHONG


lúc 20:50 8 tháng 12, 2016
Blog test code nói...

còn ai pascal kb fb học vui đi :)


lúc 20:48 6 tháng 2, 2017
Blog test code nói...

Ho lam.
Mói học chập chững nên cũng không bjk làm thế nào. xem thử đúng k nha.
program Xau_so;
uses crt;
var F:string;
so: array[1..9] of string = ('ONE','TWO','THREE','FOUR','FIVE','SIX','SEVEN','EIGHT','NINE');
t,i,k:integer;
Function dem(S:string):integer;
begin
for t:=1 to 9 do begin k:=1;
for i:=1 to length(S) do begin
if S[i]= So[t][k] then k:=k+1;
if k>length(so[t]) then dem:=t; end; end;
if dem in [1..9] then else dem:=0; end;
begin
write('Nhap vao 1 xau : ');Readln(F);
{ for t:=1 to 9 do
for i:=1 to length(S) do begin
if S[i]= So[t].[k] then k:=k+1;
if k>length(so[t]) then dem :=t; end;}
t:=dem(F);
if t <> 0 then writeln('Xau vua nhap la so : ',t) else
writeln('Xau vua nhap la : KHONG');
readln;
end.


lúc 21:12 6 tháng 2, 2017
Nguyen tuan nói...

Hay dùng khi đếm số lượng mỗi loại kí tự trong xâu s. Trước đó phải khởi tạo a[...]=0


lúc 03:58 14 tháng 2, 2017
Unknown nói...

ai làm giúp e cái này với St := 'Nguyen Thi Hoa' giờ e muốn xóa luôn cả 2 chữ Nguyen và Hoa để lại chữ thị thì làm thế nào ạ


lúc 20:29 17 tháng 2, 2017
Nặc danh nói...

delete đó



lúc 15:25 26 tháng 2, 2017
Unknown nói...

Đếm số lượng ký tự. Dùng mảng A(a..z) để chứa ký tự


lúc 09:17 10 tháng 3, 2017
Unknown nói...

Value là biến nguyên, `123` lá ký tự số. Khi đó value sẽ nhận giá trị nguyên 123


lúc 09:19 10 tháng 3, 2017
Unknown nói...

dãy F là dãy FI-bô-na-xi nếu:
F1=1;
F2=2;
Fn=Fn-1+Fn-2 với n>2.
viết trương trình nhập từ bàn phím số nguyên dương N . tính và đưa ra màn hình số hạng thứ N của dãy FI-bô na xi


lúc 23:31 12 tháng 3, 2017
Như Lư nói...

#an truong
var f: array [1..100] of integer;
i,n: integer;
begin
readln(n);
f[1]:=1; f[2]:=2;
for i:=3 to n do f[i]:=f[i-1]+f[i-2];
writeln(f[n]);
readln;
end.

Nếu không lầm thì là vậy


lúc 21:13 13 tháng 3, 2017
Nặc danh nói...

lập trình đọc vào từ bàn phím 1 câu (ít hơn 30 kí tự ), kiểm tra va thông báo màn hình xem. xâu này có thuộc xâu chuẩn không có dáu cách và trong xâu không có dấu cách cạnh nhau,,,

ai rảnh làm hộ cái đi


lúc 11:26 16 tháng 3, 2017
Unknown nói...

program Xau_ki_tu;
uses crt;
var st1: string[100];
st2: string [100];
st3: string [100];
st: string [100];
begin
clrscr;
writeln('Nhap xau 1 st1=');read(st1);
writeln('Nhap xau 2 st2=');read(st2);
writeln('Nhap xau 3 st3=');read(st3);
st:=st1+st2+st3;
writeln('Tong xau st=',st);
readln
end.
Các anh chị ơi em mới học lớp 8 lần đầu mò vào cái này nên thử. Chương trình ko lỗi nhưng khi chạy thì chỉ nhập được giá trị của xâu 1. Các anh chị ai biết nguyên nhân ko ạ. Ai biết xin chỉ giáo.


lúc 16:31 22 tháng 3, 2017
lai nói...

Hay lắm.
Rất bổ ích.


lúc 16:13 26 tháng 3, 2017
Unknown nói...

nói vs unknown:
em phải viết write(...) rồi mới readln chứ ko phải writeln rồi read nhu vậy
còn nũa, vả của em cũng sai, st phải có pham vi 300 kí tự và phải khai báo bằng ansistring



lúc 20:55 26 tháng 3, 2017
Nặc danh nói...

:v xau ki tu kho qua may maaaaaaaaaa


lúc 07:34 27 tháng 3, 2017
Nặc danh nói...

tách số và chử khỏi xâu sau đó sắp xếp số đó và chèn lại vị trí cũ. bác nào vip chỉ em với


lúc 08:23 1 tháng 4, 2017
Unknown nói...

Nhập vào một xâu s1 có đọ dài lớn hơn 5. Cho biết xâu s1 có bao nhiêu ký tự và hiện ký tư ở vị trí thứ 5
ai làm giúp mình với , mình đang cần gấp


lúc 16:28 18 tháng 4, 2017
Unknown nói...

giải hộ em bài này với


lúc 22:06 21 tháng 4, 2017
Unknown nói...

tạo ra sâu mới băng cách bỏ các dấu cách của sâu cũ


lúc 22:07 21 tháng 4, 2017
kiet le nói...

ai có j hỏi tui nè nick facebook kiet le để hình mặc áo sơ mi trắng sdt 01289766452


lúc 08:24 28 tháng 4, 2017
kiet le nói...

nè bạn for i:=length(tên xâu) downto 1 do write(tên xâu[i]);


lúc 09:51 28 tháng 4, 2017
kiet le nói...

ai rảnh giúp tui nâng cao trình độ lập trình đc ko


lúc 09:54 28 tháng 4, 2017
Unknown nói...

Các bác làm hộ em bài này vs ạk
nhập vào một xâu ký tự và đưa ra từ dài nhất có trong xâu
VD:"Cong hoa xa hoi chu nghia Viet Nam"
KQ:"nghia"'


lúc 15:45 1 tháng 6, 2017
Unknown nói...

Chuyển xâu sang số để có thẻ tính toán . Nếu trong xâu có chữ thì code sẽ là vị trí của chữ đó


lúc 06:00 5 tháng 6, 2017
Nặc danh nói...

Chúng mày là một lũ ngu
Phải xem cái này, có thế mà cũng không biết


lúc 15:08 10 tháng 6, 2017
Nặc danh nói...

Bố mày ngu đấy làm gì được nhau con chó


lúc 15:10 10 tháng 6, 2017
Nặc danh nói...

Tao bảo chúng mày đấy BỌN NGU


lúc 15:13 10 tháng 6, 2017
Nặc danh nói...

DMM Câm ngay cho bố


lúc 15:15 10 tháng 6, 2017
Nặc danh nói...

lũ thần kinh


lúc 15:24 10 tháng 6, 2017
Nặc danh nói...

Cạn lời bọn trẻ trâu


lúc 15:25 10 tháng 6, 2017
Nặc danh nói...

Không biết ai trẻ trâu đâu thằng chó ạ


lúc 15:28 10 tháng 6, 2017
Unknown nói...

các bạn chỉ mình hướng làm bài này với
Bài tập 2: Viết chương trình in ra màn hình tam giác Pascal. Ví dụ, với n = 4 sẽ in ra hình sau:
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1


lúc 10:31 7 tháng 9, 2017
Unknown nói...

Giúp em với
Viết CT nhập từ bàn phím xâu A chỉ chứa các chữ cái in thường và các chữ số từ 0 đến 9. Đếm và đưa ra màn hình số kí tự khác nhau trong xâu A


lúc 20:26 5 tháng 3, 2018
Nặc danh nói...

mấy bài dễ ẹt , mấy bài cấp quốc gia tao còn giải ngon trong 2p cơ mà


lúc 08:16 13 tháng 4, 2018
Nặc danh nói...

trong 2 p đấy mày làm đc cái qq gì,xàm lìn ko
Tao giải có 1p mà mày mất tới 2p ,gà !!!


lúc 08:19 13 tháng 4, 2018
Nặc danh nói...

Nhân danh thủy thủ mặt trời tao sẽ táng hết mấy thằng láo chó !!!


lúc 08:24 13 tháng 4, 2018
Nặc danh nói...

khứa cổ mày giờ thằng l =]]]]


lúc 08:37 13 tháng 4, 2018
Nặc danh nói...

trình l


lúc 09:12 13 tháng 4, 2018
Nặc danh nói...

xâu nhìn chắc dễ


lúc 16:09 28 tháng 5, 2018
Unknown nói...

Bạn nào giúp m với.
Xâu s có một kí tự '1' đước biến đổi như sau: nếu kí tự '1' sẽ thành '01', nếu kí tự '0' thì thành '10'. Xâu s sau 1 lân biên đôi là '01', sau 2 lần biến đổi là 1001.
Giúp m viết code đoạn biến đổi này với.
Thank trước


lúc 23:25 3 tháng 6, 2018
Nặc danh nói...

Dyt con me kho vai lozz du ma


lúc 09:46 30 tháng 6, 2018
Unknown nói...

Có chương trình mẫu ko ạ


lúc 14:42 9 tháng 11, 2018
Nặc danh nói...

viết chương trình nhập vào một xâu (có các ký tự chữ số liên tục ko quá 9 ký tự)thông báo số nguyên dương lớn nhất trong xâu ,nếu trong xâu không có số nguyên dương nào thì thông báo không có
nêu ý tưởng nữa ạ,giúp mình với ,đag gấp lắm ạ


lúc 20:08 15 tháng 3, 2019
Unknown nói...

viết chương trình nhập vào một xâu (có các ký tự chữ số liên tục ko quá 9 ký tự)thông báo số nguyên dương lớn nhất trong xâu ,nếu trong xâu không có số nguyên dương nào thì thông báo không có
nêu ý tưởng nữa ạ,giúp mình với ,đag gấp lắm ạ




lúc 13:53 30 tháng 8, 2019
Unknown nói...

Cho mình hỏi làm sao để viết hoa chữ cái đầu trong tên của người Việt ạ?
(Viết hoa chữ cái sau dấu cách trong 1 xâu, các ký tự còn lại giữ nguyên).
Ví dụ:
nguyen van hau
-->
Nguyen Van Hau

Viết bằng Free Pascal ạ!
Mình cảm ơn.


lúc 16:27 19 tháng 9, 2019
Nặc danh nói...

Nói văn mimh với . Làm không được thì tìm hiểu . Đừng ăn nói tục tĩu .


lúc 16:41 23 tháng 10, 2019
Unknown nói...

cho mk bt câu lệnh để xóa các kí tự liên tiếp trong chuỗi đc ko


lúc 20:40 12 tháng 11, 2019
ERROR 404 ! nói...

Cảm ơn writer, bài này rất đầy đủ, dễ hiểu và xúc tích. Hiếm khi có được một bài viết như thế này :) , bạn gì đó đừng mắng writer khi không hiểu vì người ta còn bận học hay làm, có được một bài như thế này là hên vcl rồi hiểu chưa (?)_(?)


lúc 13:13 4 tháng 2, 2020
Unknown nói...

Viết phương trình xóa chữ cái a trong xâu s
Ai bt lm e vs ạk


lúc 21:40 12 tháng 5, 2020
Nặc danh nói...

T biết xóa chữ cái a trong xâu nè bạn dùng pos đi
vd: thử nha
uses crt;
var n:string;
begin
clrscr;
writeln('Nhap n: '); readln(n);
while pos('a',n)<>0 do delete(n,pos('a',n),1);
writeln('Xau n sau khi xoa ki tu a la: ',n);
readln;
end.
Còn nếu bạn muốn thay a = dấu cach thì chỉ còn thay chỗ delete là xong nha.


lúc 16:46 5 tháng 8, 2020
officelaptop nói...

It is a completely interesting blog publish.I often visit your posts for my project's help about Diwali Bumper Lottery and your super writing capabilities genuinely go away me taken aback.Thank you a lot for this publish. 먹튀


lúc 18:01 16 tháng 1, 2021
officelaptop nói...

"Thanks for the valuable information and insights you have so provided here...

" 먹튀폴리스


lúc 17:46 30 tháng 1, 2021
Godlike nói...

Hay vl :D


lúc 09:46 27 tháng 4, 2021
Nặc danh nói...

abcdefgh


lúc 20:37 2 tháng 11, 2022
Nặc danh nói...

hello may th ngoc ngu thi cook noi nhieu


lúc 14:18 31 tháng 10, 2023

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.