Bài 5: Xâu Ký Tự (String) Trong Pascal

• Trang chủ
• Pascal cơ bản
  • Câu lệnh vòng lặp
  • Câu lệnh điều kiện
  • Mảng 1 chiều
  • Mảng 2 chiều
  • Xâu
• Kiến thức mở rộng
• Pascal nâng cao
  • Đệ quy
  • Quay lui
  • Quy hoạch động
• Liên hệ

• Bài tập Pascal
• Học Pascal online
• Giải bài tập Pascal
• Công cụ Pascal
• Đề thi học sinh giỏi

- 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 *> Download: Turbo Pascal 7.0, Turbo Pascal for win 7, Free Pascal *> Giáo trình học Pascal *> Lý thuyết: Cấu trúc chương trình - Câu lệnh điều kiện - Câu lệnh vòng lặp - Mảng - Xâu *> Bài tập: * Yều cầu/Giải bài tập Pascal - Tìm số nguyên tố - Tìm UCLN, BCNN - Kiểm tra cấp số cộng - Đếm số lần xuất hiện mỗi chữ cái trong xâu You are here: » Home » Xâu » Bài 5: Xâu ký tự (String) trong Pascal Bài 5: Xâu ký tự (String) trong Pascal 16:05 Dinh 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 Related Posts : Học Pascal, Pascal cơ bản, Xâu Nhãn: Học Pascal, Pascal cơ bản, Xâu chiconghl nói...

nhờ giải thích về ý nghĩa của đoạn lệnhfor i:=1 to length(s) doA[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 nha01629073134xin 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ỗiDữ 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à coihttp://kienthuc24h.com/

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

pos xài sao ạ

lúc 10:30 11 tháng 10, 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ớinhậ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. .9Có bao nhiêu ký tự trắngCó bao nhiêu ký tự khácTrong 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}beginclrscr; 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ớiViế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 Blog Thuật Toán nói...

lạy mấy thánh

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

Thật đơn giản

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

me too

lúc 20:17 22 tháng 6, 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 bantrong 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=12kq '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.txt2.Đọ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.txt3.Đọ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) [email protected]

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

xài for i:=1 to length(st) do beginif 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 defor 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)vdBOUNCE và ANNOUNCE là hai xaau số vì hai xâu có chứa từ ONEENCODE 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'.VDBOUNCE thì in ra 1ENCODE 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...

Tôi

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

giúp vs

lúc 23:28 12 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 truongvar f: array [1..100] of integer; i,n: integer;beginreadln(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];beginclrscr;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);readlnend.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...

áda

lúc 17:05 6 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ứ 5ai 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 ạknhập vào một xâu ký tự và đưa ra từ dài nhất có trong xâuVD:"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ũ nguPhả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ớiBà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...

Dờ :w

lúc 21:52 25 tháng 11, 2017 Unknown nói...

fjfgj

lúc 20:26 4 tháng 3, 2018 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 YaBeck Nguyễn nói...

o;k;k;

lúc 07:49 9 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 koTao 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 Phạm Minh Quang nói...

rất dễ hiểu

lúc 13:13 3 tháng 8, 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 HauViế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 sAi 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ử nhauses crt;var n:string;beginclrscr;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 MysticSonsuzluk16 nói...

kayseri evden eve nakliyataydın evden eve nakliyatkütahya evden eve nakliyatgümüşhane evden eve nakliyatbalıkesir evden eve nakliyatEJ5AZO

lúc 07:16 1 tháng 11, 2023 QuantumSesçisi95 nói...

düzce evden eve nakliyatdenizli evden eve nakliyatkırşehir evden eve nakliyatçorum evden eve nakliyatafyon evden eve nakliyatQİP

lúc 09:42 2 tháng 11, 2023 CevapAranıyor11 nói...

urfa evden eve nakliyatmalatya evden eve nakliyatburdur evden eve nakliyatkırıkkale evden eve nakliyatkars evden eve nakliyatOUVTDS

