Jump to content

pseint


wena_monky

Recommended Posts

http://www.scribd.com/doc/7119127/Ejemplos-de-Algoritmos

 

El ejercicio numero 10. (ni ahí con saber como pasarlo a pseint porque para construir algoritmos no es el único ni el efectivo;el papel + lapiz pesa más y es el más usado en todos lados).

 

 

o gracias compadre te pasaste

ta wena la pagina

 

hay me voy a cabesear para pasarlo al pseint

 

= lo veo peluo que recien voye en el primer semestre y nos tan pasando puro algoritmos noma

pero me voya cabezear

vale compadre

Link to comment
Share on other sites

Proceso palindromo

 

Escribir "Preguna Numero 2"

Escribir "Verificaremos si es un Palindromo el numero ingresado"

 

leer n

aux <- n

aux2 <- 0

i <- 0

ter1 <- 0

ter2 <- 0

comprobar <-0

terminos <- 0

 

Mientras (aux <> 0) Hacer

 

aux <- trunc( aux/10 )

terminos <- ( terminos + 1 )

 

FinMientras

//si no se resta la potencia queda "descuadrada"

aux2 <- terminos - 1

 

si ( n <= 9 ) Entonces

 

Escribir "Es Palindromo"

 

sino

 

Mientras (i <= terminos) Hacer

 

ter1 <- ( n / 10^( i )) %10

ter2 <- ( n / 10^( aux2 )) %10

 

si (ter1=ter2) Entonces

i <- i+1

aux2 <- aux2 - 1

Sino

 

comprobar <- comprobar + 1

i <- terminos +1

 

FinSi

FinMientras

 

si comprobar = 0 Entonces

 

Escribir "Es Palindromo"

 

Sino

 

Escribir "No es Palindromo"

 

FinSi

FinSi

 

FinProceso

 

 

 

 

ahi lo teni exo XD

Link to comment
Share on other sites

Proceso palindromo

 

Escribir "Preguna Numero 2"

Escribir "Verificaremos si es un Palindromo el numero ingresado"

 

leer n

aux <- n

aux2 <- 0

i <- 0

ter1 <- 0

ter2 <- 0

comprobar <-0

terminos <- 0

 

Mientras (aux <> 0) Hacer

aux <- trunc( aux/10 )

terminos <- ( terminos + 1 )

 

FinMientras

//si no se resta la potencia queda "descuadrada"

aux2 <- terminos - 1

 

si ( n <= 9 ) Entonces

 

Escribir "Es Palindromo"

 

sino

 

Mientras (i <= terminos) Hacer

 

ter1 <- ( n / 10^( i )) %10

ter2 <- ( n / 10^( aux2 )) %10

 

si (ter1=ter2) Entonces

i <- i+1

aux2 <- aux2 - 1

Sino

 

comprobar <- comprobar + 1

i <- terminos +1

 

FinSi

FinMientras

 

si comprobar = 0 Entonces

 

Escribir "Es Palindromo"

 

Sino

 

Escribir "No es Palindromo"

 

FinSi

FinSi

 

FinProceso

 

 

 

 

ahi lo teni exo XD

 

 

te pasaste compadre

pero me salen que son siempre palindrome

aunque escriba kualkier kosa me sale que es palindrome

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...