Liczenie duzych liter w pascalu

Dla specjalistów Programowanie
#1

Witajcie,

Jak policzyć duże litery podając wyraz? Język Pascal.

#2

Może sprawdź każdą literę czy należy do zbioru wielkich liter :wink: http://www.ascii-code.com/

#3

Możesz sprawdzić, czy masz dużą literę w taki sposób (zamiast AnsiUpperCase, można użyć UpperCase):

uses
 sysutils;
[...]
str := "TeK";
if str[2] = AnsiUpperCase(str[2]) then

#4

Dzięki za pomoc, zrobiłem funkcją if (a>=chr(65)) and (a<=chr(90))  then…  Liczy poprawnie, więc chyba zostawię.

#5

Użycie funkcji zaproponowanej przez adammo dodatkowo prawidłowo policzy ci wystąpienie “Ć,Ś,Ź” i innych polskich liter mogących wystąpić jako wielkie dodatkowo obsłuży inne kodowania, ale jeśli jest to zadanie do szkoły to w zupełności ci wystarczy to co sam napisałeś :slight_smile:

#6

Skoro tak to postaram się ją zaaplikować, bo zauważyłem że PL znaki nie są obsługiwane. Dzięki za pomoc.