Evalua la cantidad de ocurrencias de las letras en una palabra
¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML.
Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos
fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.
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. |
Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
- Si es lenguaje C <code lang="c">Código en C</code>
- Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.
De esta manera el código coloreas el código.
Deja un comentario
