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

Odgovori Nova tema

2 odgovora
4.436 pregleda

pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal 13.04.2005. u 23:29 · pre 262 meseca #1

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

Re: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal 13.04.2005. u 23:39 · pre 262 meseca #2

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.

Re: pr: (u unesenoj recenici pronaci i ispisati najduzu rec) Pascal 14.04.2005. u 00:01 · pre 262 meseca #3

Ne zaboravi da reci moze da razdvaja i samo , ili - ili ; ili : ili neki drugi znak.

Potpis

Play Store

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme