1)========================================================
Proceso bono_por_antiguedad
definir mbp Como Real
definir ca como entero
Escribir "ingrese la cantidad de años trabajadas"
leer ca
si ca>=2 entonces
mbp=(ca*12000)
Sino
mbp=(ca*10000)
FinSi
Escribir "total del bono a pagar a un trabajador es de: " mbp
FinProceso
2)========================================================
Proceso edad
//algoritmo que muetre quien es mayor de las dos pesonas
definir nomb1_nomb2 Como Caracter
definir edad_edad2 Como entero
Escribir "por favor ingrese su nombre "
leer nomb1
Escribir "por favor ingrese su edad"
Leer edad1
Escribir " por favor ingrese el segundo nombre "
Leer nomb2
Escribir " por favor ingrese su edad"
leer edad2
si edad1>edad2 entonces
Escribir nomb1 " es mayor a : " nomb2
FinSi
si edad2>edad1 Entonces
Escribir "la edad de: " nomb2 " es mayor a la de " nomb1;
FinSi
FinProceso
3)========================================================
este algoritmo nos pide que ingrese la edad y si es ayor de edad podra ingresar a la pagina
Proceso Pagina
Escribir " hola Bienvenido a tu pagina Web "
Escribir " Pero antes Introduce tu edad "
Leer Edad
Si edad >=18 Entonces
Escribir "Bienvenido a nuetras pagina web"
Sino
Escribir "Lo siento eres menor de edad"
Fin Si
FinProceso
4)========================================================
El
gobierno del estado de México desea reforestar un bosque que mide
determinado numero de hectáreas. Si la superficie del terreno excede a 1
millón de metros cuadrados, entonces decidirá sembrar de la sig.
manera:
Porcentaje de la superficie del bosque Tipo de árbol
70% pino
20% oyamel
10% cedro
Si la superficie del terreno es menor o igual a un millón de metros cuadrados, entonces decidirá sembrar de la sig. manera:
Porcentaje de la superficie del bosque Tipo de árbol
50% pino
30% oyamel
20% cedro
El gobierno desea saber el numero de pinos, oyameles y cedros que tendrá que sembrar en el bosque, si se sabe que en 10 metros cuadrados caben 8 pinos, en 15 metros cuadrados caben 15 oyameles y en 18 metros cuadrados caben 10 cedros. También se sabe que una hectárea equivale a 10 mil metros cuadrados.
Porcentaje de la superficie del bosque Tipo de árbol
70% pino
20% oyamel
10% cedro
Si la superficie del terreno es menor o igual a un millón de metros cuadrados, entonces decidirá sembrar de la sig. manera:
Porcentaje de la superficie del bosque Tipo de árbol
50% pino
30% oyamel
20% cedro
El gobierno desea saber el numero de pinos, oyameles y cedros que tendrá que sembrar en el bosque, si se sabe que en 10 metros cuadrados caben 8 pinos, en 15 metros cuadrados caben 15 oyameles y en 18 metros cuadrados caben 10 cedros. También se sabe que una hectárea equivale a 10 mil metros cuadrados.
Proceso Algoritmo
Escribir Sin Saltar "Ingrese el valor de hectareas:";
Leer hectareas;
metros_cuadrados <- hectareas*10000;
Si metros_cuadrados>1000000 Entonces
pinos <- metros_cuadrados*0.7;
oyameles <- metros_cuadrados*0.2;
cedros <- metros_cuadrados*0.1;
SiNo
pinos <- metros_cuadrados*0.5;
oyameles <- metros_cuadrados*0.3;
cedros <- metros_cuadrados*0.2;
FinSi
pinos <- TRUNC(metros_cuadrados/10.0*8.0);
oyameles <- TRUNC(metros_cuadrados/15.0*10.0);
cedros <- TRUNC(metros_cuadrados/18.0*10.0);
Escribir "Valor de cedros: ", cedros;
Escribir "Valor de metros cuadrados: ", metros_cuadrados;
Escribir "Valor de oyameles: ", oyameles;
Escribir "Valor de pinos: ", pinos;
FinProceso
5)========================================================
este algoritmo nos dice el tipo de promedio que tienes
Proceso promedio
Escribir "ingrese la primera nota"
Leer nt1
Escribir "ingrese la segunda nota"
Leer nt2
Escribir "ingrese la tercera nota"
Leer nt3
prom= (nt1+nt2+nt3)/3
si (prom>=0) y (prom<=5)
Escribir "malo"
FinSi
si (prom>=6) y (prom<=10)
Escribir "deficiente"
FinSi
si (prom>=11) y (prom<=14)
Escribir "bueno"
fin si
si (prom>14)
Escribir "muy bueno"
FinSi
FinProceso
6)========================================================
este lgoritmo nos indica mediante un menu que opercion ejecutar, tales como ordenar numeros de menor a mayor, convertir una palabra de minuscula a mayuscula, medir el tamaño deuna palaba.
Proceso trabajo_informatica
//
definir cantidad como entero
Dimension num(5)
Repetir
Escribir " Elija una opcion: ";
Escribir "-1- Ordenar cinco(5) números de menor a mayor";
Escribir "-2- Convertir de minúsculas a mayúsculas una cadena";
Escribir "-3- Medir longitud de una cadena ";
Escribir "-4- Si desea salir del programa" ;
leer menu
Segun menu Hacer
1:Para i<-1 Hasta 5 Con Paso 1 Hacer
Escribir sin saltar "El numero en la posicion ", i, " es ";
leer num(i);
FinPara
Para i<-1 Hasta 5 Con Paso 1 Hacer
Para j<-i Hasta 5 Con Paso 1 Hacer
Si num(i) > num(j) Entonces
t=num(i);
num(i)=num(j);
num(j)=t;
FinSi
FinPara
FinPara
Escribir " ";
Escribir " Sus numeros ordenados de menor a mayor son ";
Para i<-1 Hasta 5 Con Paso 1 Hacer
Escribir " ", num(i);
FinPara
2:Escribir "ingrese cualquier texto"
Leer text
Escribir "A continuacion su texto en mayúsculas quedaria de la siguiente forma : "
Escribir Mayusculas(text)
3:Escribir " introdusca cualquier texto "
leer text
cantidad=Longitud(text)
escribir " su texto contiene una longitud de: " cantidad " carácteres ";
4:Escribir " Que tenga buen dia, hasta luego "
De Otro Modo:
Escribir " Opcion invalida, ingrese su menu correctamente "
Fin Segun
Hasta Que (menu=1)o (menu=2) o (menu=3) o (menu=4)
FinProceso
7)========================================================
Proceso Restaurante_LA_COMELONA
definir menu como entero;
definir total como enteros
definir again como caracter
//A)Muestre por pantalla un menú de opciones de platos de un restaurant:
//1)Pollo, Arroz, Platanos y jugo.
//2)Bistek, Arroz, Platanos y Coca_Cola.
//3)Pescado, Yuca,Ensaladay Papelon.
//4)Sopa, Arepas, Queso y Cualquier Bebida.
//B)Al ingresar una opción le pedirá la cantidad de platos que desea el cliente, como asi debe calcular el total a pagar.
//C)El programa mostrara el resultado, y en caso de ingresar una opción incorrecta, mostrar un mensaje de error.
//precios estimados:
//Arroz:70 Bsf.
//Jugo: 30 Bfs.
//Platano 15 Bsf.
//Pollo: 100 Bfs.
//Bistek: 100 Bfs.
// Refresco: 30 Bfs.
//Pescado: 100 Bfs.
// Racion de yuca 70 Bfs.
//Ensalada 40 Bfs.
// Papelon 25 Bfs.
// Sopa : 85 Bfs.
// arepa con queso : 60 Bfs.
// cualquier bebida : 25 Bfs.
Repetir
limpiar pantalla
Escribir " ";
Escribir " Bienvenido A Su Restaurante, *LA COMELONA*";
Escribir "*****Elija Su Opcion De Preferencia*****";
Escribir " ";
Escribir "-(1)-> Pollo, Arroz, Platanos y jugo.";
Escribir "-(2)-> Bistek, Arroz, Platanos y Coca_Cola.";
Escribir "-(3)-> Pescado, Yuca,Ensaladay Papelon.";
Escribir "-(4)-> Sopa, Arepas, Queso y Cualquier Bebida";
leer menu
Segun menu Hacer
1: Escribir "Usted selecciono Pollo, Arroz, Platanos y jugo. " ;
Escribir " ingrese la cantidad de platos "
Leer cantidad
total=(70+30+15+100)*cantidad;
2: Escribir "Usted selecciono Bistek, Arroz, Platanos y Coca_Cola." ;
Escribir " ingrese la cantidad de platos "
Leer cantidad
total=(70+30+15+100)*cantidad;
3: Escribir "Usted selecciono Pescado, Yuca,Ensaladay Papelon." ;
Escribir " ingrese la cantidad de platos "
Leer cantidad
total=(100+70+40+25)*cantidad;
4:Escribir "Usted selecciono Sopa, Arepas, Queso y Cualquier Bebida." ;
Escribir " ingrese la cantidad de platos "
Leer cantidad
total=(85+60+25)*cantidad;
De Otro Modo:
Escribir " OPCIÓN INVÁLIDA, INGRESE SU MENÚ CORRECTAMENTE!!! "
Fin Segun
montotal=montotal+total;
Escribir "Si desea seleccionar otro menu presione (s), si no presione (n)";
Leer again;
Hasta Que (again="n")
Escribir "Querido cliente su monto a pagar es: ", montotal " Bs.F. ";
FinProceso
8)========================================================
Proceso cafeteria
definir menu como entero;
definir CaC como real;
definir Cach como real;
definir Cav como real;
//Integrantes: Henryn Gómez y Arcangel Maican.
//Cafeteria express
//CaC: cafe con crema.
//Cach: cafe con chocolate.
//CaV: cafe con vainilla.
Repetir
Escribir " Elija su opcion de preferencia: ";
Escribir "-1- cafe con crema";
Escribir "-2- cafe con chocolate";
Escribir "-3- cafe con vainilla";
Escribir "-4- salir";
leer menu
Segun menu Hacer
1:Escribir " Usted Selecciono cafe con crema";
Cac=((1/8*30)+(1/16*80)+(1/16*100))
Escribir "Su cafe con crema tiene un costo de: " CaC " Bs";
2:Escribir "Usted Selecciono cafe con chocolate";
Cach=((1/8*30)+(1/16*80)+(1/16*150))
Escribir "Su cafe con chocolate tiene un costo de: " Cach " Bs";
3:Escribir "Usted Selecciono cafe con Vainilla";
CaV=((1/8*30)+(1/16*80)+(1/64*100))
Escribir "Su cafe con vainilla tiene un costo de: " CaV " Bs";
4:Escribir " Que tenga buen dia, hasta luego "
De Otro Modo:
Escribir " Opcion invalida, ingrese su menu correctamente "
Fin Segun
Hasta Que menu=3 o menu=4
FinProceso
9)========================================================
Una empresa quiere hacer una compra de varias piezas de la misma clase a una fabrica de refacciones. La empresa, dependiendo del monto total de la compra, decidirá que hacer para pagar al fabricante. Si el monto total de la compra excede de $500 000 la empresa tendrá la capacidad de invertir de su propio dinero un 55% del monto de la compra, pedir prestado al banco un 30% y el resto lo pagara solicitando un crédito al fabricante. Si el monto total de la compra no excede de $500 000 la empresa tendrá capacidad de invertir de su propio dinero un 70% y el restante 30% lo pagara solicitando crédito al fabricante. El fabricante cobra por concepto de intereses un 20% sobre la cantidad que se le pa
Proceso compra_de_piezas
Definir MT,inversion,prestamo,interes1,interes2,credito Como Real;
Escribir "Este programa le mostrara un plan de pago segun su compra";
Escribir "ingrece el monto total de su compra";
leer MT;
si (MT>500000)entonces
inversion<-(MT*55)/100;
prestamo<-(MT*30)/100;
interes1<-(prestamo*35)/100;
credito<-(MT*15)/100;
interes2<-(credito*25)/100;
Escribir "El prestamo que pedira al banco equivale a: ",prestamo;
Escribir "sus intereses a pagar al banco equivalen a: ",interes1;
Escribir "Su total a invertir sera de: ", inversion;
Escribir "Su credito a pedir al fabricante tiene la suma de: ",credito;
Escribir "Sus intereses a pagar al fabricante tendran la suma de: ",interes2;
Escribir "El monto total a pagar con los intereses sera de: ",MT+interes1+interes2;
FinSi
si (MT<=500000)entonces
inversion<-(MT*60)/100;
credito<-(MT*40)/100;
interes1<-(credito*25)/100;
Escribir "Su total a invertir sera de: ", inversion;
Escribir "Su credito a pedir al fabricante tiene la suma de: ",credito;
Escribir "Sus intereses tendran la suma de: ",interes1;
Escribir "El monto total mas los intereses sera de: ",MT+interes1;
FinSi
FinProceso
10)========================================================
Proceso Restaurante_LA_COMELONA
definir menu como entero;
definir Costo como entero;
definir Platos como enteros;
definir total como enteros
//A)Muestre por pantalla un menú de opciones de platos de un restaurant:
//1)Pollo, Arroz, Platanos y jugo.
//2)Bistek, Arroz, Platanos y Coca_Cola.
//3)Pescado, Yuca,Ensaladay Papelon.
//4)Sopa, Arepas, Queso y Cualquier Bebida.
//B)Al ingresar una opción le pedirá el costo del plato y la cantidad de platos que desea el cliente, como asi debe calcular el total a pagar. //C)El programa mostrara el resultado, y en caso de ingresar una opción incorrecta, mostrar un mensaje de error.
Repetir
limpiar pantalla
Escribir " ";
Escribir " Bienvenido A Su Restaurante, *LA COMELONA*";
Escribir "*****Elija Su Opcion De Preferencia*****";
Escribir " ";
Escribir "-(1)-> Pollo, Arroz, Platanos y jugo.";
Escribir "-(2)-> Bistek, Arroz, Platanos y Coca_Cola.";
Escribir "-(3)-> Pescado, Yuca,Ensaladay Papelon.";
Escribir "-(4)-> Sopa, Arepas, Queso y Cualquier Bebida";
leer menu
Segun menu Hacer
1: Escribir "Por favor Ingrese el costo del plato seleccionado: " ;
Leer Costo ;
Escribir "Por favor Ingrese la cantidad de platos :" ;
Leer Platos ;
total=(Costo * Platos);
2: Escribir "Por favor Ingrese el costo del plato seleccionado: " ;
Leer Costo ;
Escribir "Por favor Ingrese la cantidad de platos :" ;
Leer Platos ;
total=(Costo * Platos);
3: Escribir "Por favor Ingrese el costo del plato seleccionado: " ;
Leer Costo ;
Escribir "Por favor Ingrese la cantidad de platos :" ;
Leer Platos ;
total=(Costo * Platos);
4:Escribir "Por favor Ingrese el costo del plato seleccionado: " ;
Leer Costo ;
Escribir "Por favor Ingrese la cantidad de platos :" ;
Leer Platos ;
total=(Costo * Platos);
De Otro Modo:
Escribir " OPCIÓN INVÁLIDA, INGRESE SU MENÚ CORRECTAMENTE!!! "
Fin Segun
montotal=montotal+total;
Escribir "Si desea seleccionar otro menu presione (s), si no presione (n)";
Leer again;
Hasta Que (again="n")
Escribir "Querido cliente su monto a pagar es: ", montotal " Bs.F. ";
FinProceso
muy bueno gracias por la ayuda plis
ResponderEliminar