Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal

[es] :: Pascal / Delphi / Kylix :: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal

[ Pregleda: 596 | Odgovora: 2 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

atlas

Član broj: 20158
Poruke: 167
*.as54.ze.bih.net.ba.



Profil

icon pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal13.04.2005. u 22:29

mozel pomoc oko ovog programa.........
zamislio sam ovako

da petlja ide od 1 do broj znakova recenice i kad naide na prazno mjesto da brojac postavi na nulu i od broja znakova oduzme broj na kom je prazno pa sve tako..
ali nikako da konstruisem program.......
kako biste ovo resili vi
13.04.2005. u 22:29 

reiser
Vranje

Član broj: 7895
Poruke: 1884
*.neobee.net.



Profil

icon Re: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal13.04.2005. u 22:39
Recimo da imas string sentence gde ti se nalazi recenica. Ovo pisem iz glave pa mozda ima neka sitna greska :

Code:

var
  C1  : Integer;
  tmp : String;
  ml   : Integer;
begin
  ml := 0;
  tmp := sentence;

  repeat
    If Pos(' ', tmp) - 1 > ml Then
      ml := Pos(' ', tmp) - 1;
    tmp := Copy(tmp, Pos(' ', tmp) + 1, Length(tmp) - Pos(' ', tmp));
  until Pos(' ', tmp) = 0;
end.
13.04.2005. u 22:39 

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949


Profil

icon Re: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal13.04.2005. u 23:01
Ne zaboravi da reci moze da razdvaja i samo , ili - ili ; ili : ili neki drugi znak.
DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.
13.04.2005. u 23:01 

[es] :: Pascal / Delphi / Kylix :: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal

[ Pregleda: 596 | Odgovora: 2 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.