1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

{
Descripcion: Evalua la cantidad de ocurrencias de las letras en una palabra
www.mis-algoritmos.com
}
uses   crt;{Cargamos libreria de la pantalla}
var
   letras      : array [1..256] of integer;
   cont     : integer;
   enunciado   : string; 
begin
   clrscr;{Limpiamos pantalla}
   for cont:=1 to 255 do{Rellenamos vector de 255 con ceros}
      begin         letras[cont]:=0;
      end;
   readln(enunciado); {Leemos enunciado}
   for cont:=1 to length(enunciado) do
      begin         {Sumamos en 1 si encontramos una letra en tal posicion}
         letras[ord(enunciado[cont])]:=letras[ord(enunciado[cont])]+1;                 
      end;
 
   for cont:=1 to 255 do      begin
         {Si la posicion de es mayor a cero en su contenido mostramos la
         letra que le corresponde y la cantidad de veces que la encotramos}
         if letras[cont]>0 then
            writeln('Letra ',chr(cont),' :',letras[cont]);      end;
   readkey;{Esperamos una tecla para finalizar}
end.