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

da li rec postoji u nizu -pascal

[es] :: Pascal / Delphi / Kylix :: da li rec postoji u nizu -pascal

[ Pregleda: 709 | Odgovora: 4 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

atlas

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



Profil

icon da li rec postoji u nizu -pascal06.03.2005. u 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
06.03.2005. u 00:03 

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3997
*.verat.net.

ICQ: 266136396
Sajt: www.avramovic.info


Profil

icon Re: da li rec postoji u nizu -pascal06.03.2005. u 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 ;)
Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
06.03.2005. u 00:14 

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949


Profil

icon Re: da li rec postoji u nizu -pascal06.03.2005. u 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;
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.
06.03.2005. u 01:31 

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



Profil

icon Re: da li rec postoji u nizu -pascal06.03.2005. u 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;
06.03.2005. u 01:53 

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949


Profil

icon Re: da li rec postoji u nizu -pascal06.03.2005. u 02:45
Ehhh... sta teraju ljude da rade u skoli :)
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.
06.03.2005. u 02:45 

[es] :: Pascal / Delphi / Kylix :: da li rec postoji u nizu -pascal

[ Pregleda: 709 | Odgovora: 4 ]

 Postavi temu Odgovori

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