[es] - PASCAL Pretrazivanje texta...

valajbeg
Vedran Alajbegović
Sarajevo

Član broj: 5069
Poruke: 536
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.vedran.ba

Profil

PASCAL Pretrazivanje texta...

^{06.04.2004. u 21:09}

Pretrazivanje texta...
...
mozeli neko malo pomoci..

npr...

In Windows, Dreamweaver MX 2004 provides an all-in-one-window integrated workspace. In the integrated workspace, all windows and panels are integrated into a single larger application window. You can choose between a designer-oriented layout and a layout oriented toward the needs of hand-coders.

Koliko riječi, Koliko Velikih slova, Koliko spejsova, Koliko malih slova, Koliko zareza, Koliko TAčaka....., Upitnika-upitnih recenica, Samoglasnika, Suglasnika......

;-)

bar neke upute.. Oko .. brojanja toga svega.. :-D

www.vedran.ba | www.microsoft.ba <-- 20 godina ksnije! + CSCO11252675
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)

^{06.04.2004. u 21:09}

doomed
NS/PO

Član broj: 736
Poruke: 173
*.ptt.yu

Profil

Re: PASCAL Pretrazivanje texta...

^{06.04.2004. u 22:37}

Citat:

valajbeg:
Pretrazivanje texta...
...
mozeli neko malo pomoci..

Koliko riječi, Koliko Velikih slova, Koliko spejsova, Koliko malih slova, Koliko zareza, Koliko TAčaka....., Upitnika-upitnih recenica, Samoglasnika, Suglasnika......

;-)

bar neke upute.. Oko .. brojanja toga svega.. :-D

ako citas iz fajla, citas liniju po liniju..i onda jednostavno brojis

c : char;
for i:= 1 to length(linija) do
begin
c := linija;
case c of
' ' : inc(razmaci);
',' : inc(zarezi)
'.' : inc(tacke);
......

dalje, velika slova su ti po ASCII tabeli od 65-90, mala 97-122 , rec ti je izmedju dva blanka..itd
to je prvo sto mi pada napamet

Ako treba onda nema potrebe

^{06.04.2004. u 22:37}

valajbeg
Vedran Alajbegović
Sarajevo

Član broj: 5069
Poruke: 536
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.vedran.ba

Profil

Re: PASCAL Pretrazivanje texta...

^{07.04.2004. u 07:13}

Ok ta ideja kako bi ti sa ASCII-jem ..

je Ok ali .. mislio sam da bi jednostavnije bilo prikazati to kao..

for i:=1 to length(linija) do
if (linija>='A') and (linija[]i<='Z') then inc(brojac);

samo.. problem mi je mallo. nebogu bas da nadodjem..
Više Spejsova izmedju RJECI...

kako onda to uradit'...
www.vedran.ba | www.microsoft.ba <-- 20 godina ksnije! + CSCO11252675
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)

^{07.04.2004. u 07:13}

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 224
*.teol.net

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Re: PASCAL Pretrazivanje texta...

^{07.04.2004. u 14:14}

potrazi u helpu funkciju ord ona ce ti pomoci da skontas koji je ascii znak space pa takodje vezano za to pogledaj i funkciju chr

^{07.04.2004. u 14:14}

valajbeg
Vedran Alajbegović
Sarajevo

Član broj: 5069
Poruke: 536
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.vedran.ba

Profil

Re: PASCAL Pretrazivanje texta...

^{07.04.2004. u 16:13}

:-)...
mislim da niste blizzzuu...

toplo hladno toplo hladno...

naime
HAJD.. KAKO CE TE ZNATK koliko je rjeci

ako imas npr. ovako napisanu recenicu

Ja volim da jedem krompir salatu i PIJEM sok od trešanja.
Eto .. PRebroj ih... :-)

www.vedran.ba | www.microsoft.ba <-- 20 godina ksnije! + CSCO11252675
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)

^{07.04.2004. u 16:13}

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 224
*.dialup.blic.net

ICQ: 178873696
Sajt: home.blic.net/mozlas

Profil

Re: PASCAL Pretrazivanje texta...

^{07.04.2004. u 23:51}

pa to je bar lako... samo jednim if upitom...
if procitaniznak<>SPACE and prosliznak=space then pocetak rijeci !!!!!

^{07.04.2004. u 23:51}

Vdjuric
Vladimir Djuric
Beograd

Član broj: 20863
Poruke: 64
*.eutelsat.net

Sajt: www.marettasoftware.com

Profil

Re: PASCAL Pretrazivanje texta...

^{08.04.2004. u 05:38}

Citat:

valajbeg:
naime
HAJD.. KAKO CE TE ZNATK koliko je rjeci

ako imas npr. ovako napisanu recenicu

Ja volim da jedem krompir salatu i PIJEM sok od trešanja.
Eto .. PRebroj ih... :-)

Nisam probao, ali trebalo bi da radi...

Function WordCont(Var Text: String): Word;
Var
WordCount, Br1 :Word;
TextLen :Word;
Begin
WordCount:=0; Br1:=1; TextLen:=Length(Text);
While Br1 <= TextLen
Do Begin
{While ((Br1 <= TextLen)And(Text[Br1] = ' ')) Do Inc(Br1);}
While ((Br1 <= TextLen)And(Text[Br1] = #32)) Do Inc(Br1);
If (Br1 <= Text)
Then Begin
While ((Br1 <= TextLen)And(Text[Br1] <> #32)) Do Inc(Br1);
Inc(WordCount);
End;
End;
Result:=WordCount;
End;

^{08.04.2004. u 05:38}

valajbeg
Vedran Alajbegović
Sarajevo

Član broj: 5069
Poruke: 536
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.vedran.ba

Profil

Re: PASCAL Pretrazivanje texta...

^{08.04.2004. u 22:04}

hajd.. hajd .. samo nastavii..

www.vedran.ba | www.microsoft.ba <-- 20 godina ksnije! + CSCO11252675
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)

^{08.04.2004. u 22:04}