Jednoduchej úkol na text – Pascal – Fórum – Programujte.com

Zdarec, potřeboval bych pomoct s jedním prográmkem. POtřebuji zjistit počet slov, které má 5 písmen. A ještě jak najít nejdelší slovo. Díkec

Rozdeľ si vetu na slová a potom ich prejdi a pozeraj ktoré má 5 písmen a ešte popri tom môžeš aj to najdlhšie hľadať.

No já jsem tam napsal toto :

 if (veta[i]<>' ') and (veta[i]<>'.') and (veta[i]<>',') and (veta[i]<>'!') and (veta[i]<>'?') then k:=k+1

                                               else begin

                                                         if k=5 then l:=l+1;

                                                         k:=0;



                                                    end;

    

    		writeln('Pocet petipismennych slov:',l);

a nechybí ti před tím cyklus který bude měnit to i?

No ten cyklus tam je, jen jsem ho zapomněl skopírovat.... Ale pořád mi to vypisuje jen 0. :-(

To JoDiK :
Tak sem hoď celý program... a pokud testovací věta není v programu tak i jakou větu testuješ...

Tady posílám celej program:

program ROCNIKOV;

uses crt;

var veta:string[100];

    k,l,p,s,i:integer;

    nejdelsi:string[100];

begin

     clrscr;

     p:=0;

     s:=1;

     write('Zadej vetu:');

     readln(veta);

     for i:= 1 to length(veta) do

         begin

              if (veta[i]='a') or (veta[i]='A') then p:=p+1;

         end;

     writeln('Pocet acek:',p);

     for i:=1 to length(veta) do

	 begin

	      if (veta[i]=' ') and (veta[i+1]<>' ')and (veta[i+1]<>'!')and (veta[i+1]<>'?') and (veta[i+1]<>',') then s:=s+1;

         end;

     writeln('Pocet slov:',s);

     for i:=1 to length(veta) do

     begin

          if (veta[i]<>' ') and (veta[i]<>'.') and (veta[i]<>',') and (veta[i]<>'!') and (veta[i]<>'?') then k:=k+1

                                               else begin

                                                         if k=5 then l:=l+1;

                                                         k:=0;



                                                    end;

    end;

    writeln('Pocet petipismennych slov:',l);

    writeln('Nejdelsi slovo:',nejdelsi);

    readln;

end.

Dík .... :-)

Když odhlédnu od toho, že do slov zapomínáš započítat taky poslední slovo ve větě, tak u mně to funguje dobře.
Zkusil jsem větu "Fujky bahno ee." a píše mi to počet áček 1 počet slov 2 a počet pětipísmenných slov 2.

NO já jsem tam zadal přesně tu větu a hodilo mi to, že tam mám 9 pětipísmenných slov... :-( a ještě prosím tě, jak najdu nejdelší slovo ? Díky moc za pomoc.

Už mi to funfuje, něco jsem upravil.... ale ještě nwm, jak udělat nejdelší slovo a jeho velikost.... :-(

To blahacek :
To by mně zajímalo, jak je to možný, že ti to počítá tak blbě... PS: nepsal jsi na začátku že to píše furt 0 pětipísmenných slov?
Co jsi teda upravil a jak?

Nejdelší slovo se ptal asi tvůj kolega zde: http://programujte.com/?akce=diskuze&kam=vlakno&tema=18341-nejdelsi-slovo-a-jeho-velikost-

No já jsem tam vždy zapomněl dát na konec tečku... :--)

jj, je to kolega....