da li rec postoji u nizu -pascal

[ atlas @ 06.03.2005. 00:03 ] @

Kako bi preko for strukture resili program koji kaze ''unesi recenicu a zatim jednu rijec i neka program proveri da li ta rijec se nalazi u nizu''

pr. { Covek jede pitu}
{ vek }
da,nalazi se

[ Nemanja Avramović @ 06.03.2005. 00:14 ] @

ovo nema veze sa nizovima...

ovo je primer iz delphija, pa se ti igraj:

Code:

if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil then
    ShowMessage('Substring found')
  else
    ShowMessage('Substring not found');

probaj i funkciju POS, ona ti vraca mesto na kom pocinje substrin u stringu (ako je vece od 0, onda postoji...)

ako bas mora preko for... ne znam ;)

[ Srki_82 @ 06.03.2005. 01:31 ] @

Ovako preko for-a :P

Code:
for I := 0 to 0 do
begin
  if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil then
      ShowMessage('Substring found')
  else
      ShowMessage('Substring not found');
end;

[ Toyo @ 06.03.2005. 01:53 ] @

He he bas zezate decka.

Ako mora preko for onda pozovi ovu funkciju Nadji('Neka recenica', 'Rec'), koja ce ti vratiti true ako je rec u recenici ili false ako nije.

Code:

function Nadji(S,Rec : String): Boolean;
var i, j: Integer;
  Nadjen:Boolean;
begin
  Nadjen := False;
  for i := 1 to Length(S) - Length(Rec) +1 do
    if not Nadjen and (S[i]=Rec[1]) then
      begin
        Nadjen := True;
        for j := 1 to length(Rec) do
          Nadjen := Nadjen and (s[i+j-1]=rec[j]);
      end;
  Nadji := Nadjen;
end;

[ Srki_82 @ 06.03.2005. 02:45 ] @

Ehhh... sta teraju ljude da rade u skoli :)