sábado, 16 de diciembre de 2017
Elaborar un algoritmo que Lea el nombre y la edad de los alumnos de la institución.EN LPP
//Elaborar un algoritmo que Lea el nombre y la edad de los alumnos de la institución.EN LPP
//Se debe imprimir el nombre y la edad del alumno mayor y el nombre y la edad del alumno menor
Cadena [50] nombre, nmayor, nmenor
Entero edad, edadmayor, edadmenor, nalumnos, i
INICIO
Escriba "Ingrese numero de alumnos: "
Lea nalumnos
Escriba "Ingrese Nombre: "
Lea nombre
Escriba "Ingrese Edad: "
Lea edad
edadmayor<-edad
edadmenor<-edad
nmayor<-nombre
nmenor<-nombre
Para i<-1 Hasta nalumnos-1 Haga
Escriba "Ingrese Nombre: "
Lea nombre
Escriba "Ingrese Edad: "
Lea edad
Si edad>edadmayor Entonces
edadmayor<-edad
nmayor<-nombre
SiNo
Si edad<edadmenor Entonces
edadmenor<-edad
nmenor<-nombre
Fin Si
Fin Si
Fin Para
Escriba "El alumno menor es: ", nmenor, ", La edad: ", edadmenor
Llamar nueva_linea
Escriba "El alumno mayor es: ", nmayor, ", La edad: ", edadmayor
FIN
//Se debe imprimir el nombre y la edad del alumno mayor y el nombre y la edad del alumno menor
Cadena [50] nombre, nmayor, nmenor
Entero edad, edadmayor, edadmenor, nalumnos, i
INICIO
Escriba "Ingrese numero de alumnos: "
Lea nalumnos
Escriba "Ingrese Nombre: "
Lea nombre
Escriba "Ingrese Edad: "
Lea edad
edadmayor<-edad
edadmenor<-edad
nmayor<-nombre
nmenor<-nombre
Para i<-1 Hasta nalumnos-1 Haga
Escriba "Ingrese Nombre: "
Lea nombre
Escriba "Ingrese Edad: "
Lea edad
Si edad>edadmayor Entonces
edadmayor<-edad
nmayor<-nombre
SiNo
Si edad<edadmenor Entonces
edadmenor<-edad
nmenor<-nombre
Fin Si
Fin Si
Fin Para
Escriba "El alumno menor es: ", nmenor, ", La edad: ", edadmenor
Llamar nueva_linea
Escriba "El alumno mayor es: ", nmayor, ", La edad: ", edadmayor
FIN
COLORES EN LPP
COLORES EN LPP (NUMERO)
Entero i
Inicio
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(1)
Llamar Posicionar_Cursor(i, 1)
Escriba " "
Llamar Posicionar_Cursor(5, 1)
Escriba " 1 = Azul Oscuro."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(2)
Llamar Posicionar_Cursor(i, 2)
Escriba " "
Llamar Posicionar_Cursor(5, 2)
Escriba " 2 = Verde."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(3)
Llamar Posicionar_Cursor(i, 3)
Escriba " "
Llamar Posicionar_Cursor(5, 3)
Escriba " 3 = Verde Azulado."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(4)
Llamar Posicionar_Cursor(i, 4)
Escriba " "
Llamar Posicionar_Cursor(5, 4)
Escriba " 4 = Granate."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(5)
Llamar Posicionar_Cursor(i, 5)
Escriba " "
Llamar Posicionar_Cursor(5, 5)
Escriba " 5 = Morado."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(6)
Llamar Posicionar_Cursor(i, 6)
Escriba " "
Llamar Posicionar_Cursor(5, 6)
Escriba " 6 = Olivo."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(7)
Llamar Posicionar_Cursor(i, 7)
Escriba " "
Llamar Posicionar_Cursor(5, 7)
Escriba " 7 = Plateado / Gris Claro."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(8)
Llamar Posicionar_Cursor(i, 8)
Escriba " "
Llamar Posicionar_Cursor(5, 8)
Escriba " 8 = Gris."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(9)
Llamar Posicionar_Cursor(i, 9)
Escriba " "
Llamar Posicionar_Cursor(5, 9)
Escriba " 9 = Azul."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(10)
Llamar Posicionar_Cursor(i, 10)
Escriba " "
Llamar Posicionar_Cursor(5, 10)
Escriba " 10 = Lima / Verde Claro."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(11)
Llamar Posicionar_Cursor(i, 11)
Escriba " "
Llamar Posicionar_Cursor(5, 11)
Escriba " 11 = Aguamarina."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(12)
Llamar Posicionar_Cursor(i, 12)
Escriba " "
Llamar Posicionar_Cursor(5, 12)
Escriba " 12 = Rojo."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(13)
Llamar Posicionar_Cursor(i, 13)
Escriba " "
Llamar Posicionar_Cursor(5, 13)
Escriba " 13 = Fucsia."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(14)
Llamar Posicionar_Cursor(i, 14)
Escriba " "
Llamar Posicionar_Cursor(5, 14)
Escriba " 14 = Amarillo."
Fin Para
Para i <- 1 Hasta 80 Haga
Llamar Color_Fondo(15)
Llamar Posicionar_Cursor(i, 15)
Escriba " "
Llamar Posicionar_Cursor(5, 15)
Escriba " 15 = Blanco."
Fin Para
Llamar Color_Texto(7)
Llamar Posicionar_Cursor(5, 17)
Escriba " El Color Negro corresponde al Numero 0 y 16."
Llamar Posicionar_Cursor(5, 18)
Escriba " Al partir del Numero 17 vuelve repite los mismos Colores en"
Llamar Posicionar_Cursor(5, 19)
Escriba " antes descritos. Las Dimensiones respecto a las coordenadas son:"
Llamar Posicionar_Cursor(5, 21)
Escriba " Ancho: 80 Caracteres."
Llamar Posicionar_Cursor(5, 22)
Escriba " Alto: 25 Lineas."
Llamar Posicionar_Cursor(5, 24)
Escriba " FRANK - PERÚ."
Fin
MATRIZ EN LPP SU FUNCION DEL SOFTWARE ES:
/*MATRIZ EN LPP SU FUNCION DEL SOFTWARE ES:
Si desea ordenar la matriz presione: 1.
Sumar matriz: 2.
Sumar diagonal principal: 3.
Encontrar la posicion del mayor y el menor: 4.
mostrar matriz: 5.
*/
arreglo [3,3] de entero m
entero f, c, j, i, mayorpc, mayorpf,menorpc, menorpf, sumae, sumad, mayor, menor, temp, opcion, filas, columnas
inicio
//llenado de matriz//
escriba "Ingrese el numero de filas deseadas: "
lea filas
llamar nueva_linea
escriba "Ingrese el numero de columnas deseadas: "
lea columnas
llamar nueva_linea
escriba "Ingrese numeros en la matriz: "
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
lea m [f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
//opciones del usuario//
escriba "Si desea ordenar la matriz presione: 1."
llamar nueva_linea
escriba "Sumar matriz: 2."
llamar nueva_linea
escriba "Sumar diagonal principal: 3."
llamar nueva_linea
escriba "Encontrar la posicion del mayor y el menor: 4."
llamar nueva_linea
escriba "mostrar matriz: 5."
llamar nueva_linea
sumad<-0
sumae<-0
temp <-0
lea opcion
caso opcion
1:
//ordenar matriz//
Para i<- 1 hasta filas haga
Para j<- 1 hasta columnas haga
Para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
Si m[f,c] > m[f,c + 1] entonces
Temp<- m[f,c + 1]
m[f,c + 1]<- m[f,c]
m[f,c]<- Temp
FIN si
FIN para
Si (c = columnas) y (f= filas) Entonces
Si m[f,c] > m[f + 1,1] entonces
Temp<- m[f,c]
m[f,c]<- m[f + 1, 1]
m[f + 1,1]<- Temp
FIN si
FIN si
FIN para
FIN para
FIN para
//mostrar matriz//
escriba "matriz ordenada: "
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
escriba m[f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
2: //suma elementos//
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
sumae<- sumae + m[f,c]
fin para
fin para
escriba "la suma de los elementos es: ", sumae
3:// suma diagonal principal//
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
si f = c entonces
sumad<-sumad + m[f,c]
fin si
fin para
fin para
escriba "la suma de la diagonal principal es: ", sumad
4: // posicion mayor y menor//
mayor<-m[1,1]
menor<-m[1,1]
mayorpf<-1
mayorpc<-1
menorpf<-1
menorpc<-1
Para F <- 1 hasta filas haga
Para C <- 1 hasta columnas haga
Si m [f,c]> mayor entonces
mayor<-m[f,c]
mayorpf<-f
mayorpc<-c
sino
si m[f,c] < menor entonces
menor<-m[f,c]
menorpf<-f
menorpc<-c
FiN si
Fin si
FIN para
FIN para
Escriba "el numero mayor es: ", Mayor, " y se encuentra en la posicion: ", "fila: ", mayorpf,", columna: " ,mayorpc
llamar nueva_linea
Escriba "el numero menor es: ", Menor, " y se encuentra en la posicion: ", "fila: ", menorpf,", columna: ", menorpc
5: //mostrar matriz//
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
escriba m[f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
fin caso
Fin
Si desea ordenar la matriz presione: 1.
Sumar matriz: 2.
Sumar diagonal principal: 3.
Encontrar la posicion del mayor y el menor: 4.
mostrar matriz: 5.
*/
arreglo [3,3] de entero m
entero f, c, j, i, mayorpc, mayorpf,menorpc, menorpf, sumae, sumad, mayor, menor, temp, opcion, filas, columnas
inicio
//llenado de matriz//
escriba "Ingrese el numero de filas deseadas: "
lea filas
llamar nueva_linea
escriba "Ingrese el numero de columnas deseadas: "
lea columnas
llamar nueva_linea
escriba "Ingrese numeros en la matriz: "
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
lea m [f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
//opciones del usuario//
escriba "Si desea ordenar la matriz presione: 1."
llamar nueva_linea
escriba "Sumar matriz: 2."
llamar nueva_linea
escriba "Sumar diagonal principal: 3."
llamar nueva_linea
escriba "Encontrar la posicion del mayor y el menor: 4."
llamar nueva_linea
escriba "mostrar matriz: 5."
llamar nueva_linea
sumad<-0
sumae<-0
temp <-0
lea opcion
caso opcion
1:
//ordenar matriz//
Para i<- 1 hasta filas haga
Para j<- 1 hasta columnas haga
Para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
Si m[f,c] > m[f,c + 1] entonces
Temp<- m[f,c + 1]
m[f,c + 1]<- m[f,c]
m[f,c]<- Temp
FIN si
FIN para
Si (c = columnas) y (f= filas) Entonces
Si m[f,c] > m[f + 1,1] entonces
Temp<- m[f,c]
m[f,c]<- m[f + 1, 1]
m[f + 1,1]<- Temp
FIN si
FIN si
FIN para
FIN para
FIN para
//mostrar matriz//
escriba "matriz ordenada: "
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
escriba m[f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
2: //suma elementos//
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
sumae<- sumae + m[f,c]
fin para
fin para
escriba "la suma de los elementos es: ", sumae
3:// suma diagonal principal//
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
si f = c entonces
sumad<-sumad + m[f,c]
fin si
fin para
fin para
escriba "la suma de la diagonal principal es: ", sumad
4: // posicion mayor y menor//
mayor<-m[1,1]
menor<-m[1,1]
mayorpf<-1
mayorpc<-1
menorpf<-1
menorpc<-1
Para F <- 1 hasta filas haga
Para C <- 1 hasta columnas haga
Si m [f,c]> mayor entonces
mayor<-m[f,c]
mayorpf<-f
mayorpc<-c
sino
si m[f,c] < menor entonces
menor<-m[f,c]
menorpf<-f
menorpc<-c
FiN si
Fin si
FIN para
FIN para
Escriba "el numero mayor es: ", Mayor, " y se encuentra en la posicion: ", "fila: ", mayorpf,", columna: " ,mayorpc
llamar nueva_linea
Escriba "el numero menor es: ", Menor, " y se encuentra en la posicion: ", "fila: ", menorpf,", columna: ", menorpc
5: //mostrar matriz//
llamar nueva_linea
para f<- 1 hasta filas haga
para c<- 1 hasta columnas haga
escriba m[f,c]
si c=columnas entonces
llamar nueva_linea
fin si
fin para
fin para
fin caso
Fin
CALCULAR AREA EN LPP
/*
SE TIENE UN TERRENO RECTANGULATR DE MEDIFAS LADO1 (FRENTE)7Y LADO2 (FONDO).
1) CALCULAR EL AREA DEL TERRENO
2) CALCULAR EL PERIMETRO DEL TERRENO
-----
EL PROPIETARIO DEL TERRENO DESEA SEMBRAR LIMON O MANGO.
SE SABE QUE LA PLATA DEL LIMON EN EDAD ADULTA OCUPA
6 METROS CUADRADOS DE AREA, Y LA PLANTA DE MANGO 12 METROS CUADRADOS.
3)CUANTAS PLANTAS DE LIMON PUEDE SEMBRAR EN EL TERRENO?
4)CUANTAS PLANTAS DE MANGO PUEDE SEMBRAR?
EN LPP
-----
AUTOR: FRANK PIÑIN ATO
FECHA : MIE. 22/11/2017 - 08:20AM
*/
// ---------VARIABLES DE MODULO PRINCIPAL (GLOBALES)-----
REAL LADO1, LADO2,AREAPLANTA,AR
//----SUBRUTINAS: FUNCIONES Y PROCEDIMIENTOS ---
//AREA
FUNCION AREA(REAL LADO1, REAL LADO2): REAL
REAL A // VARIABLE LOCAL INTERNA
INICIO
A <- LADO1*LADO2
RETORNE A // A ALMACENA EL AREA
FIN
//PERIMETRO
FUNCION PERIMETRO(REAL LADO1, REAL LADO2): REAL
REAL P // VARIABLE LOCAL INTERNA
INICIO
P <- (LADO1*2)+(LADO2*2)
RETORNE P // P ALMACENA EL PERIMETRO
FIN
//CALCULAR TODO TIPO DE PLANTA -
FUNCION NUM_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA): ENTERO
//DEVUELVE EL NUMERO DE PLANTAS A SEMBRAR DE CUALQUIER TIPO SEGUN EL AREA QUE OCUPE LA PLANTA.
INICIO
RETORNE (LADO1*LADO2)/AREAPLANTA
FIN
//COSTO ANUAL DE LOS FERTILIZANTES
FUNCION COST_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA,REAL COSTO): REAL
INICIO
RETORNE ((LADO1*LADO2)/AREAPLANTA)*450
FIN
//-----------------------------------------------------
// --- MODULO PRINCIPAL ----
INICIO
ESCRIBA "APLICACION TERRENO"
LLAMAR NUEVA_LINEA()
ESCRIBA "========================="
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL LADO 1 DEL TERRENO (FRENTE):"
LEA LADO1
ESCRIBA "INGRESE EL LADO 2 DEL TERRENO (FONDO):"
LEA LADO2
//INVOCANDO A LA FUNCION QUE CALCULA EL AREA
//FORMA 1
AR <- AREA(LADO1, LADO2)
ESCRIBA "EL AREA DEL TERRENO ES:", AR
//FORMA 2
LLAMAR NUEVA_LINEA()
ESCRIBA "EL AREA DEL TERRENO ES :", AREA (LADO1 , LADO2)
// INVOCAR PERIMETRO
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PERIMETRO DEL TERRENO ES:", PERIMETRO (LADO1, LADO2)
//INVOCAR NUMERO DE PLANTAS
LLAMAR NUEVA_LINEA()
ESCRIBA "LAS PLANTAS QUE CABEN SON :", NUM_PLANTAS(LADO1,LADO2,AREAPLANTA)
//INVOCAR COSTO LIMON
LLAMAR NUEVA_LINEA()
ESCRIBA "EL COSTO DEL LIMON ES :", COST_PLANTAS(LADO1,LADO2,6,450)
// INVOCAR COSTO MANGO
LLAMAR NUEVA_LINEA()
ESCRIBA "EL COSTO DEL MANGO ES :", COST_PLANTAS(LADO1,LADO2,12,380)
FIN
SE TIENE UN TERRENO RECTANGULATR DE MEDIFAS LADO1 (FRENTE)7Y LADO2 (FONDO).
1) CALCULAR EL AREA DEL TERRENO
2) CALCULAR EL PERIMETRO DEL TERRENO
-----
EL PROPIETARIO DEL TERRENO DESEA SEMBRAR LIMON O MANGO.
SE SABE QUE LA PLATA DEL LIMON EN EDAD ADULTA OCUPA
6 METROS CUADRADOS DE AREA, Y LA PLANTA DE MANGO 12 METROS CUADRADOS.
3)CUANTAS PLANTAS DE LIMON PUEDE SEMBRAR EN EL TERRENO?
4)CUANTAS PLANTAS DE MANGO PUEDE SEMBRAR?
EN LPP
-----
AUTOR: FRANK PIÑIN ATO
FECHA : MIE. 22/11/2017 - 08:20AM
*/
// ---------VARIABLES DE MODULO PRINCIPAL (GLOBALES)-----
REAL LADO1, LADO2,AREAPLANTA,AR
//----SUBRUTINAS: FUNCIONES Y PROCEDIMIENTOS ---
//AREA
FUNCION AREA(REAL LADO1, REAL LADO2): REAL
REAL A // VARIABLE LOCAL INTERNA
INICIO
A <- LADO1*LADO2
RETORNE A // A ALMACENA EL AREA
FIN
//PERIMETRO
FUNCION PERIMETRO(REAL LADO1, REAL LADO2): REAL
REAL P // VARIABLE LOCAL INTERNA
INICIO
P <- (LADO1*2)+(LADO2*2)
RETORNE P // P ALMACENA EL PERIMETRO
FIN
//CALCULAR TODO TIPO DE PLANTA -
FUNCION NUM_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA): ENTERO
//DEVUELVE EL NUMERO DE PLANTAS A SEMBRAR DE CUALQUIER TIPO SEGUN EL AREA QUE OCUPE LA PLANTA.
INICIO
RETORNE (LADO1*LADO2)/AREAPLANTA
FIN
//COSTO ANUAL DE LOS FERTILIZANTES
FUNCION COST_PLANTAS(REAL LADO1, REAL LADO2, REAL AREAPLANTA,REAL COSTO): REAL
INICIO
RETORNE ((LADO1*LADO2)/AREAPLANTA)*450
FIN
//-----------------------------------------------------
// --- MODULO PRINCIPAL ----
INICIO
ESCRIBA "APLICACION TERRENO"
LLAMAR NUEVA_LINEA()
ESCRIBA "========================="
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE EL LADO 1 DEL TERRENO (FRENTE):"
LEA LADO1
ESCRIBA "INGRESE EL LADO 2 DEL TERRENO (FONDO):"
LEA LADO2
//INVOCANDO A LA FUNCION QUE CALCULA EL AREA
//FORMA 1
AR <- AREA(LADO1, LADO2)
ESCRIBA "EL AREA DEL TERRENO ES:", AR
//FORMA 2
LLAMAR NUEVA_LINEA()
ESCRIBA "EL AREA DEL TERRENO ES :", AREA (LADO1 , LADO2)
// INVOCAR PERIMETRO
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PERIMETRO DEL TERRENO ES:", PERIMETRO (LADO1, LADO2)
//INVOCAR NUMERO DE PLANTAS
LLAMAR NUEVA_LINEA()
ESCRIBA "LAS PLANTAS QUE CABEN SON :", NUM_PLANTAS(LADO1,LADO2,AREAPLANTA)
//INVOCAR COSTO LIMON
LLAMAR NUEVA_LINEA()
ESCRIBA "EL COSTO DEL LIMON ES :", COST_PLANTAS(LADO1,LADO2,6,450)
// INVOCAR COSTO MANGO
LLAMAR NUEVA_LINEA()
ESCRIBA "EL COSTO DEL MANGO ES :", COST_PLANTAS(LADO1,LADO2,12,380)
FIN
/*
EJEMPLOS VARIOIOS DE PROCEDIMIENTOS EN LPP
1)MOSTTRAR EN PANTALLA EL SALUDO HOLA
2) MOSTRAR "N" VECES HOLA(COMO INDIQUE EL USUARIO)
3)DIBUJAR LINEAS:
-CON TAMAÑO VARIABLE
-CON COLOR VARIABLE
-CON UN CARACTER VARIABLE
4)DIBUJAR UN RECUADRO(MARCO)EN PANTALLA.
-CON COLOR
-DE TAMAÑO DE VARIABLE
*/
//----VARIANBLES DEL MODULO PRINCIPAL ---
ENTERO N
//---SUBRUTINAS---
PROCEDIMIENTO SALUDO
INICIO
LLAMAR COLOR_TEXTO(10)
ESCRIBA "HOLA"
FIN
//--------------
PROCEDIMIENTO SALU2(ENTERO N)
// N VA A CONTENER CANTIDAD DE VVECES A REPETIR
ENTERO J
INICIO
LLAMAR COLOR_TEXTO(11)
PARA J <-1 HASTA N HAGA
LLAMAR NUEVA_LINEA()
ESCRIBA J,"-HOLA"
FIN PARA
FIN
//------------------
PROCEDIMIENTO LINEA(ENTERO N,ENTERO COLOR, CARACTER SIMBOLO)
ENTERO J
INICIO
LLAMAR COLOR_TEXTO(COLOR)
PARA J <-1 HASTA N HAGA
ESCRIBA SIMBOLO
FIN PARA
LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO
FIN
//-------------
PROCEDIMIENTO CUADRO(ENTERO X1 ,ENTERO Y1 ,ENTERO X2 , ENTERO Y2 , ENTERO COLOR)
ENTERO J
INICIO
//DIBUJANDOI LAS LINEAS HORIZONTALAES
LLAMAR COLOR_TEXTO(COLOR)
PARA J <-X1 HASTA X2 HAGA
LLAMAR POSICIONAR_CURSOR(J,Y1)
ESCRIBA CAR(205)
LLAMAR POSICIONAR_CURSOR(J,Y2)
ESCRIBA CAR(205)
FIN PARA
//DIBUJANDOI LAS LINEAS VERTICALES
PARA J <-Y1 HASTA Y2 HAGA
LLAMAR POSICIONAR_CURSOR(X1,J)
ESCRIBA CAR (186)
LLAMAR POSICIONAR_CURSOR(X2,J)
ESCRIBA CAR (186)
FIN PARA
//LAS ESQUINAS
LLAMAR POSICIONAR_CURSOR(X1,Y1)
ESCRIBA CAR (201)
LLAMAR POSICIONAR_CURSOR(X2,Y1)
ESCRIBA CAR (187)
//--
LLAMAR POSICIONAR_CURSOR(X1,Y2)
ESCRIBA CAR (200)
LLAMAR POSICIONAR_CURSOR(X2,Y2)
ESCRIBA CAR (188)
//---
LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO
FIN
//---MODULO PRINCIPAL--
INICIO
LLAMAR CUADRO (1,1,80,22,9)//9 COLOR
ESCRIBA "PROCEDIMIENTO"
LLAMAR NUEVA_LINEA()
ESCRIBA "============="
LLAMAR NUEVA_LINEA()
LLAMAR SALUDO
LLAMAR NUEVA_LINEA()
ESCRIBA "============="
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LA CANTIDAD DE N:"
LEA N
LLAMAR SALU2(N)
LLAMAR NUEVA_LINEA()
ESCRIBA "PULSE CUALQUIER TECLA PARA CONTINUAR..."
LLAMAR OBTENER_CARACTER()// PIDE QUE SE PULSE LA TECLA
LLAMAR LIMPIAR_PANTALLA()
LLAMAR CUADRO (10,5,50,12,14)//14 COLOR
LLAMAR LINEA(5, 11,'=')//(5) SIGNOS IGUALES,COLOR,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(20, 12,'-')//(20) SIGNOS IGUALES,COLOR,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(50, 13,CAR (177))//(50) SIGNOS IGUALES,COLOR ,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(70, 10,CAR (219))//(70) SIGNOS IGUALES,COLOR ,CARACTER
LLAMAR OBTENER_CARACTER()
FIN
EJEMPLOS VARIOIOS DE PROCEDIMIENTOS EN LPP
1)MOSTTRAR EN PANTALLA EL SALUDO HOLA
2) MOSTRAR "N" VECES HOLA(COMO INDIQUE EL USUARIO)
3)DIBUJAR LINEAS:
-CON TAMAÑO VARIABLE
-CON COLOR VARIABLE
-CON UN CARACTER VARIABLE
4)DIBUJAR UN RECUADRO(MARCO)EN PANTALLA.
-CON COLOR
-DE TAMAÑO DE VARIABLE
*/
//----VARIANBLES DEL MODULO PRINCIPAL ---
ENTERO N
//---SUBRUTINAS---
PROCEDIMIENTO SALUDO
INICIO
LLAMAR COLOR_TEXTO(10)
ESCRIBA "HOLA"
FIN
//--------------
PROCEDIMIENTO SALU2(ENTERO N)
// N VA A CONTENER CANTIDAD DE VVECES A REPETIR
ENTERO J
INICIO
LLAMAR COLOR_TEXTO(11)
PARA J <-1 HASTA N HAGA
LLAMAR NUEVA_LINEA()
ESCRIBA J,"-HOLA"
FIN PARA
FIN
//------------------
PROCEDIMIENTO LINEA(ENTERO N,ENTERO COLOR, CARACTER SIMBOLO)
ENTERO J
INICIO
LLAMAR COLOR_TEXTO(COLOR)
PARA J <-1 HASTA N HAGA
ESCRIBA SIMBOLO
FIN PARA
LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO
FIN
//-------------
PROCEDIMIENTO CUADRO(ENTERO X1 ,ENTERO Y1 ,ENTERO X2 , ENTERO Y2 , ENTERO COLOR)
ENTERO J
INICIO
//DIBUJANDOI LAS LINEAS HORIZONTALAES
LLAMAR COLOR_TEXTO(COLOR)
PARA J <-X1 HASTA X2 HAGA
LLAMAR POSICIONAR_CURSOR(J,Y1)
ESCRIBA CAR(205)
LLAMAR POSICIONAR_CURSOR(J,Y2)
ESCRIBA CAR(205)
FIN PARA
//DIBUJANDOI LAS LINEAS VERTICALES
PARA J <-Y1 HASTA Y2 HAGA
LLAMAR POSICIONAR_CURSOR(X1,J)
ESCRIBA CAR (186)
LLAMAR POSICIONAR_CURSOR(X2,J)
ESCRIBA CAR (186)
FIN PARA
//LAS ESQUINAS
LLAMAR POSICIONAR_CURSOR(X1,Y1)
ESCRIBA CAR (201)
LLAMAR POSICIONAR_CURSOR(X2,Y1)
ESCRIBA CAR (187)
//--
LLAMAR POSICIONAR_CURSOR(X1,Y2)
ESCRIBA CAR (200)
LLAMAR POSICIONAR_CURSOR(X2,Y2)
ESCRIBA CAR (188)
//---
LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO
FIN
//---MODULO PRINCIPAL--
INICIO
LLAMAR CUADRO (1,1,80,22,9)//9 COLOR
ESCRIBA "PROCEDIMIENTO"
LLAMAR NUEVA_LINEA()
ESCRIBA "============="
LLAMAR NUEVA_LINEA()
LLAMAR SALUDO
LLAMAR NUEVA_LINEA()
ESCRIBA "============="
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LA CANTIDAD DE N:"
LEA N
LLAMAR SALU2(N)
LLAMAR NUEVA_LINEA()
ESCRIBA "PULSE CUALQUIER TECLA PARA CONTINUAR..."
LLAMAR OBTENER_CARACTER()// PIDE QUE SE PULSE LA TECLA
LLAMAR LIMPIAR_PANTALLA()
LLAMAR CUADRO (10,5,50,12,14)//14 COLOR
LLAMAR LINEA(5, 11,'=')//(5) SIGNOS IGUALES,COLOR,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(20, 12,'-')//(20) SIGNOS IGUALES,COLOR,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(50, 13,CAR (177))//(50) SIGNOS IGUALES,COLOR ,CARACTER
LLAMAR NUEVA_LINEA()
LLAMAR LINEA(70, 10,CAR (219))//(70) SIGNOS IGUALES,COLOR ,CARACTER
LLAMAR OBTENER_CARACTER()
FIN
/*
ALGORITMO QUE PERMITA INGRESAR LAS SGTS. NUMEROS Y LETRAS Y MUESTRE
EL DIA , EL NOMBRE Y UNA ACTIVIDAD DIARIA PERSONAL , ASI :
1 LUNES
2 MARTES
3 MIERCOLES
4 JUEVES
5 VIERNES
6 SABADO
7 DOMINGO
DADO OTRO NUMERO DEBE INDICAR ERROR (COLOR AMARILLO)
*/
ENTERO NUMERO
REAL LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO, DOMINGO
CADENA [15] NOMBRE
INICIO
LLAMAR COLOR_TEXTO (14) // 14 AMARILLO
LLAMAR POSICIONAR_CURSOR (30,10)
ESCRIBA " ******* INGRESE SU NOMBRE***** "
LLAMAR POSICIONAR_CURSOR (20,14)
LEA NOMBRE
LLAMAR POSICIONAR_CURSOR (20,15)
ESCRIBA " INGRESE DIA DE LA SEMANA ( 1-7), DONDE 1=LUNES: "
LEA NUMERO
CASO NUMERO
1 :
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES LUNES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER ANIME"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. LIMPIAR MI CUARTO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LIMPIAR LA CASA"
2:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES MARTES"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. JUGAR CON MI PRIMO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. BAÑAR A MI PERRO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. AYUDAR A LA ABUELA"
3:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES MIERCOLES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. SACAR A PASEAR AL PERRO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. ARREGLAR MI ROPA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LAVAR MI ROPA"
4:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES JUEVES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. LAVAR PLATOS"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. VISITAR A LA ABUELA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. AYUDAR A MI SOBRINO CON LA TAREA"
5:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES VIERNES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER TELE"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. JUGAR PELOTA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. SALIR UN RATO"
6:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES SABADO "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. ESTAR ENTRE PATAS"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. AYUDAR A MAMA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. HACER LA TAREA"
7:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES DOMINGO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER ANIME"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. LIMPIAR MI CUARTO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LIMPIAR LA CASA"
SINO:
LLAMAR POSICIONAR_CURSOR (20,16)
LLAMAR COLOR_TEXTO (12)// 12 ES ROJO
ESCRIBA "ERROR, NUMERO INCORRECTO"
FIN CASO
FIN
ALGORITMO QUE PERMITA INGRESAR LAS SGTS. NUMEROS Y LETRAS Y MUESTRE
EL DIA , EL NOMBRE Y UNA ACTIVIDAD DIARIA PERSONAL , ASI :
1 LUNES
2 MARTES
3 MIERCOLES
4 JUEVES
5 VIERNES
6 SABADO
7 DOMINGO
DADO OTRO NUMERO DEBE INDICAR ERROR (COLOR AMARILLO)
*/
ENTERO NUMERO
REAL LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO, DOMINGO
CADENA [15] NOMBRE
INICIO
LLAMAR COLOR_TEXTO (14) // 14 AMARILLO
LLAMAR POSICIONAR_CURSOR (30,10)
ESCRIBA " ******* INGRESE SU NOMBRE***** "
LLAMAR POSICIONAR_CURSOR (20,14)
LEA NOMBRE
LLAMAR POSICIONAR_CURSOR (20,15)
ESCRIBA " INGRESE DIA DE LA SEMANA ( 1-7), DONDE 1=LUNES: "
LEA NUMERO
CASO NUMERO
1 :
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES LUNES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER ANIME"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. LIMPIAR MI CUARTO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LIMPIAR LA CASA"
2:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES MARTES"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. JUGAR CON MI PRIMO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. BAÑAR A MI PERRO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. AYUDAR A LA ABUELA"
3:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES MIERCOLES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. SACAR A PASEAR AL PERRO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. ARREGLAR MI ROPA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LAVAR MI ROPA"
4:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES JUEVES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. LAVAR PLATOS"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. VISITAR A LA ABUELA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. AYUDAR A MI SOBRINO CON LA TAREA"
5:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES VIERNES "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER TELE"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. JUGAR PELOTA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. SALIR UN RATO"
6:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES SABADO "
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. ESTAR ENTRE PATAS"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. AYUDAR A MAMA"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. HACER LA TAREA"
7:
LLAMAR POSICIONAR_CURSOR (20, 16)
LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
ESCRIBA " HOY ES DOMINGO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,17)
ESCRIBA "1. VER ANIME"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,18)
ESCRIBA "2. LIMPIAR MI CUARTO"
LLAMAR NUEVA_LINEA ()
LLAMAR POSICIONAR_CURSOR (20,19)
ESCRIBA "3. LIMPIAR LA CASA"
SINO:
LLAMAR POSICIONAR_CURSOR (20,16)
LLAMAR COLOR_TEXTO (12)// 12 ES ROJO
ESCRIBA "ERROR, NUMERO INCORRECTO"
FIN CASO
FIN
/*BANDERA DEL PERU EN LPP
*/
ENTERO J
INICIO
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
///
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
///
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
//
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
////
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
////
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
LLAMAR OBTENER_CARACTER()
FIN
*/
ENTERO J
INICIO
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
///
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
///
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
//
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
////
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
////
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219),CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(15)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
PARA J <- 1 HASTA 10 HAGA
LLAMAR COLOR_TEXTO(12)
ESCRIBA CAR(219)
FIN PARA
LLAMAR NUEVA_LINEA()
LLAMAR OBTENER_CARACTER()
FIN
/*
Una compañía de seguros ofrece tres tipos se seguro para el público en general:
Tipo seguro Pago mensual (S/.) Cantidad de Beneficiarios Cobertura (S/.)
A 80.00 Hasta 02 50,000
B 100.00 Hasta 04 100,000
C 250.00 Hasta 06 175,000
Se necesita una aplicación de computadora que permita registrar a los clientes afiliados (apellidos y nombres), el tipo de seguro que desean adquirir y la cantidad de beneficiarios.
La aplicación debe permitir registrar a varios clientes conforme se responda a la pregunta ¿Desea registrar a otro cliente?
Se pide:
1. Validaciones:
o Validar el ingreso del tipo de seguro. Solo debe aceptar las letras A, B y C (en mayúsculas y minúsculas) (1 pto)
o Validar la cantidad de beneficiarios. Cuando el seguro es tipo A solo debe aceptar valores desde 1 hasta 2. Cuando es tipo B,
solo debe aceptar desde 1 hasta 4. Cuando es tipo C solo debe aceptar desde 1 hasta 6. Para un valor mayor a 6, la aplicación debe indicar "Por favor consulte a un agente de seguro". En cualquier otro caso informar "Error". (4 ptos)
2. Por cada cliente registrado, la aplicación debe mostrar un resumen indicando: el pago mensual, la cantidad de beneficiarios indicados, y la cobertura. Como resumen final, debe mostrar la cantidad total de clientes registrados(5 ptos)
3. Hallar el número de clientes afiliados al seguro tipo A (5 ptos)
4. Calcular y mostrar el total de pagos del seguro tipo A (5 ptos)
AUTOR : FRANK PIÑIN ATO
FECHA : 08-11-2017 , 11:25 AM
*/
CADENA [50] NOMA
CARACTER RPT
CARACTER TI
ENTERO IN ,CONT,CONT2,CONT3,PAG
INICIO
CONT <- 0
CONT2 <- 0
CONT3 <- 0
ESCRIBA "==============================TIPOS DE SEGUROS=============================="
LLAMAR NUEVA_LINEA()
RPT <- 'S'
LLAMAR COLOR_TEXTO(11)
MIENTRAS (RPT = 'S') O (RPT = 's') HAGA
ESCRIBA "INGRESE EL NOMBRE Y APELLIDO DEL CLIENTE AFILIADO:"
LLAMAR NUEVA_LINEA()
LEA NOMA
LLAMAR NUEVA_LINEA()
ESCRIBA "QUE TIPO DE SERGURO DESEA ADQUIRIR?"
ESCRIBA "TIPO: [A], [B] Y [C]"
LLAMAR NUEVA_LINEA()
LEA TI
CASO TI
'A', 'a' :
IN <- 3 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 2 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 2) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/80.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/50,000"
FIN SI
FIN MIENTRAS
CONT2 <- CONT2 + IN
PAG <- 80
'B', 'b' : IN <- 5 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 4 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 4) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/100.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/100,000"
FIN SI
FIN MIENTRAS
'C', 'c' : IN <- 7 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 6 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 6) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/250.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/175,000"
FIN SI
FIN MIENTRAS
SINO:
LLAMAR COLOR_TEXTO(12)//ROJO
ESCRIBA "ERROR .LETRA INCORRECTA"
FIN CASO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
ESCRIBA "DESEA INGRESAR A OTRO CLIENTE? (S/N):"
LEA RPT
LLAMAR COLOR_TEXTO(11)
CONT <- CONT + IN
FIN MIENTRAS
ESCRIBA "CLIENTES REGISTRADOS :", CONT
LLAMAR NUEVA_LINEA()
ESCRIBA "CLIENTES REGISTRADOS EN SEGURO A:", CONT2
LLAMAR NUEVA_LINEA()
ESCRIBA "PAGO TOTAL EN SEGURO A :", PAG*CONT2, " SOLES"
FIN
Una compañía de seguros ofrece tres tipos se seguro para el público en general:
Tipo seguro Pago mensual (S/.) Cantidad de Beneficiarios Cobertura (S/.)
A 80.00 Hasta 02 50,000
B 100.00 Hasta 04 100,000
C 250.00 Hasta 06 175,000
Se necesita una aplicación de computadora que permita registrar a los clientes afiliados (apellidos y nombres), el tipo de seguro que desean adquirir y la cantidad de beneficiarios.
La aplicación debe permitir registrar a varios clientes conforme se responda a la pregunta ¿Desea registrar a otro cliente?
Se pide:
1. Validaciones:
o Validar el ingreso del tipo de seguro. Solo debe aceptar las letras A, B y C (en mayúsculas y minúsculas) (1 pto)
o Validar la cantidad de beneficiarios. Cuando el seguro es tipo A solo debe aceptar valores desde 1 hasta 2. Cuando es tipo B,
solo debe aceptar desde 1 hasta 4. Cuando es tipo C solo debe aceptar desde 1 hasta 6. Para un valor mayor a 6, la aplicación debe indicar "Por favor consulte a un agente de seguro". En cualquier otro caso informar "Error". (4 ptos)
2. Por cada cliente registrado, la aplicación debe mostrar un resumen indicando: el pago mensual, la cantidad de beneficiarios indicados, y la cobertura. Como resumen final, debe mostrar la cantidad total de clientes registrados(5 ptos)
3. Hallar el número de clientes afiliados al seguro tipo A (5 ptos)
4. Calcular y mostrar el total de pagos del seguro tipo A (5 ptos)
AUTOR : FRANK PIÑIN ATO
FECHA : 08-11-2017 , 11:25 AM
*/
CADENA [50] NOMA
CARACTER RPT
CARACTER TI
ENTERO IN ,CONT,CONT2,CONT3,PAG
INICIO
CONT <- 0
CONT2 <- 0
CONT3 <- 0
ESCRIBA "==============================TIPOS DE SEGUROS=============================="
LLAMAR NUEVA_LINEA()
RPT <- 'S'
LLAMAR COLOR_TEXTO(11)
MIENTRAS (RPT = 'S') O (RPT = 's') HAGA
ESCRIBA "INGRESE EL NOMBRE Y APELLIDO DEL CLIENTE AFILIADO:"
LLAMAR NUEVA_LINEA()
LEA NOMA
LLAMAR NUEVA_LINEA()
ESCRIBA "QUE TIPO DE SERGURO DESEA ADQUIRIR?"
ESCRIBA "TIPO: [A], [B] Y [C]"
LLAMAR NUEVA_LINEA()
LEA TI
CASO TI
'A', 'a' :
IN <- 3 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 2 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 2) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/80.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/50,000"
FIN SI
FIN MIENTRAS
CONT2 <- CONT2 + IN
PAG <- 80
'B', 'b' : IN <- 5 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 4 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 4) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/100.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/100,000"
FIN SI
FIN MIENTRAS
'C', 'c' : IN <- 7 //SIEMPRE SE DEBE DECLARAR UN VALOR INICIAL PARA QUE EL CICLO INICIE
LLAMAR COLOR_TEXTO(10)
MIENTRAS (IN > 6 ) HAGA
ESCRIBA "CUANTOS DESEAS INGRESAR?: "
LEA IN
SI (IN > 6) ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //ROJO
ESCRIBA "ERROR, DATO ERRONEO. REINTENTE."
LLAMAR COLOR_TEXTO(10)
LLAMAR NUEVA_LINEA()
SINO
LLAMAR COLOR_TEXTO(11)
ESCRIBA "HAY ",IN, " BENEFICIARIOS"
LLAMAR NUEVA_LINEA()
ESCRIBA "EL PAGO MENSUAL ES DE S/250.00"
LLAMAR NUEVA_LINEA()
ESCRIBA "LA COBERTURA ES DE S/175,000"
FIN SI
FIN MIENTRAS
SINO:
LLAMAR COLOR_TEXTO(12)//ROJO
ESCRIBA "ERROR .LETRA INCORRECTA"
FIN CASO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
ESCRIBA "DESEA INGRESAR A OTRO CLIENTE? (S/N):"
LEA RPT
LLAMAR COLOR_TEXTO(11)
CONT <- CONT + IN
FIN MIENTRAS
ESCRIBA "CLIENTES REGISTRADOS :", CONT
LLAMAR NUEVA_LINEA()
ESCRIBA "CLIENTES REGISTRADOS EN SEGURO A:", CONT2
LLAMAR NUEVA_LINEA()
ESCRIBA "PAGO TOTAL EN SEGURO A :", PAG*CONT2, " SOLES"
FIN
/*Una entidad bancaria tiene varios agentes promotores (asignados a diferentes ciudades: Catacaos, Sechura, Paita y Talara)
quienes son los encargados de colocar tarjetas de crédito a los clientes. Las tarjetas que ofrecen son de dos tipos: Clásica y Platinum. Los agentes tienen un sueldo fijo mensual según la zona:
Catacaos S/.500
Sechura S/.600
Paita S/.400
Talara S/.650
y adicionalmente ganan una comisión: S/.8 por cada tarjeta clásica que colocan y S/.14 por cada tarjeta Platinum.
Escriba el algoritmo que permita registrar a varios agentes promotores junto con la cantidad de tarjetas de cada tipo colocada. La aplicación debe permitir registrar a varios agentes
conforme se responda a la pregunta ¿Desea registrar a otro agente?
Se pide:
1. Realice al menos cuatro validaciones cualquiera en los datos de entrada (3 ptos)
2. Calcular y mostrar por cada agente: su sueldo fijo, la ciudad asignada, la comisión y el sueldo final (5 ptos)
3. Calcular el número de agentes asignados a cada ciudad (4 ptos)
4. Calcular el total de tarjetas platinum y el total de tarjetas clásicas colocadas (4 ptos)
5. Calcular el promedio del sueldo de los agentes asignados a Talara (4 ptos)
Una empresa de telefonía tiene N vendedores (asignados a diferentes ciudades: Piura, Sullana y Talara) quienes son los encargados de vender líneas pre pago y postpago.
Los vendedores tienen un sueldo fijo y ganan por comisión: S/.5 por cada línea pre pago vendida y S/.8 por cada línea post pago.
Escriba el algoritmo que permita registrar a cada vendedor y la cantidad de líneas de cada tipo vendida. El algoritmo debe mostrar el sueldo fijo, la comisión ganada por
cada tipo de línea telefónica vendida y el sueldo final.
Luego, debe mostrar un resumen informando lo siguiente:
- El total de líneas pre pago vendidas (considerando todos los vendedores)
- El total de líneas post pago vendidas (considerando todos los vendedores)
- La cantidad de líneas prepago vendidas en Piura, en Sullana y Talara
- La cantidad de vendedores asignados a Piura, Sullana y Talara.
ADICIONAL
A)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS PRE PAGO
B)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS POST PAGO
AUTOR: MARKO ARRUNATEGUI URBINA
fecha: 18/10/2017 - 11:15 am.
*/
ENTERO J,P,PREP,POST ,COMISION
ENTERO TOTALPRE, TOTALPOST, TOTALPRE_C, TOTALPRE_S, TOTALPRE_P, TOTALPRE_T, TOTALPOST_C, TOTALPOST_S, TOTALPOST_P,TOTALPOST_T
CADENA [30] NOMBRE, N //DEL VENDEDOR
CARACTER CIUDAD //LA LETRA DE LA CIUDAD C,S,P,T
REAL SFIJO, SFINAL
CARACTER RPT
INICIO
TOTALPRE <- 0
TOTALPOST <- 0
TOTALPRE_C <- 0
TOTALPRE_S <- 0
TOTALPRE_P <- 0
TOTALPRE_T <- 0
TOTALPOST_C <- 0
TOTALPOST_S <- 0
TOTALPOST_P <- 0
TOTALPOST_T <- 0
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(11)
ESCRIBA " ================BANCO FRANK============"
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
RPT <- 'S' //INICIALIZANDO PARA QUE ENTRE LA 1RA VEZ
MIENTRAS (RPT = 'S')O (RPT = 's') HAGA
ESCRIBA "INGRESE UN PROMOTOR: "
LEA N
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11)
ESCRIBA "DESEA INGRESAR A OTRO PROMOTOR?(S/N)"
LEA RPT
FIN MIENTRAS
ESCRIBA "INGRESE NOMBRE DEL PROMOTOR: "
LLAMAR COLOR_TEXTO(11)
LEA NOMBRE
CIUDAD <- 'X' //VALOR INICIAL PARA 1 ENTRE LA 1RA VEZ
MIENTRAS (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LA CIUDAD"
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA
ESCRIBA "[C] CATACAOS - [S] SECHURA - [P] PAITA - [T] TALARA : "
LLAMAR COLOR_TEXTO(11)
LEA CIUDAD
LLAMAR NUEVA_LINEA
SI (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') ENTONCES //ERROR
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. LETRA DE CIUDAD INCORRECTA.INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14) //14 AMARILLO
FIN SI
FIN MIENTRAS
//EL SUELDO FIJO
SI (CIUDAD= 'C' ) ENTONCES
SFIJO <- 500
SINO
SI (CIUDAD = 'S')ENTONCES
SFIJO <- 600
SINO
SI (CIUDAD = 'P') ENTONCES
SFIJO <- 400
SINO
SI (CIUDAD = 'T')ENTONCES
SFIJO <- 650
FIN SI
FIN SI
FIN SI
FIN SI
PREP <- -1
MIENTRAS(PREP <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE PREPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA PREP
SI(PREP<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPRE<-TOTALPRE+PREP
CASO CIUDAD
'C' , 'c': TOTALPRE_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPRE_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPRE_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPRE_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
POST <- -1
MIENTRAS(POST <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE POSTPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA POST
SI(POST<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPOST<-TOTALPOST+POST
CASO CIUDAD
'C' , 'c': TOTALPOST_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPOST_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPOST_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPOST_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
//CALCULANDO LA COMISION
COMISION <-5*PREP + 8*POST //SEGUN EL ENUNCIADO
//CALCULANDO SUELDO FINAL
SFINAL <- SFIJO + COMISION
//MOSTRANDO RESULTADOS
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11) //11 CELESTE
ESCRIBA "==========="
LLAMAR NUEVA_LINEA()
ESCRIBA " VENDEDOR: " ,NOMBRE
LLAMAR NUEVA_LINEA()
ESCRIBA " CIUDAD: ",CIUDAD
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD DE PRE PAGO: ", PREP
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD POST PAGO:", POST
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FIJO : $", SFIJO
LLAMAR NUEVA_LINEA()
ESCRIBA " COMISION : $",COMISION
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FINAL : $", SFINAL
LLAMAR NUEVA_LINEA()
ESCRIBA "========================"
LLAMAR COLOR_TEXTO(14)//VOLVEMOS A AMARILLO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(13)
ESCRIBA " REPORTE FINAL "
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETA CLASICA : ", TOTALPRE
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJE PLATINUM : ", TOTALPOST
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN CATACAOS : ", TOTALPRE_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN SECHURA : ", TOTALPRE_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN PAITA : ", TOTALPRE_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN TALARA : ", TOTALPRE_T
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN CATACAOS : ", TOTALPOST_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN SECHURA : ", TOTALPOST_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN PAITA : ", TOTALPOST_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN TALARA : ", TOTALPOST_T
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
FIN
quienes son los encargados de colocar tarjetas de crédito a los clientes. Las tarjetas que ofrecen son de dos tipos: Clásica y Platinum. Los agentes tienen un sueldo fijo mensual según la zona:
Catacaos S/.500
Sechura S/.600
Paita S/.400
Talara S/.650
y adicionalmente ganan una comisión: S/.8 por cada tarjeta clásica que colocan y S/.14 por cada tarjeta Platinum.
Escriba el algoritmo que permita registrar a varios agentes promotores junto con la cantidad de tarjetas de cada tipo colocada. La aplicación debe permitir registrar a varios agentes
conforme se responda a la pregunta ¿Desea registrar a otro agente?
Se pide:
1. Realice al menos cuatro validaciones cualquiera en los datos de entrada (3 ptos)
2. Calcular y mostrar por cada agente: su sueldo fijo, la ciudad asignada, la comisión y el sueldo final (5 ptos)
3. Calcular el número de agentes asignados a cada ciudad (4 ptos)
4. Calcular el total de tarjetas platinum y el total de tarjetas clásicas colocadas (4 ptos)
5. Calcular el promedio del sueldo de los agentes asignados a Talara (4 ptos)
Una empresa de telefonía tiene N vendedores (asignados a diferentes ciudades: Piura, Sullana y Talara) quienes son los encargados de vender líneas pre pago y postpago.
Los vendedores tienen un sueldo fijo y ganan por comisión: S/.5 por cada línea pre pago vendida y S/.8 por cada línea post pago.
Escriba el algoritmo que permita registrar a cada vendedor y la cantidad de líneas de cada tipo vendida. El algoritmo debe mostrar el sueldo fijo, la comisión ganada por
cada tipo de línea telefónica vendida y el sueldo final.
Luego, debe mostrar un resumen informando lo siguiente:
- El total de líneas pre pago vendidas (considerando todos los vendedores)
- El total de líneas post pago vendidas (considerando todos los vendedores)
- La cantidad de líneas prepago vendidas en Piura, en Sullana y Talara
- La cantidad de vendedores asignados a Piura, Sullana y Talara.
ADICIONAL
A)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS PRE PAGO
B)LA APLICACION DEBE INDICAR EN QUE CIUDAD SE VENDIO MAS LINEAS POST PAGO
AUTOR: MARKO ARRUNATEGUI URBINA
fecha: 18/10/2017 - 11:15 am.
*/
ENTERO J,P,PREP,POST ,COMISION
ENTERO TOTALPRE, TOTALPOST, TOTALPRE_C, TOTALPRE_S, TOTALPRE_P, TOTALPRE_T, TOTALPOST_C, TOTALPOST_S, TOTALPOST_P,TOTALPOST_T
CADENA [30] NOMBRE, N //DEL VENDEDOR
CARACTER CIUDAD //LA LETRA DE LA CIUDAD C,S,P,T
REAL SFIJO, SFINAL
CARACTER RPT
INICIO
TOTALPRE <- 0
TOTALPOST <- 0
TOTALPRE_C <- 0
TOTALPRE_S <- 0
TOTALPRE_P <- 0
TOTALPRE_T <- 0
TOTALPOST_C <- 0
TOTALPOST_S <- 0
TOTALPOST_P <- 0
TOTALPOST_T <- 0
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(11)
ESCRIBA " ================BANCO FRANK============"
LLAMAR NUEVA_LINEA
LLAMAR NUEVA_LINEA
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
RPT <- 'S' //INICIALIZANDO PARA QUE ENTRE LA 1RA VEZ
MIENTRAS (RPT = 'S')O (RPT = 's') HAGA
ESCRIBA "INGRESE UN PROMOTOR: "
LEA N
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11)
ESCRIBA "DESEA INGRESAR A OTRO PROMOTOR?(S/N)"
LEA RPT
FIN MIENTRAS
ESCRIBA "INGRESE NOMBRE DEL PROMOTOR: "
LLAMAR COLOR_TEXTO(11)
LEA NOMBRE
CIUDAD <- 'X' //VALOR INICIAL PARA 1 ENTRE LA 1RA VEZ
MIENTRAS (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LA CIUDAD"
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA
ESCRIBA "[C] CATACAOS - [S] SECHURA - [P] PAITA - [T] TALARA : "
LLAMAR COLOR_TEXTO(11)
LEA CIUDAD
LLAMAR NUEVA_LINEA
SI (CIUDAD<>'C')Y(CIUDAD<>'c')Y(CIUDAD<>'S') Y(CIUDAD<>'s')Y(CIUDAD<>'P')Y(CIUDAD<>'p')Y(CIUDAD<>'T')Y(CIUDAD<>'t') ENTONCES //ERROR
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. LETRA DE CIUDAD INCORRECTA.INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14) //14 AMARILLO
FIN SI
FIN MIENTRAS
//EL SUELDO FIJO
SI (CIUDAD= 'C' ) ENTONCES
SFIJO <- 500
SINO
SI (CIUDAD = 'S')ENTONCES
SFIJO <- 600
SINO
SI (CIUDAD = 'P') ENTONCES
SFIJO <- 400
SINO
SI (CIUDAD = 'T')ENTONCES
SFIJO <- 650
FIN SI
FIN SI
FIN SI
FIN SI
PREP <- -1
MIENTRAS(PREP <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE PREPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA PREP
SI(PREP<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPRE<-TOTALPRE+PREP
CASO CIUDAD
'C' , 'c': TOTALPRE_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPRE_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPRE_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPRE_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
POST <- -1
MIENTRAS(POST <0) HAGA
LLAMAR COLOR_TEXTO(14)
LLAMAR NUEVA_LINEA()
ESCRIBA "INGRESE LINEAS DE POSTPAGO VENDIDAS: "
LLAMAR COLOR_TEXTO(11)
LEA POST
SI(POST<0)ENTONCES
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(12) //12 ROJO
ESCRIBA "ERROR. SUELDO INCORRECTO. INTENTE OTRA VEZ"
LLAMAR COLOR_TEXTO(14)//14 AMARILLO
SINO
TOTALPOST<-TOTALPOST+POST
CASO CIUDAD
'C' , 'c': TOTALPOST_C<-TOTALPRE_C+PREP
'S' , 's': TOTALPOST_S<-TOTALPRE_S+PREP
'P' , 'p': TOTALPOST_P<-TOTALPRE_P+PREP
'T' , 't': TOTALPOST_T<-TOTALPRE_T+PREP
FIN CASO
FIN SI
FIN MIENTRAS
//CALCULANDO LA COMISION
COMISION <-5*PREP + 8*POST //SEGUN EL ENUNCIADO
//CALCULANDO SUELDO FINAL
SFINAL <- SFIJO + COMISION
//MOSTRANDO RESULTADOS
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(11) //11 CELESTE
ESCRIBA "==========="
LLAMAR NUEVA_LINEA()
ESCRIBA " VENDEDOR: " ,NOMBRE
LLAMAR NUEVA_LINEA()
ESCRIBA " CIUDAD: ",CIUDAD
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD DE PRE PAGO: ", PREP
LLAMAR NUEVA_LINEA()
ESCRIBA " CANTIDAD POST PAGO:", POST
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FIJO : $", SFIJO
LLAMAR NUEVA_LINEA()
ESCRIBA " COMISION : $",COMISION
LLAMAR NUEVA_LINEA()
ESCRIBA " SUELDO FINAL : $", SFINAL
LLAMAR NUEVA_LINEA()
ESCRIBA "========================"
LLAMAR COLOR_TEXTO(14)//VOLVEMOS A AMARILLO
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(13)
ESCRIBA " REPORTE FINAL "
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETA CLASICA : ", TOTALPRE
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJE PLATINUM : ", TOTALPOST
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN CATACAOS : ", TOTALPRE_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN SECHURA : ", TOTALPRE_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN PAITA : ", TOTALPRE_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS CLASICAS EN TALARA : ", TOTALPRE_T
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN CATACAOS : ", TOTALPOST_C
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN SECHURA : ", TOTALPOST_S
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN PAITA : ", TOTALPOST_P
LLAMAR NUEVA_LINEA()
ESCRIBA " TOTAL DE TARJETAS PLATINUIM EN TALARA : ", TOTALPOST_T
LLAMAR NUEVA_LINEA()
LLAMAR NUEVA_LINEA()
LLAMAR COLOR_TEXTO(14)
FIN
Suscribirse a:
Entradas (Atom)
MENU DE ACCIONES EN JAVA
MENU DE ACCIONES EN JAVA ----------------------------------------------------------------- package menudeacciones; import java.util.S...
-
COLORES EN LPP (NUMERO) Entero i Inicio Para i <- 1 Hasta 80 Haga Llamar Color_Fondo(1) Llamar Posicionar_...
-
/*MATRIZ EN LPP SU FUNCION DEL SOFTWARE ES: Si desea ordenar la matriz presione: 1. Sumar matriz: 2. Sumar diagonal principal: 3. Enco...
-
TRABAJO ADICIONAL (OPCIONAL) TEMA: ESTRUCTIRAS DE CONTROL SELECTIVAS Escribir el algoritmo de solución en el programa LPP 1. ...