Vyskyt slova – Pascal – Fórum – Programujte.com

program vyskyt;

var T:text;
    soubor,radek:string;
    slovo:string[50];
    pocitadlo,i,x:integer;



begin
writeln('Zadej jmenosouboru: ');
readln(soubor);
assign(T,soubor);
reset(T);

writeln('Zadej slovo: ');
readln(slovo);


pocitadlo:=0;
while not eof(T) do
begin
readln(T,radek);
radek:=radek+ ' ';

for i:=1 to length(radek) do
radek[i]:= UpCase radek[i];

for i:=1 to length(radek)-1 do
x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);
inc(pocitadlo);


end;



writeln('Pocet vyskytu tohoto slova je: ',pocitadlo);
close(T);

readln;
end.
          

Dobry den, potreboval bych poradit. V prikazu UpCase mi to hazi chybu ,,vyskyt.pas(37,12) Error: Wrong number of parameters specified for call to "upCase" " .. vubec v tom nevidim co je spatne, diky za radu.

A s tim hledanim slovo pomoci POS si taky nejsem moc jistej. Diky za jakykoliv postreh.

#1 kejta
UpCase bude nejspíš procedura, takže radek[i] dát do závorek tedy radek[i] := UpCase(radek[i]);

Funkce Pos(), vrací první výskyt daného stringu v řádku.

Dál jsem to nezkoumal.
 

jojo, to UpCase bylo timhle. Diky moc:) 

..jinak program mi vraci na vystup v pocitadle cislovku pet, pritom vyskyt slova je 10. Nekdo nejaky rady prosimvas? :)

Teď koukám že pro jakýkoliv zadaný vstup to vypisuje 5, ikdyž tam není ani jednou:X

ztroskotal jsem na necem takovem

for i:=1 to length(radek)-1 do
begin
if Pos(slovo,radek) then inc(pocitadlo);
x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);

end;  

Vim ze takhle napsane je to nefunkcni, ale vubec s tim prikazem POS neumim zachazet.

Tudiz potrebuji to, aby kdyz mnou zadane SLOVO se naslo v retezci RADEK, pomoci ktereho projizdim cely textovy soubor aby se zvysilo pocitadlo.

x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);

Tohle by melo podle meho slouzit k tomu, aby se ve vyhledavani projizdelo od posledniho vyskytu tohoto slova. Prokopiruje se ten retezec, od konce toho slovo(x+1) a vlozi se retezce RADEK. 

#5 kejta
Máš v tom totální chaos, kromě toho že nevíš jak co funguje, tak vymýšlíš nesmysly...

To, co jak funguje máš popsané v nápovědě, s vymýšlením postupů (algoritmů) to je už horší, řešení běžných úloh jsou na internetu popsané...

Doporučuji nehrnout se hned na kompletní program ale jít po kouskách.

Nevím v jakém prostředí to píšeš, jestli tam máš k dispozici ladící nástroje (krokování, sledování obsahu proměnných a pod) tak těžko radit konkrétně...

Ale zkusím:

1. ulož si nějaké jednoduché údaje, třeba:

radek:='Toto slovo je jako slovo nebo jine slovo, tak!';
slovo:='slovo';

A zkus napsat jen takový program, který zjistí počet výskytů slova v radek.

Nezapomeň, že když převedeš radek na velká písmena, měl bys převést i slovo!

Pos zjišťuje pozici prvního výskytu, správně jsi usoudil, že před dalším zjištováním odřízneš to co jsi už našel... Ale opravdu to musíš zjišťovat tolikrát, koik má radek písmen? I když tam to slovo třeba vůbec není? Zkus použít jiný cyklus, co třeba:

zjisti pozici výskytu slova v radek
dokud tam to slovo je, tak
       pričti jedničku k počtu
       zkopíruj zbytek slova
       zjisti pozici výskytu slova v radek
vypiš počet nalezených výskytů

Až ti tohle bude fungovat, pokračuj dál...

Zkusil jsem tedy nějak takhle  

while Pos(slovo,radek) <> 0 do
begin
inc(pocitadlo);
x:=Pos(slovo,radek);
delete (radek,x+1,length(radek)-x);

end;  

Je lepší ten předchozí řetězec smazat, nebo vykopírovat ten následující, nejspíš je to asi jedno ne? 

v řetězci slovo jsem také provedl zvětšení písmen

writeln('Zadej hledane slovo: ');
readln(slovo);

for i:=1 to length(slovo) do
slovo[i]:= UpCase (slovo[i]);
                                   

Ale program mi stále na výstupu oznamuje v počítadle špatné hodnoty..

#7 kejta
Tak si kromě "spatných hodnot" vypisuj i jednotlivé úpravy toho radku a zjistíš, že mažeš blbě...

Uz to vidim. A jde nejaky zpusobem mazat do indexu a nikoliv od indexu?

#7 kejta
Buď toto:

delete(radek,1,x+length(slovo)-1);

nebo toto:

radek:= copy (radek,x+length(slovo),length(radek)-x-length(slovo)+1);

ty nemáš nápovědu? bývá to v ní popsáno velmi přesně včetně příkladů...

Jakou nápovědu myslíš? 

#11 kejta
Nápovědu v IDE přece... kurzor do příkazu a CTRL+F1

No vidíš, o tom ani nevim. Diky:)

..a děkuji za pomoc celkově:)