Code Pascal - Tin Hoc 11: Xóa Dấu Cách Thừa Trong Xâu (xử Lý Xâu)

• 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óa dấu cách thừa trong xâu (xử lý xâu) 11:13 Dinh Nhập 1 chuỗi, sau đó bỏ khoảng trắng ở đầu và cuối, khoảng trắng ở giữa 2 từ. var s:string; begin readln(s); while s[1]=#32 do delete(s,1,1); while s[length(s)]=#32 do delete(s,length(s),1); while pos(' ',s)<>0 do delete(s,pos(' ',s),1); writeln(s); readln; end. Related Posts : thao nói... Nhận xét này đã bị tác giả xóa. Nặc danh nói...

lm ckua dug au nge

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

chữa nè var s:string; i: byte;Begin Write('nhap xau'); readln(s);for i:= 1 to length(s) dowhile s[1]=#32 do delete(s,1,1);while s[length(s)]=#32 do delete(s,length(s),1);while pos(' ',s)<>0 do delete(s,pos(' ',s),1);writeln(s);readln;end.(có thể thay #32 bằng ' ' cho những bạn chưa hiểu ý nghĩa của #32)

lúc 23:36 18 tháng 3, 2013 Nặc danh nói...

lam nhu vay no xe xoa toan bo ki tu trang trong xau, ko the xoa ki tu thua

lúc 19:26 2 tháng 4, 2013 Nặc danh nói...

thank

lúc 16:28 10 tháng 5, 2013 Nặc danh nói...

thank

lúc 08:41 20 tháng 7, 2015 Nặc danh nói...

ukm

lúc 09:14 27 tháng 8, 2016 Unknown nói...

ahihi

lúc 22:05 23 tháng 10, 2016 Unknown nói...

sao lại có #32 vậy bạn

lúc 16:45 20 tháng 12, 2016 Nặc danh nói...

qạ #32 là dì vậy ai cho0 mình biết với

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

bài này đúng rồi mà. Tks

lúc 05:29 10 tháng 3, 2017 Nặc danh nói...

#32 = ' ' nhé

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

bài là xóa hat khoang trang mà. mình cần xóa khoảng trắng thừa thui. còn lại 1 khoảng trắng giữa các từ ấy

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

Xét vị trí i vs i+1

lúc 20:27 3 tháng 6, 2017 Unknown nói...

để xóa chừa 1 ' ' các bạn đổi như thế nàyn:=length(s);for i:=1 to length(s) dobeginwhile s[1]=#32 do delete(s,1,1);while s[n]=#32 do delete(s,n,1);while (s[i]=#32) and (s[i+1]) do delete(s,i,1);end;

lúc 14:47 11 tháng 10, 2017 Công Khanh nói...

uses crt; var s:string; i:integer; begin clrscr; write('nhap vao 1 xau ki tu : '); readln(s); if s[1] in ['a'..'z'] then s[1]:=upcase(s[1]); for i:=2 to length(s) do if (s[i-1]=#32) and (s[i] in ['a'..'z']) then s[i]:=upcase(s[i]); {xu li xoa } for i:=1 to length(s) do begin while s[1]=' ' do delete(s,1,1); while s[length(s)]=' ' do delete(s,length(s),1); while (s[i]=' ') and (s[i+1]=' ') do delete(s,i+1,1); end; write('xau sau khi bien doi la : ',s);readln;end.

lúc 14:27 15 tháng 1, 2018 Nặc danh nói...

như cc

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

Làm cách nào để chèn một khoảng trắng vào đầu xâu kí tự (có dấu cách)

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

à hoi tui bik òi cảm ơn CÔNG KHANH nhé!!!

lúc 18:31 24 tháng 4, 2018 Lenis nói... Nhận xét này đã bị tác giả xóa. Lenis nói...

ues crt;var a: string; j,j : byte;BEGIN clrscr; writeln('nhap xau'); readln(a); for i:=1 to length(a) do for j:=1 to length(a) do if a[j]=#32 then if a[j]=a[j+1] then delete(a,j+1,1) write(a); readlnEND.

lúc 21:02 16 tháng 9, 2018 Unknown nói...

Xoá dấu cách trong câu

lúc 07:26 22 tháng 2, 2019 Unknown nói...

#32 là sao bạn ơi

lúc 07:57 5 tháng 3, 2019 Unknown nói...

???

lúc 08:00 28 tháng 6, 2019 Unknown nói...

#32 là dấu Space

lúc 08:00 28 tháng 6, 2019 Unknown nói...

Bài này dùng lệnh for do đc không bạn

lúc 21:02 21 tháng 11, 2019 Unknown nói...

Vãi. Chịu bạn r. Đó là xóa khoảng trắng thừa r đó boy

lúc 11:21 3 tháng 1, 2020 Unknown nói...

bạn ơi cho mình hỏi còn nếu mình muốn đếm có bao nhiêu dấu khoảng trắng thì làm sao vậy ?

lúc 15:21 20 tháng 4, 2020 Ẩn Danh nói...

<>0 là gì vậy

lúc 08:20 1 tháng 7, 2020 Ngoc Bao nói...

ai giải thích từng câu lệnh giùm mình đc ko

lúc 08:02 13 tháng 3, 2022 Nặc danh nói...

dạ cảm ơn ạ

lúc 17:57 16 tháng 3, 2022 Nặc danh nói...

#32 có nghĩa là " khoản trắng" bạn nhé

lúc 20:33 13 tháng 5, 2022 Nặc danh nói...

code sai rồi

lúc 08:42 27 tháng 2, 2023

Đă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.