Frekvenční tabulka znaků – Pascal – Fórum – Programujte.com

program Pocet;

uses crt;

var s: text;
zn: char;
A: array [' '..'z'] of integer;

begin
clrscr;
assign(s,'pokus.txt');
reset(A);
read (s,zn);

while not eof(s) do;
begin;
A[zn]:= A[zn]+1;
end;
writeln(A,zn);
close(s);
end.

Dobrý den jsem žákem střední školy a můj učitel mně nechce pustit dále do dalšího ročníku zadal mi úkol vytvořit program který přečte soubor a vypíše frekvenční tabulku znaků zatím se mi povedlo vymyslet toto může mi někdo prosím poradit ?

#1 Woody
No nějako jsi zapomněl upřesnit, s čím konkrétně by jsi potřeboval pomoct ... to co jsi tady publikoval mi spíše přijde jako nějaká část jakéhosi projektu ... jde ti to vůbec přeložit?

Rozděl si celý úkol na X dílčích kroků a ty potom realizuj, uvidíš, že se ti bude pracovat lépe.

Každopádně k tvému projektu. Přístup k nějakému souboru tam už zhruba máš, tak že teď by tě asi mělo nejvíce pálit procházení toho souboru, a inkrementování počtu výskytů jednotlivých znaků ...

Jde o to že program má použít pole pro výpis znaků,  tj místo číselného indexu použít jako index znak abecedy a výsledek by měl vypadat cca tak že:

"V souboru se nacházejí tyto znaky:

A 2

B 10

C 3

atd s tím že čísloza písmenem značí kolikrát se daný znak v souboru nachází, skompilovat mi to nejde, s tím že hlásí chybu v deklaraci pole.

#3 Woody
Mě je jasné co ten program má děla (respektive co má být jeho výstupem), já se ptal s čím konkrétně si nevíš rady. Rozuměj, nemám zájem to za tebe psát (IMHO si myslím, že student střední školy, která je nejspíše zaměřená na IT by tohle měl zvládnout i po base piv), ale mám zájem ti pomoct tak aby sis to napsal sám a věděl co a proč to jak dělá.

Pokud chceš k uchování počtu výskytů jednotlivých znaků používat pole, nejspíše budeš muset použít dvourozměrné pole. Kde v prvním řádku budeš mít znak a ve druhém počet výskytů (řádek/sloupec, o je na tobě).

Nebo jednorozměrné, s tím, že budeš vědět, že hodnota v buňce 0 bude představovat počet výskytů znaku a, hodnota v buňce 1 bude počet výskytů znaku b, ...

Volba je na tobě, každopádně obě tyhle varianty mají slabinu v tom, že pole bude statické a tedy předem budeš muset vědět jaké znaky budeš hledat, pokud by jsi chtěl udělat program na počítání výskytu jakéhokoli znaku, bylo by vhodnější použít dynamické pole, nebo nějakou jinou dynamickou kolekci ...

#3 Woody
pascal nebere znaky jako cislo, takze musis pouzit proste array [32..255] of integer;

pak pouzit ord(zn) na prevod na cislo

pak vypsat tu tabulku pomoci cyklu (a asi jen vypisovat hodnoty vetsi nez nula)

coz me privadi k tomu, ze budes muset pole taky vynulovat - jinak by tam mohlo byt nejaky smeti

a omezit pocitani na ty znaky od 32 (mezery) az po 255

#5 KIIV
Překvapuje mě, že i ty máš sem tam nějaké mezery (soudě podle tvých předchozích příspěvků).

pascal nebere znaky jako cislo, takze musis pouzit proste array [32..255] of integer;

