Kêu gọi sự giúp đỡ toàn thể mọi người ^_^

xuxu_s2_đuđu

muốn như ngày xưa, vi vu, ....................
Quản lý
Thành viên thân thiết
Tham gia
11/11/2011
Bài viết
2.677
Mọi người vào giúp dùm nha
viết chương trình nhập một xâu vào từ bàn phím có độ dài khong quá 150. Đưa ra số lượng các từ ở trong xâu. Từ là kí tự viết liềnn hau và khong chứa các kí tự phân cách: Như dấu chấm, dấu phảy, dấu cách
thank cả nhả:KSV@03::KSV@03::KSV@13:
 
ukm
ai giỏi pascal vào giúp hộ
thank trước
 
ukm
khoai biết viết cả chưogn trình ko
viết hộ xu
 
Để khoai thử:
program: bt;
var x: integer;
a: string[150];
begin
write(' nhap xau a: ');
readln(a);
x:=length(a);
write(' do dai xau a: ',a);
readln
end.
Xu chạy thử nhé. Khoai học qua rồi nên ko nhớ rõ nữa. Ko biết đúg ko?
 
đế yêu cầu đưa ra số lượng từ mà chứ đâu phải đưa ra độ dài đâu
Theo anh thì trước hết phải làm sao loại bỏ khoảng trắng thừa giống như hàm Trim trong excel ấy
sau đó đếm số khoảng trắng cộng thêm 1 là ra số từ
Nếu 2 từ cách nhau bằng : hay ; thì đếm thêm rồi cộng vào
Cái này anh học lâu lắm rồi nên ko biết viết chương trình, chỉ nêu ý tưởng thôi
 
học nhanh vậy

----------

đế yêu cầu đưa ra số lượng từ mà chứ đâu phải đưa ra độ dài đâu
Theo anh thì trước hết phải làm sao loại bỏ khoảng trắng thừa giống như hàm Trim trong excel ấy
sau đó đếm số khoảng trắng cộng thêm 1 là ra số từ
Nếu 2 từ cách nhau bằng : hay ; thì đếm thêm rồi cộng vào
Cái này anh học lâu lắm rồi nên ko biết viết chương trình, chỉ nêu ý tưởng thôi
nhỡ 2 dấu cahcs liền nhau thì sao anh
 
học nhanh vậy

----------


nhỡ 2 dấu cahcs liền nhau thì sao anh

nếu vậy thì chắc phải dùng hàm gì giống hàm if trong excel mà dò thôi tại anh không nhớ pascal có những hàm gì nên đành chịu thôi
 
chán nhỉ
hm nay các cao thủ đi đâu hết rồi
 
Vậy trước hết em thay mấy dấu kia bằng khoảng trắng hết đi rồi loại bỏ khoảng trắng là được
 
hàm delete thì phải
ngừoi ta bảo đếm số lượng đàu từ công vs 1
 
cách xóa các khoảng trắng thừa
https://www.uit.edu.vn/data/gtrinh/TH010/Htm/Bai11_3.htm
Xóa các ký tự trắng ở đầu chuỗi :

Ðể xóa một ký tự trắng ở đầu của chuỗi St, ta dùng lệnh:

If St[1]=#32 then Delete(St,1,1);

Muốn xóa hết các ký tự trắng ở đầu chuỗi ta dùng lệnh:

While St[1]=#32 do Delete(St,1,1);

Diễn giải: chừng nào ký tự đầu tiên của St vẫn còn là ký tự trắng thì cứ xóa nó đi cho đến khi ký tự đầu tiên là khác trắng.

Sở dĩ phải dùng vòng lặp While là vì số ký tự trắng ở đầu chuỗi là không biết trước.

b) Xóa các ký tự trắng ở cuối chuỗi :

Tương tự, muốn xóa tất cả các ký tự trắng ở cuối của chuỗi St, ta dùng lệnh:

While St[ length(St) ]= #32 do Delete(St, length(St), 1);

Diễn giải: chừng nào ký tự cuối cùng của St còn là khoảng trắng thì cứ xóa nó đi cho đến khi ký tự cuối cùng là khác trắng.

c) Xóa các ký tự trắng thừa ở giữa hai từ trong chuỗi :

Muốn xóa các ký tự trắng thừa để giữa hai từ chỉ còn đúng một ký tự trắng ta làm như sau: tìm trong St chỗ nào có hai ký tự trắng thì xóa đi một, và lặp lại thao tác trên cho đến khi trong St không còn chỗ nào có hai ký tự trắng liên tiếp. Tức là :

k:=Pos(‘ ‘, St); { ‘ ‘ là 2 ký tự trắng }

While k > 0 do

begin

Delete(St, k, 1);

k:=Pos(‘ ‘, St);

end;
cái này anh search google thôi các em tham khảo nha
 
×
Quay lại
Top Bottom