da li rec postoji u nizu -pascal

Odgovori Nova tema

4 odgovora
3.337 pregleda

da li rec postoji u nizu -pascal 06.03.2005. u 01:03 · pre 263 meseca #1

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

Re: da li rec postoji u nizu -pascal 06.03.2005. u 01:14 · pre 263 meseca #2

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 ;)

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Re: da li rec postoji u nizu -pascal 06.03.2005. u 02:31 · pre 263 meseca #3

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;

Potpis

Play Store

Re: da li rec postoji u nizu -pascal 06.03.2005. u 02:53 · pre 263 meseca #4

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;

Re: da li rec postoji u nizu -pascal 06.03.2005. u 03:45 · pre 263 meseca #5

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

Potpis

Play Store

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme