SEMANA # 31

SUICHES O INTERRUPTORES

Los suiches o interruptores son capos de memoria que puede tomar los valores falso o verdadero; si o no; 1 ó 0; a lo largo de la ejecución de un programa y permita comunicar información de una parte a otra del mismo programa
Los suiches o interruptores tienen gran aplicación en la programación y son utilizados para

1- Ejecutar alternativamente acciones dentro de un ciclo
2- Recordar en determinado punto del programa la ocurrencia o no de un suceso anterior
3- Decidir en decisiones alternativas la accion que se debe segir

EJM

ENTERO CN, CT
REAL PR, ST, I, TP, MG
CADENA [20] NM
CARACTER R, S, N

INICIO

R <- 'S'
CT <- 0
MG <- 0

MIENTRAS (R='S') HAGA

ESCRIBA "Nombre"
LEA NM
LLAMAR NUEVA_LINEA
ESCRIBA "Precio del producto"
LEA PR
LLAMAR NUEVA_LINEA
ESCRIBA "Cantidad"
LEA CN
LLAMAR NUEVA_LINEA

ST <- CN*PR 
I <- ST*0.16
TP <- ST+I

MG <- MG+ST

ESCRIBA "El subtotal es", ST
LLAMAR NUEVA_LINEA
ESCRIBA "El iva es", I
LLAMAR NUEVA_LINEA
ESCRIBA "El total a pagar es", TP
LLAMAR NUEVA_LINEA

CT <- CT+1


ESCRIBA " Desea continuar S/N  "
LEA R 
LLAMAR NUEVA_LINEA

FIN MIENTRAS

ESCRIBA "EL MONTO GLOBAL ES", MG
LLAMAR NUEVA_LINEA
FIN


TALLER CEUDO-CODIGO

1.       Leer un numero entero y determinar cuántos dígitos tiene

N <- numero (ENTERO)

Ct <- contador (ENTERO)

ENTERO CT,  N

INICIO

ESCRIBA " NUMERO"
LEA N
LLAMAR NUEVA_LINEA

MIENTRAS (N <> 0) HAGA

CT <- N/10

ESCRIBA " NUMERO"
LEA N
LLAMAR NUEVA_LINEA


 ESCRIBA "LOS DIGITOS SON: ", CT
 LLAMAR NUEVA_LINEA

FIN MIENTRAS

FIN

2.       Leer dos números enteros y mostrar todos los enteros comprendidos entre el menor y el mayor.

N1 <- NUMERO UNO (ENTERO)

N2 <- NUMERO DOS (ENTERO)

AX <- AUXILIAR (ENTERO)

ENTERO N1,N2,AX

INICIO

AX <- 0

ESCRIBA "DIGA EL PRIMER NUMERO "
LEA N1
LLAMAR NUEVA_LINEA

ESCRIBA "DIGA EL SEGUNDO NUMERO "
LEA N2
LLAMAR NUEVA_LINEA

SI (N1<N2) ENTONCES
AX <-N1

MIENTRAS ( AX <= N2) HAGA

ESCRIBA AX
AX <- AX+1
LLAMAR NUEVA_LINEA
FIN MIENTRAS

FIN SI

SI (N2<N1) ENTONCES
AX <- N2

MIENTRAS ( AX <= N2) HAGA

ESCRIBA AX
AX <- AX+1
LLAMAR NUEVA_LINEA
FIN MIENTRAS

FIN SI

SI (N1=N2) ENTONCES

ESCRIBA " SON IGUALES "

FIN SI
FIN

3.       leer dos números enteros y determinar cuál de los dos tiene mayor dígitos

N1 <- NUMERO UNO (ENTERO)

N2 <- NUMERO DOS (ENTERO)

D1 <- DIGITOS UNO (ENTERO)

D2 <- DIGITOS DOS (ENTERO)

R <- RESPUESTA (CARÁCTER)

S-N <- SI-NO (CARÁCTER)

INICIO

r <- 's'

LEA N1, N2

MIENTRAS (r= 's') HAGA

D1 <- N1/10

D2 <- N2/10

SI (D1 < D2) ENTONCES

Escriba " tiene más dígitos", N2

SINO

SI (D2 < D1) ENTONCES

Escriba  " tiene más dígitos ", N1

SINO

SI (D2=D1) ENTONCES

Escriba " son de iguales dígitos"

FIN SI

FIN SI

FIN SI

Escriba " desea continuar s/n"

LEA R

FIN

4.       Leer números enteros hasta que digiten 0 y determine a cuanto es igual el promedio de los numero leídos que hayan sido positivos

N <- NUMEROS (ENTERO)

CT <- CONTADOR (ENTERO)

AC <-ACUMULADOR (ENTERO)

PP <- PROMEDIO POSITIVOS (REAL)

INICIO

Ct <- 0

Ac <- 0

LEA n

MIENTRAS (n<>0) HAGA

SI (n>0) ENTONCES

Ac <- ac + 1

SINO

FIN SI

Ct <- ct+1

LEA n

FIN MIENTRAS

Pp <- ac/ct

ESCRIBA  "", pp

FIN