Proceso CHISTES
C<-3
C1<-3
C2<-3
C3<-3
C4<-3
C5<-3
C6<-3
C7<-3
C8<-3
C9<-3
PR<-5
MIENTRAS
(PR>=3) Hacer
SI
C>=3
ESCRIBIR
"BIENVENIDOS AL CHISTOMETRO"
ESCRIBIR
"EN PANTALLA APARECERAN 10 CHISTES Y UD LOS VA A CALIFICAR DEL 1 AL
5"
ESCRIBIR
"1. Dos ancianas que se encuentran por la calle y le dice una a la
otra:Oye,¿sabes que han subido las pensiones? Y contesta la otra:Es igual, yo
siempre follo en hoteles"
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C
FINSI
SI
C1>=3
ESCRIBIR
"2.Que le dijo una gallina deprimida a otra gallina deprimida. Que le
dijo: necesito apollo"
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C1
FinSi
SI
C2>=3
ESCRIBIR
"3.¿Qué es mejor, una pila o una suegra?,Una pila, porque por lo menos
tiene un lado positivo."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C2
FinSi
SI
C3>=3
ESCRIBIR
"4.Cuál es la diferencia entre la amante y la esposa? 30 kilos."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C3
FINSI
SI
C4>=3
ESCRIBIR
"5.Que le dice una pierna a la otra. la tercera nos ha quedado
cortita."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C4
FINSI
SI
C5>=3
ESCRIBIR
"6.¿Cuál es el mes en que las mujeres hablan menos? Febrero, porque sólo
tiene 28 días."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C5
FINSI
SI
C6>=3
ESCRIBIR
"7.Son dos borrachos en un bar y uno le dice al otro: No bebas más que te
estas volviendo borroso."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C6
FINSI
SI
C7>=3
ESCRIBIR
"8.Esto es un inglés que se cae de un barco y empieza a gritar: - Help,
help! y dice el español: -No tenemos gel, tenemos champú."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C7
FINSI
SI
C8>=3
ESCRIBIR
"9.Jaimito, te pasa algo.-Es que por poco atropello a mi suegra.Te
fallaron los frenos? -¡No, no, el acelerador."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C8
FINSI
SI
C9>=3
ESCRIBIR
"10.CUAL ES EL COLMO DE UN ENANO QUE LO PARE LA POLICIA Y LE DIGA
!ALTO¡."
ESCRIBIR
"CUANTO LE DAS DEL 1 AL 5"
LEER
C9
FINSI
PR<-(C+C1+C2+C3+C4+C5+C6+C7+C8+C9)/10
FinMientras
FinProceso
CALCULADORA (SEGÚN)
Proceso CALCULADORA
OP<-0
RP<-"SI"
N1<-0
N2<-0
RS<-0
MIENTRAS
(RP="SI") Hacer
ESCRIBIR
"BIENVENIDOS A LA CALCULADORA BASICA"
ESCRIBIR
"INGRESE EL NUMERO CORRESPONDIENTE A LA OPERACION"
ESCRIBIR
"1. SUMA"
ESCRIBIR
"2. MULTIPLICACION"
ESCRIBIR
"3. RESTA"
ESCRIBIR
"4. DIVISION"
LEER
OP
ESCRIBIR
"INGRESE EL PRIMER NUMERO"
LEER
N1
ESCRIBIR
"INGRESE EL SEGUNDO NUMERO"
LEER
N2
Segun
OP HACER
1:RS<-N1+N2
2:RS<-N1*N2
3:RS<-N1-N2
4:RS<-N1/N2
De
Otro Modo: ESCRIBIR "OPCION NO VALIDA"
FinSegun
ESCRIBIR
"RESULTADO = ", RS
ESCRIBIR
"DESEA CONTINUAR?"
LEER
RP
FinMientras
FinProceso
CALCULADORA
Proceso CALCULADORA
OP<-0
RP<-"SI"
N1<-0
N2<-0
RS<-0
MIENTRAS
(RP="SI") Hacer
ESCRIBIR
"BIENVENIDOS A LA CALCULADORA BASICA"
ESCRIBIR
"INGRESE EL NUMERO CORRESPONDIENTE A LA OPERACION"
ESCRIBIR
"1. SUMA"
ESCRIBIR
"2. MULTIPLICACION"
ESCRIBIR
"3. RESTA"
ESCRIBIR
"4. DIVISION"
LEER
OP
ESCRIBIR
"INGRESE EL PRIMER NUMERO"
LEER
N1
ESCRIBIR
"INGRESE EL SEGUNDO NUMERO"
LEER
N2
SI
OP=1 Entonces
RS<-
N1+N2
FinSi
SI
OP=2 Entonces
RS<-
N1*N2
FinSi
SI
OP=3 Entonces
RS<-
N1-N2
FinSi
SI
OP=4 Entonces
RS<-
N1/N2
FinSi
ESCRIBIR
"RESULTADO = ", RS
ESCRIBIR
"DESEA CONTINUAR?"
LEER
RP
FinMientras
FinProceso
ADIVINANZA
Proceso ADIVINANZA
NU<-0
I<-1
ESCRIBIR
"ADIVINA UN NUMERO DEL 1 AL 10"
LEER NU
SI NU=7
ENTONCES
ESCRIBIR
"WIN GANASTE"
FinSi
Mientras
(I<3 Y NU<>7) Hacer
ESCRIBIR
"FALLASTE"
ESCRIBIR
"INGRESE OTRO NUMERO"
LEER
NU
SI
NU=7 ENTONCES
ESCRIBIR
"WIN GANASTE"
FinSi
I<-I+1
Fin
Mientras
ESCRIBIR
"GAME OVER"
FinProceso
ADIVINANZA AL AZAR
Proceso ADIVINANZA2
NU<-0
I<-1
NP<-AZAR(10)
ESCRIBIR
"ADIVINA UN NUMERO DEL 1 AL 10"
LEER NU
SI
NU=NP ENTONCES
ESCRIBIR
"WIN GANASTE"
FinSi
Mientras
(I<3 Y NU<>NP) Hacer
ESCRIBIR
"FALLASTE"
ESCRIBIR
"INGRESE OTRO NUMERO"
LEER
NU
SI
NU=NP ENTONCES
ESCRIBIR
"WIN GANASTE"
FinSi
I<-I+1
Fin
Mientras
ESCRIBIR
"GAME OVER"
FinProceso
BASE DE DATOS
Proceso DATOS
RS<-
"SI"
OP<-0
NB<- " "
A<- " "
D<- " "
P<- " "
S<- " "
N1<- 0
N2<- 0
N3<- 0
N4<-
0
N5<-
0
N6<-
0
MIENTRAS
(RS="SI") Hacer
ESCRIBIR
"BIENVENIDOS AL PORTAL DE NOTAS DE COREDUCACION"
ESCRIBIR
"INGRESE EL NUMERO CORRESPONDIENTE A LA ACCION QUE QUIERA REALIZAR"
ESCRIBIR
"1. MATRICULAR UN ESTUDIANTE"
ESCRIBIR
"2. INGRESE SUS NOTAS DEL 1 CORTE"
ESCRIBIR
"3. INGRESE SUS NOTAS DEL 2 CORTE"
ESCRIBIR
"4. CONSULTE SUS NOTAS DEL 1 CORTE"
ESCRIBIR
"5. CONSULTE SUS NOTAS FINALES"
ESCRIBIR
"6. SALIR"
LEER
OP
SI
OP=1 Entonces
ESCRIBIR
"COMPLETE LOS SIGUIENTES DATOS"
ESCRIBIR
"NOMBRES: "
LEER
NB
ESCRIBIR
"APELLIDOS: "
LEER
A
ESCRIBIR
"DOCUMENTO: "
LEER
D
ESCRIBIR
"PROGRAMA: "
LEER
P
ESCRIBIR
"SEMESTRE: "
LEER
S
FinSi
SI
OP=2 Entonces
ESCRIBIR
"COMPLETE LOS SIGUIENTES DATOS"
ESCRIBIR
"MATEMATICAS BASICAS"
LEER
N1
ESCRIBIR
"INTRODUCCION A LA TECNOLOGIA"
LEER
N2
ESCRIBIR
"FUNDAMENTOS DE PROGRAMACION"
LEER
N3
FinSi
SI
OP=3 Entonces
ESCRIBIR
"COMPLETE LOS SIGUIENTES DATOS"
ESCRIBIR
"MATEMATICAS BASICAS"
LEER
N4
ESCRIBIR
"INTRODUCCION A LA TECNOLOGIA"
LEER
N5
ESCRIBIR
"FUNDAMENTOS DE PROGRAMACION"
LEER
N6
FinSi
SI
OP=4 Entonces
ESCRIBIR
" SUS NOTAS DEL PRIMER CORTE SON"
ESCRIBIR
"MATEMATICAS BASICAS"," ", N1
ESCRIBIR
"INTRODUCCION A LA TECNOLOGIA"," ", N2
ESCRIBIR
"FUNDAMENTOS DE PROGRAMACION"," ", N3
FinSi
R1<-(N1+N4/2)
R2<-(N2+N5/2)
R3<-(N3+N6/2)
SI
OP=5 ENTONCES
ESCRIBIR
"SUS NOTAS FINALES SON"
ESCRIBIR
"MATEMATICAS BASICAS"," ",R1
ESCRIBIR
"INTRODUCCION A LA TECNOLOGIA"," ",R2
ESCRIBIR
"FUNDAMENTOS DE PROGRAMACION", " ",R3
FinSi
ESCRIBIR
"DESEA CONTINUAR?"
LEER
RS
FinMientras
FinProceso
PROBLEMA MATEMATICO
Proceso PROBLEMA
AUX<-0
N1<-2
N2<-3
N3<-2
N4<-3
RU<-0
RP<-0
R<--1
ESCRIBIR
"CUANTO DA ESTA OPERACION"
MIENTRAS
(RP=RU) Hacer
ESCRIBIR
"(",N1,"*",N2,"+",N3,")+", N4,
"=?"
LEER
RU
RP<-(N1*N2+N3)+N4
AUX<-N1
N1<-N4
N4<-AUX
N2<-RP
R<-
R+1
FinMientras
ESCRIBIR
"RESPUESTAS CORRECTAS ", R
FinProceso
EXPOPNENCIAL
Proceso EXPONENCIAL
N<-0
ESCRIBIR
"INGRESE NUMERO"
LEER N
X<-0
ESCRIBIR
"INGRESE LA CANTIDAD DE NUMEROS QUE QUIERE VER"
LEER X
S<-0
RP<-1
RF<-1
PARA I<-1 HASTA X CON
PASO 1 HACER
PARA
J<-1 HASTA I CON PASO 1 Hacer
RP<- RP*N
FinPara
RF<- RF*I
S<-S+(RP/RF)
RP<-1
FinPara
ESCRIBIR S+1
FinProceso
POTENCIACION
Proceso sin_titulo
N<-0
ESCRIBIR
"INGRESE BASE"
LEER N
P<-0
ESCRIBIR
"INGRESE EXPONENTE"
LEER P
R<-1
PARA
I<-0 HASTA P CON PASO 1 Hacer
R<-
R*N
FinPara
ESCRIBIR
R
FinProceso
FACTORIAL
Proceso sin_titulo
F<-1
N<-0
ESCRIBIR
"INGRESE NUMERO"
LEER N
PARA
I<-1 HASTA N CON PASO 1 Hacer
F<-
F*I
FinPara
ESCRIBIR
F
FinProceso
EXPONENCIAL 2
Proceso EXPONENCIAL
N<-0
ESCRIBIR
"INGRESE NUMERO"
LEER N
N1<-0
ESCRIBIR
"INGRESE LA CANTIDAD DE NUMEROS QUE QUIERE VER"
LEER N1
R<-0
ESCRIBIR
N
PARA
E<-exp(N) HASTA N1 CON PASO 1 Hacer
FinPara
ESCRIBIR
E
FinProceso
SUMATORIA
Proceso sin_titulo
S<-0
N<-0
ESCRIBIR
"INGRESE NUMERO"
LEER N
PARA
I<-0 HASTA N CON PASO 1 Hacer
S<-S+I
FinPara
ESCRIBIR S
FinProceso
FIONASHI
Proceso FIONACHI
N<-0
ESCRIBIR
"INGRESE LA CANTIDAD DE NUMEROS QUE QUIERE VER"
LEER N
V1<-
1
V2<-
1
AUX<-0
Para
I<-0 HASTA N Con Paso 1 HACER
ESCRIBIR
V1
AUX<-V1+V2
V1<-V2
V2<-
AUX
Fin
Para
FinProceso
EJERCICIO
Proceso sin_titulo
N<-0
ESCRIBIR
"INGRESE NUMERO"
LEER N
Para
X<-1 Hasta 11 Con Paso 1 Hacer
N<-X+1
ESCRIBIR
N
Fin
Para
ESCRIBIR
"EJERCICIO 2"
PARA
X<-2 HASTA 11 CON PASO 2 Hacer
N<-X+2
ESCRIBIR
N
Fin
Para
ESCRIBIR
"EJERCICIO 3"
H<-2
PARA
X<-1 HASTA 11 CON PASO 2 Hacer
H<-H*2
ESCRIBIR
H
FIN
PARA
FinProceso
EJERCICIO 2
Proceso sin_titulo
X<-1
ESCRIBIR
"INGRESE NUMERO"
Mientras
(X<>0) Hacer
LEER
X
X<-
X*2
ESCRIBIR
X
Fin
Mientras
FinProceso
TABLA DE MULTIPLICAR
Proceso sin_titulo
Para
I=1 Hasta 10 Con Paso 1 Hacer
ESCRIBIR
"TABLA DE MULTIPLICACION DEL " I
PARA
J=1 HASTA 10 CON PASO 1 HACER
ESCRIBIR
I, " * ", J, " = ", J*I
FinPara
ESCRIBIR
" "
Fin
Para
FinProceso
TABLA DEL 1
Proceso sin_titulo
Para
X<-1 Hasta 10 Con Paso 1 Hacer
ESCRIBIR
"1" "*" X "=" 1*X
Fin
Para
FinProceso
1 AL 10
Proceso sin_titulo
Para
X<-1 Hasta 10 Con Paso 1 Hacer
ESCRIBIR
X
Fin
Para
FinProceso
1 AL 10 EJ 2
Proceso sin_titulo
X<- 0
Mientras (X<10) Hacer
X<-X+1
ESCRIBIR
X
Fin Mientras
FinProceso
1 AL 10 EJ 3
Proceso sin_titulo
X<-1
Repetir
ESCRIBIR
X
X<-X+1
Hasta
Que X>10
FinProceso
Proceso USUARIOS
OP<- 0
CC<-0
TC<-0
CD<-0
G<-0
PC<-0
MIENTRAS OP<>3
Hacer
ESCRIBIR
"1. ADMINISTRADOR"
ESCRIBIR
"2. USUARIO"
ESCRIBIR
"3. SALIR"
LEER
OP
SEGUN
OP
1:OPA<-0
MIENTRAS
OPA<>5 HACER
ESCRIBIR
"1. COMPRAR COMBUSTIBLES"
ESCRIBIR
"2. CONSULTAR COMBUSTIBLE"
ESCRIBIR
"3. CONSULTAR CAJA"
ESCRIBIR
"4. INICIALIZAR CAJA"
ESCRIBIR
"5. SALIR"
LEER
OPA
SEGUN
OPA
1:MIENTRAS
OPA=1 HACER
ESCRIBIR
"1. GASOLINA"
ESCRIBIR
"2. DIESEL"
ESCRIBIR
"3. SALIR"
LEER
G
ESCRIBIR
"INGRESE LA CANTIDAD A COMPRAR"
ESCRIBIR
"INGRESE PRECIO POR GALON"
LEER
PC
SI
(G*PC)<TC ENTONCES
TC<-
TC-(G*PC)
Sino
ESCRIBIR
"FONDOS INSUFICIENTES"
FinSi
FIN
MIENTRAS
2:
ESCRIBIR CP," GALONES DISPONIBLES"
3:
ESCRIBIR "TOTAL CAJA= $", TC
4:
SI TC=0 ENTONCES
ESCRIBIR
"INGRESE EL VALOR INICIAL DE LA CAJA"
LEER
TC
Sino
ESCRIBIR
"LA CAJA NO ESTA VACIA"
FinSi
5:
ESCRIBIR "GRACIAS POR SU COMPRA"
FinSegun
Fin
Mientras
2:OPU<-0
MIENTRAS
OPU<>6 HACER
ESCRIBIR
"1. ESCOGER COMBUSTIBLE"
ESCRIBIR
"2. CONSULTAR EL PRECIO"
ESCRIBIR
"3. INDICAR CANTIDAD"
ESCRIBIR
"4. CONSULTAR VALOR A PAGAR"
ESCRIBIR
"5. PAGAR"
ESCRIBIR
"6. SALIR"
LEER
OPU
SEGUN
OPU
1:
2:
3:
4:
5:
6:
FinSegun
FIN
MIENTRAS
3:
ESCRIBIR "HASTA LUEGO"
De
Otro Modo:
ESCRIBIR
"OPCION NO VALIDA"
FinSegun
LEER
OP
Limpiar
Pantalla
FinMientras
FinProceso
