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

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ả

bạn đang học pascal hả

ukm
ai giỏi pascal vào giúp hộ
thank trước

lolovp nói:

bạn đang học pascal hả

Xem tiếp...

đúg là pascal mà. Bài này dùg hàm length phải ko?

chắc vậy khoai ak

Đưa ra số lượng chắc sử dụg hàm length nè xuxu.

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

----------

Thanhphong18 nói:

đế 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

Xem tiếp...

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

xuxu_s2_đuđu nói:

học nhanh vậy

----------


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

Xem tiếp...

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 loại bỏ khoảng trắng là hàm gì?

khoailangnuong0511 nói:

Hàm loại bỏ khoảng trắng là hàm gì?

Xem tiếp...

cái này anh không nhớ. trong excel là hàm Trim còn trong pascal thì pó tay

hàm delete thì phải
ngừoi ta bảo đếm số lượng đàu từ công vs 1

Thanhphong18 nói:

cái này anh không nhớ. trong excel là hàm Trim còn trong pascal thì pó tay

Xem tiếp...

e ko biết hàm này rồi. Mà xu đag học bài kiểu xâu ah?

ukm
hàm delete đó

xuxu_s2_đuđu nói:

hàm delete thì phải
ngừoi ta bảo đếm số lượng đàu từ công vs 1

Xem tiếp...

nhưg đâu biết vị trí nào có khoảng trắng mà delete xu.

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