Jeden z ordinálních typů je samozřejmě i znak (tzn. že ho opravdu bere vlastně jako číslo - jak taky jinak že) a indexem pole může být jakýkoliv ordinální typ, takže deklarace pole je v pořádku a nemusí nic převádět (s drobnou výhradou, že v textovém souboru mohou samozřejmě být i konce řádků, což jsou znaky #10 a #13 a ty jsou mimo rozsah deklarovaného pole).

#3 Woody
Jakou chybu a kde přesně ti to hlásí?

skompilovat mi to nejde, s tím že hlásí chybu v deklaraci pole

deklarace pole je v pořádku.

#7 JoDiK
Mně překladač hlásí první chybu až tady:

reset(A);

Což je snad jasné, proměnná souboru se jmenuje s a ne A - to je pole, kde se bude počítat...

#6 JoDiK
pokud to jde, tak sou ty mezery tim, ze pascal nepouzivam vic jak dekadu...

nicmene co pamatuju, tak aby se se znakem mohlo pracovat jako s cislem, tak se musel prevest pomoci ord.. ale nejakej free pascal to treba bere jinak..

schvalne si to otestuju

EDIT: tak jo, je to jen naprosto priserne zmrsenej kod... znak jako index funguje, to samy jako rozsah pole.. kdyz se opravily ty hromady chyb, tak uz to i pocita

(+ clovek se furt neco uci :))

#9 KIIV
FreePascal stejně, až u reset...

Free Pascal Compiler version 2.6.2 [2013/02/16] for x86_64 Copyright (c) 1993-2012 by Florian Klaempfl and others

Pocet.pas(12,8) Error: Call by var for arg no. 1 has to match exactly: Got "Array[32..122] Of SmallInt" expected "Text"

Pocet.pas(19,10) Error: Can't read or write variables of this type

Pocet.pas(22) Fatal: There were 2 errors compiling module, stopping Fatal: Compilation aborted
 

#10 JoDiK
jj vsechny chyby sem uz proletel.. neinicializovany A, reset nad A misto s, nekonecnej cyklus (nacte jedinou hodnotu pred cyklem, pak uz nic), nevypisuje vsechny polozky ale jen jednu, nema ochranu proti znakum mimo rozsah, ...

blbej writeln(A,zn) misto  writeln(zn, ' ', A[zn]);  ...

program Pocet;

uses crt;

var s: text;
zn: char;
A: array [' '..'z'] of integer;

begin
clrscr;
assign(s,'pokus.txt');
reset(s);
read (s,zn);

while not eof(s) do;
begin;
A[zn]:= A[zn]+1;
end;
writeln(zn,' ',A[zn]);
close(s);
end.

tak jsem to dostal do tohohle stavu kdy to jde skompilovat ale prakticky okamzite se to vypne coz je asi dane tim ze tam je ten zmineny nekonecny cyklus, napadlo me jeste zkusit pouzit repeat until ale priznam se ze nevim presne kam s nim.

#12 Woody
ono totiz nejde ani tak o ten cyklus, jako ze v nem proste nic nenacitas... tim padem se nikdy nedostanes na eof... a mas pravdu, nekonecny cyklus neni az tak nekonecny v pascalu -- nejspis se dostanes na maximum integeru a pak to spadne?.. coz pravdepodobne netrva zase tak dlouho

#12 Woody
Máš tam tenhle cyklus:

while not eof(s) do;

Překladač ho samozřejmě přeloží, je mu fuk, že nevíš co píšeš a která bije.

Až to spustíš, cyklus dělá přesně to, co je v něm napsáno - dokud není konec souboru, dělej NIC!

Tak se prosímtě nejdřív zorientuj v tom, jak se zapisují příkazy a hlavně si uvědom, co v zápisu znamená středník - ten opravdu neukončuje řádek ale celý příkaz!

Jak se čte ze souboru až do konce je popsáno na mnoha místech, je na to ověřený standardní postup, který ošetřuje i tu variantu (naprosto legální), že v souboru nemusí být nic (má velikost 0 bajtů) a tedy hned po jeho otevření nastane eof a nemůžeš z něj tedy hned něco číst - nastane chyba čtení za koncem souboru...

Inspiruj se třeba zde: http://www.spsemoh.cz/vyuka/pascal/file.htm