Pascal/Turbo Pascal - indicar el numero de letras de una frase

   
Vista:
Imágen de perfil de Maick

indicar el numero de letras de una frase

Publicado por Maick (38 intervenciones) el 23/05/2017 18:54:01
como puedo realizar un programa en pascal que me pida una frace y me muestre en pantalla con cuantas letras se escribe.
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
Imágen de perfil de kip

indicar el numero de letras de una frase

Publicado por kip (3 intervenciones) el 24/05/2017 06:35:22
Hola, he preparado algo muy simple a ver si te sirve:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program ContarLetras;
Uses sysutils;
Var i, numLetras: Integer; frase, mostrar: String;
Begin
    frase := 'Hola soy la frase';
    numLetras := 0;
    for i:= 1 to length(frase) do
        begin
            if (frase[i] <> ' ') then
                Inc(numLetras);
        end;
    mostrar:=concat('La frase "', frase, '" ', ' tiene ', IntToStr(numLetras), ' letras');
    writeln(mostrar);
End.

No tomo en cuenta los espacios y ademas le doy un valor estatico a la variable frase, tu podrias usar read() o readln().

Te sirve ?
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
Imágen de perfil de Maick

indicar el numero de letras de una frase

Publicado por Maick (38 intervenciones) el 24/05/2017 16:27:28
Te lo agradezco, el código quedaría así.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program ContarLetras;
Uses sysutils;
Var i, numLetras: Integer; frase, mostrar: String;
Begin
Write('Ingrese una Frase') ;Readln(frase);
 
    numLetras := 0;
    for i:= 1 to length(frase) do
        begin
            if (frase[i] <> ' ') then
                Inc(numLetras);
        end;
    mostrar:=concat('La frase "', frase, '" ', ' tiene ', IntToStr(numLetras), ' letras');
    writeln(mostrar);
Readln;
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
Revisar política de publicidad