Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Calcular la el caracter que tiene mas apariciones

Pascal/Turbo Pascal - Calcular la el caracter que tiene mas apariciones

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Calcular la el caracter que tiene mas apariciones

Publicado por Pablo (11 intervenciones) el 26/09/2016 00:19:37
Hola comunidad. Quería saber si es que me pueden dar una mano con este ejercicio:

Mostrar cual es la letra que más se repite y el porcentaje de la misma en la frase.

Desde ya muchas 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

Calcular la el caracter que tiene mas apariciones

Publicado por ramon (2158 intervenciones) el 26/09/2016 18:19:56
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
34
35
36
37
38
39
40
41
42
{Esto te servirá de ayuda  }
 
program cuentaletras;
 uses
   crt;
 var
   letras : array['A'..'Z'] of integer;
   lp, let : char;
   texto : string;
   long, letr, tot, i : integer;
 
 
  procedure entratexto(var tx : string);
  begin
     clrscr;
     writeln('   **** Entrada Del Texto ****');
     writeln;
     write(' Texto : ');
     readln(tx);
  end;
 
  begin
      entratexto(texto);
      long := length(texto);
      for i := 1 to long do
      begin
      let := upcase(texto[i]);
      letras[let] := letras[let] + 1;
      end;
      for let := 'A' to 'Z' do
      if letras[let] > letr then
      begin
         letr := letras[let];
         lp := let;
      end;
      writeln;
      writeln('   Laletra Que Mas Aparece Es [',lp,']   Total = ',letr);
      writeln('   El Procentaje Es : ',letr / long:0:2,'%');
      writeln;
      writeln('   Pulse Una Tecla');
      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
1
Comentar
sin imagen de perfil

Calcular la el caracter que tiene mas apariciones

Publicado por Pablo (11 intervenciones) el 26/09/2016 18:43:50
Está perfecto gracias :) pero me tira error cuando pongo más de una palabra. Cómo sería para poder solucionar esto ? o sea pongo mi nombre: Pablo Fabián Camacho y que me tire que la a tiene mas apariciones ?
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

Calcular la el caracter que tiene mas apariciones

Publicado por ramon (2158 intervenciones) el 26/09/2016 21:47:40
mira solo puedes entrar un texto y cuando des enter te mostrara los resultados el texto puede ser de un máximo de 255 caracteres.
Si quieres repetir mas texto sin salir asta que tu no lo desees tendrías que poner esto como te lo pongo.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program cuentaletras;
 uses
   crt;
 var
   letras : array['A'..'Z'] of integer;
   tecla, lp, let : char;
   texto : string;
   long, letr, tot, i : integer;
 
 
  procedure entratexto(var tx : string);
  begin
     clrscr;
     writeln('   **** Entrada Del Texto ****');
     writeln;
     write(' Texto : ');
     readln(tx);
  end;
 
  begin
      repeat
      entratexto(texto);
      long := length(texto);
      for i := 1 to long do
      begin
      let := upcase(texto[i]);
      letras[let] := letras[let] + 1;
      end;
      for let := 'A' to 'Z' do
      if letras[let] > letr then
      begin
         letr := letras[let];
         lp := let;
      end;
      writeln;
      writeln('   Laletra Que Mas Aparece Es [',lp,']   Total = ',letr);
      writeln('   El Procentaje Es : ',letr / long:0:2,'%');
      writeln;
      writeln('  Desea Entrar Otro Texto [S/N]');
      repeat
      tecla := upcase(readkey);
      until tecla in['S','N'];
      if tecla = 'S' then
      begin
         texto := ' ';
         letr := 0;
         fillchar(letras,sizeof(letras),0);
      end;
   until tecla = 'N';
  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
sin imagen de perfil

Calcular la el caracter que tiene mas apariciones

Publicado por Pablo (11 intervenciones) el 27/09/2016 12:35:18
Estaba buscando un programa que me lea la frase completa de una vez y que me tome todas las palabras de una sola vez por ejemplo: "soy informatico" y el resultado sería la o, que es la que mas se repite junto con el porcentaje.
De todas manera muchas gracias, tu código me va a servir para otras ocasiones :)
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