lúc 06:19 3 tháng 11, 2023 68B07Elena5C77B nói...

79C1FSakarya Parça Eşya TaşımaAzero Coin Hangi BorsadaTekirdağ Evden Eve NakliyatSweat Coin Hangi BorsadaBybit Güvenilir miAydın Evden Eve NakliyatSamsun Parça Eşya TaşımaFlare Coin Hangi BorsadaSinop Parça Eşya Taşıma

lúc 05:31 14 tháng 11, 2023 4080AMark114BB nói...

7B516Antalya Şehirler Arası NakliyatÇanakkale Şehirler Arası NakliyatKocaeli Parça Eşya TaşımaKırıkkale LojistikBilecik Şehir İçi NakliyatKırklareli Evden Eve NakliyatHatay Şehir İçi NakliyatCointiger Güvenilir miCoinex Güvenilir mi

lúc 02:34 16 tháng 11, 2023 1E299Christina798AB nói...

C300AKarabük Şehirler Arası NakliyatKastamonu Şehir İçi NakliyatÇankaya Parke UstasıBatman Evden Eve NakliyatIğdır Şehir İçi NakliyatÇerkezköy Koltuk KaplamaSincan Fayans UstasıKars Evden Eve NakliyatKucoin Güvenilir mi

lúc 09:04 16 tháng 11, 2023 9C182AdamF5F7B nói...

827DBBitcoin Nasıl AlınırDenizli Evden Eve NakliyatSincan Boya UstasıBinance Referans KoduTekirdağ Boya UstasıPoloniex Güvenilir miReferans Kimliği NedirPursaklar Parke UstasıReferans Kimliği Nedir

lúc 23:04 19 tháng 11, 2023 takipci-- nói...

3E8B5bitgeten iyi kripto para uygulamasıkripto ne demekbinance referansbingxbiboxbitcoin hesabı nasıl açılırbinance referans kodugate io

lúc 10:00 29 tháng 2, 2024 -----Takipci_satin_al nói...

65E02bitcoin nasıl oynanırtelegram kripto kanallarıbinancebitgetokexbitcoin hangi bankalarda varkripto para kanalları telegramtoptan sabunbtcturk

lúc 07:10 4 tháng 3, 2024 슬롯사이트 nói...

최고의 온라인 카지노 플랫폼에서는 랜드 베이스 카지노와는 차별화하여 보너스와 프로모션 혜택을 통해 신규 회원을 모집합니다.

lúc 13:12 14 tháng 5, 2024 Nặc danh nói...

xcfhgbfhfghjytiujتنظيف افران جدة

lúc 16:37 13 tháng 8, 2024

Đăng nhận xét

Previous Article Next Article Trang chủ Đăng ký: Đăng Nhận xét (Atom) Widget By Devils Workshop

Đọc nhiều nhất

• 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ự...
• Bài tập Pascal - Giải bài tập Pascal (cơ bản) Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lư...
• Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -...
• Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat) - Đánh răng mỗi ngày hai lần, học Tin học mỗi tuần 2 tiết, mỗi ngày tắm một lần... - Học cho đến khi thuộc bài, rửa tách trà cho đến khi sạ...
• Kiểm tra số nguyên tổ trong pascal Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là s...
• Tệp - Kiểu dữ liệu tệp trong Pascal Chuyên đề :   KIỂU DỮ LIỆU TỆP 1 Khái niệm về tệp: Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu đ...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Đám mây

Bài tập Pascal (49) Pascal cơ bản (38) Mảng 1 chiều (17) Pascal mở rộng (17) Học Pascal (11) Câu lệnh lặp (9) Pascal nâng cao (8) Bài tập sgk (6) Vòng lặp for (6) Xâu (5) Câu lệnh điều kiện (4) Giáo trình tài liệu (4) Kiểu tệp (3) Mảng 2 chiều (3) Chương trình con (2) Pascal Tools (2) Vòng lặp while (2) Bài tập trắc nghiệm (1) Câu lệnh case (1) Pascal vui (1) vòng lặp repeat (1)

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.