15.. Prebrojati broj velikih 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').

Listing programa:

PROGRAM P15111022;
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
    IF (('A'<= s[i]) AND (s[i] <= 'Z')) THEN 
      br := br + 1;
  Writeln('Broj velikih slova u stringu ', br);
END.

Ispis na ekranu:

Index