viernes, 14 de agosto de 2009

PRÁCTICA NUMERO DOS


PRÁCTICA NÚMERO DOS

(Pilas y Colas)

1. Sletras Pila (28) letras

Sdigitos Pila (10) digitos

Scaracteres Pila(25) caracteres

Inicio

Sletras Array [a,z]

Sdigitos Array [0,9]

Scaracteres Array [ª, º, !, “, @, |, ·, #, $, ~, %, €, &, ¬, /, =, ¿, ‘, ¡, ¿, /, *, -, +, Ç]

Escriba “Digite la cantidad de caracteres, números o digitos a ingresar:”

Lea num

contador = 1

Mientras contador <= num Haga

Escriba “Presione una tecla:”
Lea x

Si x = Sletras

STACK_FULL (Sletras) es falso

PUSH (Sletras,x)

Si no

STACK_FULL (Scaracteres) es falso

PUSH (Scaracteres, x)

Si x = Sdigitos

STACK_FULL (Sdigitos) es falso

PUSH (Sdigitos,x)

contador = contador + 1

Fin si

Fin

STAK_FULL (Sletras)

Si Sletras [top[Sletras]] = Maximum (Sletras)

Entonces Retorne Verdadero

SI no Retorne Falso

STAK_FULL (Scaracteres)

Si Scaracteres [top[Scaracteres]] = Maximum (Scaracteres)

Entonces Retorne Verdadero

SI no Retorne Falso

STAK_FULL (Sdigitos)

Si Sdigitos [top[Sdigitos]] = Maximum (Sdigitos)

Entonces Retorne Verdadero

SI no Retorne Falso

PUSH (Sletras,x)

Top [Sletras] <- top [Sletras] + 1

Sletras [top[Sletras]] <- x

PUSH (Scaracteres,x)

Top [Scaracteres] <- top [Scaracteres] + 1

Scaracteres [top[Scaracteres]] <- x

PUSH (Sdigitos,x)

Top [Sdigitos] <- top [Sdigitos] + 1

Sdigitos [top[Sdigitos]] <- x