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
//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:
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
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
*/
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
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)
-
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. ...