Procedura HELP

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Poceo sam da pisem proceduru za program ali nikako da uspem. Naime procedura treba da iz recenice S uklanja sve praznine poceo sam ali neide.
Pa bih zamolio neko da mi pomogne.

 uses wincrt; var s:string;     a,b,c,d:integer; procedure pra(s:string); var r,k:integer;     i:integer; begin      k:=1;      r:=length(s);      for i:=1 to r do          if i= then             begin               k:=k+1;             end;                    end;
Length odredjuje velicinu recenice,sad nekako treba da izbacim razmake u stringu kako bih mogao u da odredim velicinu recenice bez razmaka kako bih u glavnom programu uporedjivao recenice koja ima vise reci od koje.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da bi izbacio razmake mozes da se posluzis sledecim:
var   sIn: string;   sOut: string;   i: integer; begin   sOut := '';   for i := 1 to length(sIn) do     if sIn[i] <> #32 then sOut := sOut + sIn[i]; end;
sOut ce biti kopija sIn-a, ociscen od razmaka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ovo sto si ti napisao ce samo da ti prebroji blank mesta, ali nece raditi bas ovako kako je napisano.
Moras da izdvojis char iz stringa, prvo prvi, pa drugi... i poredis za char=' ';
Iz stringa izdvajas sa copy naredbom.
Ovo ti je ono, cisto skolsko resenje.

Ovo sto ti je bobby napisao takodje radi i mnogo je elegantnije resenje, ali malo njih zna za ove naredbe.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@Licanin

Sada sam ponovo procitao tvoj post. Zasto bi uopste izbacivao razmake ako treba da izbrojis koliko reci ima recenica?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@bobby

Pa moram da izbacim razmake zato sto to trazi zadatak, ali moram da ih izbacim pomocu procedure ili funkcije.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Daj mi ceo tekst zadatka, ovako ne mogu da te pratim.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Probaj ovako:

procedure pra(var s:string; var k: Integer;); var i:integer;     Str: String; begin   Str:= s;   s:= '';   k:=1;   for i:=1 to length(Str) do     if Str[i]= ' ' then Inc(k)                      else s:= s + Str[i];         end;

Posle ovoga u promenljivoj k dobijas broj razmaka, a u promenljivoj s dobijas pocetnu recenicu, ali bez razmaka. Naravno tebi se u programu ne moraju tako zvati promenljive, ali to valjda i sam znas .

Pozz!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@bobby

Zadatak glasi:

Napisati funkciju⁄proceduru koja iz rečenice S uklanja sve praznine. U glavnom programu korisnik unosi tri reda teksta (stringovi S1, S2, S3). Odrediti:
Koji red teksta sadrži najveći broj reči.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Aman Strog, nemoj da se brukas. Bobby je lepo rekao. Ja bih napravio ovako.

function Pra(s:string):string; var   i:integer; begin  Result:=´';  for i:=1 to Length(s) do       if s[i[<>#32 then result:=result+s[i]; end;


E sada, za odredjivanja broja reci, je malo kompleksniji problem, koji, ja mislim, da ni profesor nije svestan.
Prebrojavanje praznina ne znaci da je i to broj reci.

Pravilno je napraviti delimiters

(nemam sad pascal pri ruci, pa me ne drzite za rec, tj sintaksu)
type
TDelimiters=set of (#32,#13,#10,',',';',':',#9); // i dodati jos delimitera

pa onda se proverava if (s[i] in TDelimiters) then...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pa ne znam sto se brukam? Namerno nisam pisao nista novo, nego sam samo coveku preradio ono sto je on zapoceo bez komplikovanja ... Nisam rekao da bih ja to tako resio, samo sam modifikovao njegovo resenje da radi!

BTW ovo su skolski zadaci ( ili fakultetski, nije bitno ) tako da je brojanje reci upravo prebrojavanje praznina, a jedino bi se moglo ubaciti da se gleda da li je i posle razmaka razmak, pa razmak, pa razmak itd. da ne bi svaki taj razmak brojao kao rec tako da nema potrebe komplikovati sa delimiterima .