čtení textu ze souboru – Pascal – Fórum – Programujte.com

Dostal jsem úkol, s kterým si vůbec nevím rady, mohl by mi někdo s tím pomoct?

Napište program, který přečte text ze zadaného textového soubotu(bez použití diakritiky) a vytiskne na obrazovku to z písmen anglické abecedy, jehož četnost výskytu v textu je největší. Vedle písmene vytiskne i jeho četnost.

Díky moc ;)

#1 Artis0608
Mohl.

S čím chceš pomoct?

Zkopíruj sem co už máš hotové a ptej se čemu z toho nerozumíš, nebo co ti nefunguje.

Není zač.

#2 JoDiK
zatím jsem dokázal sestavit jenom program, který mi vypíše četnost znaku pismen cislic ale dál už nevím.


program Cetnost2;

 uses SysUtils;

var f: text;

c: char;

cislice, pismena, celkem: integer;

begin

assign(f,'c:/text.txt');

reset(f);

cislice:=0; pismena:=0; celkem:=0;

while not eof(f) do

begin 

read(f,c);

if (c>='0') and (c<='9') then cislice:=cislice+1;

if (c>='A') and (c<='z') then pismena:=pismena+1;

celkem:=celkem+1;

write(c);

end;

close(f);

writeln;

writeln('V souboru je ',cislice,' cislic a ',pismena,'pismen');

writeln('Celkem je v souboru ',celkem,' znaku'); readln;

end.

#3 Artis0608
Dokázal jsi ho opravdu "sestavit" nebo jen zkopírovat?

Pokud jsi ho sestavoval, proč jsi teda řešil úplně jiné zadání?

Ale abych jen nevyčítal, nabízím i pomoc.

Sestav program, který v tom textovém souboru spočítá a vypíše jenom počet písmen 'E', nic jiného.

Až to budeš mít sestavené, ukaž to tady...

Doporučuji si prohlédnout ASCII tabulku.

hu

#5 hlucheucho
Vzhledem k tomu, že sem kouká jednou týdně, tak až se tě za týden zeptá co to je ASCII tabulka a kde to najde, tak to bude dělat půl roku :-)

#6 JoDiK
 tak to bych měl pro jistotu napsat, co je to Google a jak se používá   

hu

#7 hlucheucho
Téééda myslíš že ani toto nebude vědět, když to tak pěkně zkopíroval?   

#8 Lilien
Všimla sis, že ten dotaz je rok starý?