15.. Učitati string i prebrojati riječi u stringu.

Opis programa: Broj riječi je za jedan veći ood broja praznih mijesta. Zato ćemo prebrojati razmak (prazno mjesto) u stringu naredbom IF ' ' = s[i] THEN . Za svaki pronađeni prazan prostor uvačava se brojač br.

Listing programa:

PROGRAM P15111026;
USES 
  WinCRT;
VAR
  i, br : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  br := 1; {pocetna vrijednost brojaca}
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      IF ' ' = s[i] THEN 
      br := br + 1;
    END;
    Writeln('Broj rijeci u stringu = ', br);
END.

Ispis na ekranu:

Index