Đếm tần số chữ cái trong một mảng

• Tháng Tư 26, 2024

Mã mẫu này giúp bạn xem các mảng có thể được sử dụng cho mục đích gì và cũng hiển thị một vòng lặp đang hoạt động.

Giả sử bạn muốn người dùng nhập câu, và sau đó bạn muốn cho họ biết họ đã sử dụng bao nhiêu lần mỗi chữ cái trong bảng chữ cái. Vì vậy, nếu người dùng gõ vào:

Tôi đã ăn con mèo của tôi.

Bạn sẽ trả lại một trang cho biết:

a: 2
c: 1
e: 1
tôi: 1
m: 1
t: 2
y: 1

OK, bước một. Bạn muốn đếm 26 mục khác nhau, mỗi mục cho mỗi chữ cái trong bảng chữ cái. Đây chỉ là về hét lên mảng. Vì vậy, bắt đầu với một

Dim LetterCount (26)
cho CurrLtr = 1 đến 26
Số tiền (CurrLtr) = 0
kế tiếp

Đó là một ví dụ tốt về vòng lặp tiếp theo. OK, cho đến nay rất tốt. Bạn có 26 điểm ở mức 0, chờ đợi để bắt đầu đếm. Bây giờ để làm việc theo cách của bạn thông qua các câu để xem những gì trong đó. Giả sử bạn gọi câu này là CurrText.

Đầu tiên, bạn muốn kiểm tra từng chữ cái trong câu. Tôi sẽ làm điều này với một vòng lặp do-while để bạn có thể thấy nó hoạt động như thế nào. Vì vậy, bạn sẽ bắt đầu với:

SenLen = len (CurrText)
CurrCtr = 1
làm trong khi CurrCtr <= SenLen
CurrLtr = trái (CurrText, 1)

Bạn đã nhận được thư tiếp theo theo thứ tự. Bây giờ, mỗi chữ cái tất nhiên có một giá trị ascii liên quan đến nó. Những phạm vi từ 65 cho A đến 90 cho Z. Case không thành vấn đề. Vì vậy, tiếp theo bạn viết hoa chữ cái để đảm bảo nó nằm trong khoảng từ 65 đến 90 và trừ 64 để A = 1 và Z = 26.

CurrLtr = ucase (CurrLtr)
CurrLtrA = asc (CurrLtr)
CurrLtrA = CurrLtrA - 64

Vì vậy, bây giờ bạn có một số từ 1 đến 26 cho biết đây là chữ cái nào. Bước tiếp theo tất nhiên là dễ dàng. Bạn chỉ cần tăng cái xô đó! Nếu bạn muốn, bạn có thể chắc chắn bỏ qua bất kỳ chữ cái nào, nếu bạn lo lắng về việc họ sẽ vào luồng.

nếu CurrLtrA> 0 và CurrLtrA <65 thì
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
kết thúc nếu

Và bây giờ là kết thúc của vòng lặp, bạn thoát khỏi chữ cái mà bạn vừa làm việc để khi bạn đi vòng vòng, chữ cái đầu tiên trong câu là chữ cái tiếp theo theo thứ tự.

CurrText = Phải (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
vòng

Vì vậy, bây giờ mảng của bạn có đầy đủ các số từ 0 đến bất cứ thứ gì, mỗi số cho biết số lần chữ cái đó được tìm thấy. Bạn có thể hiển thị chúng theo bất kỳ cách nào bạn muốn. Nếu bạn muốn sử dụng một vòng lặp và hàm CHR, hiển thị chữ cái có mã ASCII nhất định, bạn có thể làm:

cho CurrLtr = 1 đến 26
answer.write "Bức thư"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
answer.write CurrLtrA & "đã được tìm thấy"
answer.write LetterCount (CurrLtr) & "lần.
"
kế tiếp

Hãy chắc chắn dừng lại bởi các diễn đàn của chúng tôi hoặc viết nếu bạn có bất kỳ câu hỏi!

Giới thiệu về Ebook ASP Tải xuống ebook này để có được mọi thứ bạn cần biết về việc học ASP - từ hướng dẫn từng bước đến danh sách chức năng, mã mẫu, các lỗi và giải pháp phổ biến, và nhiều hơn nữa! 101 trang.

Video HướNg DẫN: [pascal 11] Đếm số chữ cái trong xâu (Tháng Tư 2024).