15.. Učitati string i prebrojati znake interpunkcije u stringu (, , . , ? , !).

Opis programa: Provjera se izvodi sa 4 IF naredbe za svaki znak interpunkcije (, , . , ? , !) posebno. Za svaki pronađeni znak se uvečava brojač. Početna vrijednost brojača je 0.

Listing programa:

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

Ispis na ekranu:

Index