15.. Prebrojati broj velikih slova i broj malih slova u učitanom stringu.

Opis programa: Izvodi se provjera svakog znaka u stringu, da li je veći od velikog slova A i manji od velikog slova Z. Logički izraz je ('A'<= s[i]) AND (s[i] <= 'Z'). Ova provjera je za velika slova i uvečava se brojac brv. Za mala sloava logički izraz je sličan ('a'<= s[i]) AND (s[i] <= 'z') i za svako malo slovo se uvačava broja brm.

Listing programa:

PROGRAM P15111023;
USES 
  WinCRT;
VAR
  i, brv, brm : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  brv := 0; {pocetne vrijednosti brojaca}
  brm := 0;
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      IF (('A'<= s[i]) AND (s[i] <= 'Z')) THEN brv := brv + 1;
      IF (('a'<= s[i]) AND (s[i] <= 'z')) THEN brm := brm + 1;
    END;
    Writeln('Broj velikih slova u stringu ', brv);
    Writeln('Broj malih slova u stringu ', brm);
END.

Ispis na ekranu:

Index