Počítání frekvence písmen v poli

• Smět 5, 2024

Tento ukázkový kód vám pomůže zjistit, pro které pole lze použít, a také ukazuje smyčku v akci.

Řekněme, že chcete, aby uživatel vložil větu, a pak jim chcete sdělit, kolikrát použili každé písmeno abecedy. Pokud tedy uživatel zadal:

Jedl jsem mou kočku.

Vrátili byste stránku, která řekla:

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

OK, krok první. Chcete počítat 26 různých položek, jednu pro každé písmeno abecedy. To jen o výkřiku pole. Takže začněte s

Dim LetterCount (26)
pro CurrLtr = 1 až 26
LetterCount (CurrLtr) = 0
další

To je dobrý příklad předcházející smyčky. Dobře, tak dobře. Máte 26 bodů na nule a čekají na zahájení počítání. Nyní si projděte větu, abyste viděli, co je v ní. Řekněme, že voláte tuto větu CurrText.

Nejprve si přejete zkontrolovat každé písmeno ve větě. Udělám to pomocí smyčky do-while, abyste viděli, jak to funguje. Takže byste začínali:

SenLen = len (CurrText)
CurrCtr = 1
dělat, zatímco CurrCtr <= SenLen
CurrLtr = vlevo (CurrText, 1)

Máte další dopis v pořádku. Nyní má každé písmeno samozřejmě asociovanou hodnotu. Ty se pohybují od 65 pro A do 90 pro Z. Případ na tom záleží. Tedy dále písmeno velkými písmeny, abyste se ujistili, že spadá mezi 65 a 90, a odečtěte 64, takže A = 1 a Z = 26.

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

Takže nyní máte číslo od 1 do 26, které označuje, jaké písmeno to je. Další krok je samozřejmě snadný. Ty kbelík jen zvětšuješ! Pokud si přejete, můžete se ujistit, že budete ignorovat jakékoli jiné písmeno, pokud máte obavy, že se dostanou do proudu.

pokud CurrLtrA> 0 a CurrLtrA <65 pak
LetterCount (CurrLtrA) = LetterCount (CurrLTrA) + 1
konec, pokud

A nyní na konci smyčky, zbavíte se dopisu, na kterém jste právě pracovali, takže když se pohybujete ve smyčce, první písmeno ve větě je další v pořadí.

CurrText = Right (CurrText, len (CurrText) - 1)
CurrCtr = CurrCtr + 1
smyčka

Nyní je vaše pole plné čísel v rozsahu od 0 do všeho, z nichž každé udává, kolikrát bylo toto písmeno nalezeno. Můžete je zobrazit libovolným způsobem. Pokud jste chtěli použít smyčku a funkci CHR, která ukazuje písmeno, které má určitý kód ASCII, můžete udělat:

pro CurrLtr = 1 až 26
response.write "The letter"
CurrAscii = CurrLtr + 64
CurrLtrA = chr (CurrAscii)
response.write CurrLtrA & "was found"
response.write LetterCount (CurrLtr) & "times.
"
další

Nezapomeňte se zastavit na našem fóru nebo napsat, pokud máte nějaké dotazy!

Úvod do ASP Ebook Stáhněte si tuto knihu, abyste získali vše, co potřebujete vědět o učení ASP - od tutoriálu krok za krokem po seznamy funkcí, ukázkový kód, běžné chyby a řešení a mnohem více! 101 stránek.

Video Návody: Rovnoměrný pohyb hmotného bodu po kružnici | (7/8) Kinematika | Fyzika | Onlineschool.cz (Smět 2024).