Matematické Fórum
Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
Stránky: 1
- Hlavní strana
- » Algoritmy a programování
- » Frekvenční analýza textu \PASCAL (TOTO TÉMA JE VYŘEŠENÉ)
#1 22. 11. 2015 18:40 — Editoval aaassseee (22. 11. 2015 18:41)
Frekvenční analýza textu \PASCAL
zdravím, potřeboval bych pomoci s programem, do kterého zadám větu, a program následně vypíše počet každého písmene ve větě bez písmen, která v ní napsaná nejsou.
PŘ.
vstup: ''Ahoj mami , co varis''
vystup:
a:3
c:1
j:1 a podobně
Offline
- (téma jako vyřešené označil(a) gladiator01)
#2 22. 11. 2015 20:48 — Editoval gladiator01 (22. 11. 2015 20:53)
- gladiator01
- Místo: Jindřichův Hradec
- Příspěvky: 1587
- Škola: ZČU FAV - SWI
- Pozice: absolvent
- Reputace: 53
- Web
Re: Frekvenční analýza textu \PASCAL
1. založ si pole, do kterého se vejdou všechny znaky malé abecedy a vynuluj ho
2. v cyklu procházej řetězec
2a) písmeno převeď na malé písmeno
2b) kontroluj jestli je znak skutečně písmeno
a pokud ano: zvyš hodnotu pole na indexu "ASCII hodnota znaku mínus 97" (97 je "a", tím budš indexovat od nuly).
3. projdi vytvořené pole a pokud je hodnota větší než nula, tak ho vypiš, znak můžeš vypisovat, tak že začneš od "a" a v každém kroku ho budeš inkremntovat (jestli to pascalu jde)
Naděje jako svíce jas, potěší srdce štvané, čím temnější je noční čas, tím zářivěji plane.
VIVERE - MILITARE EST (Seneca)
Vím, že nic nevím. - Sokrates
Offline
#3 23. 11. 2015 07:35
Re: Frekvenční analýza textu \PASCAL
Zdravím,
ano, Pascal by měl znát konstrukci:
var
pole: array ["A".."Z"] of integer;
inc(pole["Q"]);
A ještě si dovolím jednu nápovědu pro usnadnění testování: Pascal umí i "množiny", tedy jde udělat podmínku:
var
k: char;
....
if k in ["A".."Z"] then
....
Доктор сказал «в морг» — значит в морг!
Offline
Stránky: 1
- Hlavní strana
- » Algoritmy a programování
- » Frekvenční analýza textu \PASCAL (TOTO TÉMA JE VYŘEŠENÉ)