|
FORO - Pascal/Turbo Pascal
|
|
|   | |
| | | | | | | | | | |
Notas Anteriores |  | Arreglo en turbo pascal gabriel mendonca (28/01/2009) | 3.133 |  |  | RE:Arreglo en turbo pascal Willy (29/01/2009) | 2.888 | | | | RE:Arreglo en turbo pascal gabriel mendonca (29/01/2009) | 2.626 |
| Autor: | | | Fecha: | 30/01/2009 06:50:51 | | URL: | http://www.geocities.com/pc32mech | | Asunto: | RE:Arreglo en turbo pascal | Gabriel, creo que no entiendo tu pregunta.
Mira, se trata de un número que vas a convertir en una cadena, o sea una cadena de caracteres tomados como si fueran letras, no números.
Str, te convierte el número en una cadena de caracteres, o sea una palabra(ya no es número)
No lo tomes como un número. Míralo como una palabra.
En el programa que te puse, el número 824252 es convertido en palabra(No número).
Metí esa palabra en la variable "Palabra", puede ser cualquier nombre para una variable string.
Length(824252,CualquierVariableString) hace que tu variable de tipo string adquiera el numero pero como una palabra, no como un número. Al fin de cuentas a nadie le interesa el valor del número, solo se busca cúantas veces se repite el númerito(En este caso cúantas veces se repite la letra '2' porque el 2 como cualquier número puede ser considerado si tu quieres como una letra.
Bueno, For I := 1 to Length(Palabra). Cuántas letras tiene "Palabra"? tiene 7. Cuéntalas.
O sea, es lo mismo que decir: For I := 1 to 7 do...
El siclo se repite 7 veces, el contador al principio tiene un valor de 0.
Yo puse: "si palabra[I]. O sea: I en el primer cilclo tiene un valor de 1, en el segundo tiene un valor de 2 etc.. hasta llegar a 7. Cuando llegue un ciclo en el que "Palabra[Cuanlquier posición]" tiene el valor '2', el contador aumentará a un número más, Este contador es el que cuenta cuántas veces aparece repetida "la letra".
Si tienes dudas, o si no te entendí, o si no me expliqué bien, solo hásmelo saber de nuevo que para eso estamos aquí, a mi me fascina el Pascal y me gusta enseñarlo.
hehe.
Str(824252,Palabra);
Contador := 0;
For I := 1 to Length(Palabra) do
if Palabra[I] = '2' then Contador := Contador + 1;
Writeln(Contador);
Es simple!
|
|
Notas Siguientes
| | | | | | RE:Arreglo en turbo pascal gabriel mendonca (30/01/2009) | 2.424 | | | | | | | RE:Arreglo en turbo pascal gabriel mendonca (30/01/2009) | 2.280 | | | | | | | RE:Arreglo en turbo pascal Willy (06/02/2009) | 3.255 | | | | | | RE:Arreglo en turbo pascal yo (25/05/2009) | 2.344 | | | | | | RE:Arreglo en turbo pascal yo (25/05/2009) | 2.312 | | | | | | | RE:Arreglo en turbo pascal yotube (12/08/2009) | 2.160 | | | | | | | | RE:Arreglo en turbo pascal yotube (14/08/2009) | 2.039 | | | | | | | | | RE:Arreglo en turbo pascal yotube (14/08/2009) | 1.865 | | | | | | | | | | RE:Arreglo en turbo pascal yotube (14/08/2009) | 1.696 | | | | | | | | RE:Arreglo en turbo pascal yotube (14/08/2009) | 2.022 | | | | | | | | | RE:Arreglo en turbo pascal yotube (14/08/2009) | 1.863 | | | RE:Arreglo en turbo pascal Emiro Irausquin (01/12/2009) | 2.204 |
 |
 |  |
RESPONDER NOTA
|
|
|
|
| |
Otras secciones relacionadas con Pascal/Turbo Pascal |
|
|
