Pascal/Turbo Pascal - Contas letras

 
Vista:
sin imagen de perfil

Contas letras

Publicado por Pablo (11 intervenciones) el 29/09/2016 02:05:22
Hola ! quería saber cómo puedo hacer para contar las letras de una cadena.
Por ejemeplo si ingreso: ('hola usuario') me devuelva
h: 1
o: 2
l: 1
a: 2
u: 2

etc, o sea que me devuelva la cantidad de veces que cada letra aparece dentro de una cadena, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Contas letras

Publicado por Alfredo (10 intervenciones) el 29/09/2016 02:26:31
Pues empieza con un
Program (y el nombre de tu programa);
uses crt;
etc
etc


recuerda que ACA NO SE HACEN TAREAS, se te puede apoyar en una duda en concreto que tengas, pero no pidas que hagan todo por ti, eso no es propio de un programador, en vez de hacerte un bien, se te hace un mal.

SUERTE !!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Contas letras

Publicado por Pablo (11 intervenciones) el 29/09/2016 02:57:11
NO ES UNA TAREA.
Es solo esto que no entiendo lo que me pide el ejercicio. Gracias.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Contas letras

Publicado por ramon (5 intervenciones) el 29/09/2016 22:14:03
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
{Mira a ver si esto te ayuda }
 
program cuentaletras;
 uses
   crt;
  type
     numletras = array['A'..'Z'] of integer;
   var
     letra : numletras;
     texto : string;
     cont : integer;
     let : char;
   begin
      clrscr;
      fillchar(letra,sizeof(letra),0);
      write(' Entre Cadena : ');
      readln(texto);
      for cont := 1 to length(texto) do
      letra[upcase(texto[cont])] := letra[upcase(texto[cont])] + 1;
      clrscr;
      writeln(' **** Resultados ****');
      writeln;
      for let := 'A' to 'Z' do
      if letra[let] > 0 then
      writeln(' ',let,' = ',letra[let]);
      writeln;
      writeln('  >>>> El Texto Fue <<<<');
      writeln('  ',texto);
      readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de kip
Val: 20
Ha aumentado 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Contas letras

Publicado por kip (3 intervenciones) el 29/09/2016 06:00:06
Hola, aqui te dejo algo que quizas te sirva:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
PROGRAM LetrasPalabras;
USES Crt;
VAR num, i, j : Integer;
VAR palabra, letra: string;
BEGIN
WRITE('Introduzca una palabra: ');
READLN(palabra);
FOR i := 1 to length(palabra) DO
    BEGIN
    letra := palabra[i];
    num := 0;
    FOR j := 1 to length(palabra) DO
        BEGIN
        IF (letra = palabra[j]) and (palabra[j] <> ' ') THEN
           num += 1;
        END;
    IF (letra <> ' ') THEN
       WRITELN(letra, ' : ', num);
    END;
READLN();
ClrScr;
END.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Contas letras

Publicado por Pablo (11 intervenciones) el 01/10/2016 04:21:35
muchas gracias :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar