martes, 10 de junio de 2014

TECNOLOGÍA VERDE

La Tecnología Verde es ya una realidad. Y es tal su importancia que tomar ventaja de ella puede hacer la diferencia entre gastar y ahorrar, ganar y perder. ¿Quiere saber hacia dónde va la Tecnología Verde y cuáles son las ventajas que puede darle a su empresa?

La Tecnología Verde es una tendencia que surge en Latino américa desde el inicio de los años 70´s. Sin embargo, la creciente preocupación a nivel mundial por la sustantividad ha despertado en los últimos años especial interés en México y Sudamérica por conocer más sobre la Tecnología Verde y empezar aplicarla en la industria.

La Tecnología Verde surge de la necesidad de generar ahorros y reducir el impacto ambiental en el propio entorno. Así, las empresas que desarrollan e implementan iniciativas verdes son también fuente de proveedores más confiables, implementan mejoras importantes en temas de logística y cuentan con una mejor reputación hacia el público en general.

Un estudio realizado por las Naciones Unidas mostró que 80% de los consumidores podrían dejar de comprar a un proveedor si sus procesos de compras no son éticos. La sensibilidad global del mercado y la ética empresarial se han elevado significativamente y las prácticas sustentables son ahora un factor de competitividad. Considerando esto, ¿cómo podríamos negar la creciente importancia de la Tecnología Verde?

'El concepto de Green IT (Tecnología Verde) es muy amplio, involucra el manejo de Centros de Datos (Data Center), el uso óptimo de la electricidad y consumo de los dispositivos que se requieren en el área de TI, con el diseño requerido para el uso y consumo de energía y su aplicación en diferentes sistemas', explicó Héctor Ortiz, Presidente del Consejo de la Industria de Software de Nuevo León, en México.

'El tema green tiene muchas variantes; el caso del software, es un buen ejemplo. Nace siendo blanco porque favorece la eficiencia de los procesos, favorece la transparencia de la información y aminora el uso de los recursos que podrían representar contaminación'.

Existen diferentes maneras en las que una empresa puede involucrarse en el concepto de la Tecnología Verde. Lo primero es conocer sus pilares: la educación, el diseño y la administración.

'La educación, es un elemento clave que sensibiliza a las personas que están en contacto directo con la tecnología sobre sus repercusiones al medio ambiente. El diseño es lo referente a cómo impacta la logística de una planta o la disposición de los elementos tecnológicos en un supermercado el consumo de energía y por ende, cómo puede optimizarse y reducirse el costo total de propiedad (TCO) con el manejo adecuado de los recursos. Finalmente, la adecuada administración contribuye con el tema en acciones como el ahorro de hojas de papel cuando se generan reportes y se analizan bases de datos, sin necesidad de imprimirlos, por ejemplo', dijo Ortiz.

'Las empresas pueden contribuir con campañas de concientización dirigidas a los empleados sobre acciones tan sencillas como apagar su computadora y la luz al salir de la oficina; más adelante, al profundizar en esta tendencia y llevarla hasta la alta dirección y la gerencia, se encuentra el tema de la eficiencia que genera el uso del ERP (software de Plantación de Recursos Empresariales). Hay muchos avances por venir en cuestión de dispositivos, edificios inteligentes, lo importante es que el concepto de Tecnología Verde empiece a sonar más en la industria para que la gente cobre plena conciencia y se involucre ya, en mayor o menor escala'.

Para Ortiz, este es el momento ideal para que los empresarios y ejecutivos conozcan más sobre el tema y empiecen a extenderlo en sus industrias.

'La tecnología impacta directamente el ambiente en que vivimos; si participamos en esto, no estamos actuando como una empresa social mente responsable. Y no sólo eso, podemos estar perdiéndonos de importantes reducciones en costos, en consumo de energía. El diseño de sistemas y centros de datos son hoy un valor agregado; más adelante, serán un requerimiento a nivel industrial'.

El ERP y la Tecnología Verde

Si una compañía busca crear y mantener el balance del carbono, debe considerar dos factores. Primero que nada, todos los procesos del negocio deben ser transparentes y fáciles de revisar, y las compañías deben poder identificar y evaluar de la forma más realista posible los ahorros de carbono.

Un moderno sistema ERP puede hacer la eficiencia de los procesos del negocio una realidad, mientras que el cálculo de las emisiones de carbono a través de la misma solución puede otorgarle ventajas financieras y competitivas adicionales.

'Años atrás, las compañías usaban hojas de Excel para calcular las emisiones; sin embargo, se requerían reportes más detallados y métodos más rigurosos para encontrar con mayor precisión los ahorros de carbono', explicó Pedro Garza, Gerente de Ingeniería en Sistemas de Picor Software para Latino américa y el Caribe.

'Afortunadamente, existen ya aplicaciones que ayudan a nuestros clientes a identificar, analizar, dar seguimiento, manejar, comparar y reportar emisiones de carbono, impacto ambiental y uso de la energía. Dado que estos sistemas se basan en facturas de electricidad y combustible, y también se contemplan los planes de producción para volúmenes de manufactura actuales y futuros, pueden calcularse fácilmente emisiones proyectadas y estimarse en presupuestos para costos ambientales'.

Aunque la tendencia de medir las emisiones de carbono aún está en su fase inicial en Latino américa, prepararse para la Tecnología Verde, con sus implicaciones y beneficios, es una tarea que toda compañía debe considerar seriamente.

'Esto será fundamental para la administración de todo el negocio, ayudará a las compañías a aprovechar el tema verde para satisfacer requerimientos legales, de marketing y relaciones públicas y a mejorar la eficiencia en su operación; definitivamente, esto es algo positivo para los emprendedores, los inversionistas, los consumidores y desde luego, para el medio ambiente', concluyó Garza.

Amplíe esta sección para conocer más detalles y acceder a los recursos en línea relacionados con las actividades del ITC en el ámbito de las tecnologías verdes.
Las tecnologías verdes han crecido en volumen durante los últimos veinte años hasta alcanzar niveles equiparables a los de la industria aeroespacial o la farmacéutica – el mercado mundial en 2008 alcanzó $EE.UU. 600.000 millones – y se prevé que antes de 2020 este mercado alcance los $EE.UU. 3 billones.
Gracias a mejores condiciones de inversión y al creciente número de consumidores, cada vez son más los países en desarrollo que adquieren protagonismo en la producción de tecnologías verdes. El aumento de la producción, a su vez, está propiciando un mayor potencial para el desarrollo Sur-Sur.
- See more at: http://www.intracen.org/itc/sectores/tecnologias-verdes/#sthash.dMYFgHbt.dpuf
Las tecnologías verdes, también denominadas tecnologías no contaminantes o ecológicas, son aquellos bienes y servicios que mejoran la calidad del aire, del agua, del suelo o que buscan soluciones a los problemas relacionados con los residuos o el ruido. Estas tecnologías pueden ser muy diferentes y abarcan desde sistemas de alta tecnología, sumamente complejos y costosos, hasta soluciones sencillas. 
El equipo de asistencia técnica del ITC que se ocupa de los asuntos comerciales define las tecnologías verdes como aquellos sistemas y servicios que respetan el medio ambiente, que son asequibles, adaptables y aplicables para los países en desarrollo – o que estos países puedan exportar.
- See more at: http://www.intracen.org/itc/sectores/tecnologias-verdes/#sthash.dMYFgHbt.dpuf

viernes, 6 de junio de 2014

Proceso sin_titulo
definir a,b,c,d Como Real;
escribir "ingrese el tiempo de antiguedad";
leer a;
Escribir "Ingrese el sueldo";
leer b;

si (a<500)& (b>500)entonces
c<-(a*0.20);
d<-(c+a);
si (a<500)& (b<500)entonces
c<-(a*0.05);
d<-(c+a);
si (a>=500)entonces
d<-a;
FinSi
   FinSi
    FinSi

FinProceso

Proceso sin_titulo
definir a,b,c,d Como Real;
escribir "ingrese el tiempo de antiguedad";
leer a;
Escribir "Ingrese el sueldo";
leer b;

si (a<500)& (b>500)entonces
c<-(a*0.20);
d<-(c+a);
si (a<500)& (b<500)entonces
c<-(a*0.05);
d<-(c+a);
si (a>=500)entonces
d<-a;
FinSi
   FinSi
    FinSi

FinProceso
Proceso capitales
Definir es, hond, guat, cost, pana, nic Como Caracter;
Definir pais, sc Como Caracter;
es<-"san salvador";
hond<-"tegucigalpa";
guat<-"guatemala";
cost<-"san jose";
pana<-"panama";
nic<-"managua";
Repetir
Escribir "ingrese pais";
Leer pais;
Si pais="el salvador" | pais="EL SALVADOR" | pais="El Salvador" | pais="elsalvador" | pais="ELSALVADOR" Entonces
Escribir "la capital es:", es;
Sino
si pais="honduras" | pais="HONDURAS" | pais="Honduras" Entonces
Escribir "la capital es:", hond;
Sino
si pais="guatemala" | pais="GUATEMALA" | pais="Guatemala"  Entonces
Escribir "la capital es:", guat;
Sino
si pais="costa rica" | pais="COSTA RICA" | pais="Costa Rica" | pais="costarica" | pais="COSTARICA"  Entonces
Escribir "la capital es:", cost;
Sino
si pais="panama" | pais="PANAMA" | pais="Panama" Entonces
Escribir "la capital es:", pana;
Sino
si pais="nicaragua" | pais="NICARAGUA" | pais="Nicaragua" Entonces
Escribir "la capital es:", nic;
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Escribir "si desea continuar ingrese: si, sino, igrese: no";
Leer sc;
Hasta Que sc="no" | sc="NO"
FinProceso
Proceso sin_titulo
definir interes, capital, tiempo, pin Como Real;
Escribir "ingrese interes";
Leer Interes;
Escribir "ingrese capital";
Leer capital;
Escribir "ingrese tiempo en años";
Leer tiempo;
pin<-((interes*capital)/tiempo);
Escribir "El interes simple es de ",pin;
FinProceso

Proceso libros
definir a,c como cadena;
definir b como entero;
dimension a(5,5);
b<-0;
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir "ingrese el titulo";
leer a(b,0);
escribir "ingrese el autor";
leer a(b,1);
escribir "ingrese el nombre";
leer a(b,2);
escribir "ingrese el año de edición";
leer a(b,3);
escribir "ingrese el codigo del libro";
leer a(b,4);

FinPara
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir a(b,0);
Escribir a(b,1);
   Escribir a(b,2);
escribir a(b,3);
  escribir a(b,4);
    FinPara

    Escribir "ingrese: [ escribus ],para terminar el programa";
    Leer c;
    Mientras (c <> "escribus") Hacer
        Escribir "ingrese: [ escribus ], para terminar el programa";    
        Leer c;
    FinMientras

FinProceso

Proceso sin_titulo
definir num, multiplicacion Como Entero;
escribir "ingrese nuemro ";
leer num;
multiplicacion <- num*2;
escribir "la multiplicacion es de ", multiplicacion;
FinProceso

Proceso sin_titulo
definir x, num como entero;
Para x<-1 Hasta 10 Con Paso 1 Hacer
si x % 2 = 0 entonces
escribir "el numero: ", x,"es par";
sino
escribir "el numero: ", x,"es impar";
FinSi
FinPara
FinProceso

Proceso sin_titulo
definir x, num como entero;
Para x<-1 Hasta 10 Con Paso 1 Hacer
si x % 2 = 0 entonces
escribir "el numero: ", x,"es par";
sino
escribir "el numero: ", x,"es impar";
FinSi
FinPara
FinProceso

Proceso Pedir_Tres_Nombres
definir nombre,telefono Como Caracter;
definir edad,sueldo Como Real;
definir a Como Entero;
Para a<-1 Hasta 3 Con Paso 1 Hacer
Escribir "Empleado", a;
Escribir "Nombre";
Leer nombre;
Escribir "telefono",;
leer telefono;
Escribir "edad";
Leer edad;
Escribir "sueldo";
leer sueldo;
FinPara
FinProceso

Proceso Tablas_de_multiplicar
definir a,b,c como entero;
Para a<-1 Hasta 10 Con Paso 1 Hacer
Escribir "tabla ", a;
Para b<-1 Hasta 10 Con Paso 1  Hacer
c<-a*b;
Escribir a," x ", b," = ",c ;
FinPara
FinPara
FinProceso

Proceso sumar_dos_numeros
definir n1,n2,suma Como Entero;
escribir "ingrese numero 1";
leer n1;
escribir "ingrese numero 2";
leer n2;
suma<- n1+n2;
Escribir "la suma es de ",suma;
FinProceso

Proceso sumar_dos_numeros
definir n1,n2,suma Como Entero;
escribir "ingrese numero 1";
leer n1;
escribir "ingrese numero 2";
leer n2;
suma<- n1+n2;
Escribir "la suma es de ",suma;
FinProceso

Proceso sin_titulo
definir nota1,nota2,nota3,promedio Como Real;
Escribir "Ingrese nota1 ";
leer nota1;
Escribir "Ingrese nota2 ";
leer nota2;
Escribir "Ingrese nota3 ";
leer nota3;
promedio<- ((nota1+nota2+nota3)/3);
Escribir "El promedio es de ",promedio;
FinProceso

Proceso sin_titulo
definir nota1,nota2,nota3,promedio Como Real;
Escribir "Ingrese nota1 ";
leer nota1;
Escribir "Ingrese nota2 ";
leer nota2;
Escribir "Ingrese nota3 ";
leer nota3;
promedio<- ((nota1+nota2+nota3)/3);
Escribir "El promedio es de ",promedio;
FinProceso

Proceso numeros_a_letras
Definir Numero como Numerico;
Escribir "Ingrese un número entre 0 y 1000";
Leer Numero;
Definir SePuedeConvertir Como Logico;
SePuedeConvertir<-Verdadero;
Si Numero=0 Entonces
Escribir "cero";
FinSi
Si Numero<>trunc(numero) Entonces
Escribir "El número debe ser entero";
SePuedeConvertir<-Falso;
FinSi
Si Numero>1000 Entonces
Escribir "Esta fuera del rango";
SePuedeConvertir<-Falso;
FinSi
Si Numero<0 Entonces
Escribir "Debe ser mayor que cero";
SePuedeConvertir<-Falso;
FinSi

Si SePuedeConvertir Entonces
Si Numero=1000 Entonces
Escribir "mil";
Sino
Dimension nu[10], nd[10], nc[10];
Definir nu,nd,nc Como Caracter;
nu(0)<-''; nu(1]<-'uno'; nu(2)<-'dos'; nu(3)<-'tres'; nu(4)<-'cuatro'; nu(5)<-'cinco'; nu[6)<-'seis'; nu(7)<-'siete'; nu(8)<-'ocho'; nu(9)<-'nueve';
nd(0)<-''; nd(1)<-'diez'; nd(2)<-'veinte'; nd(3)<-'treinta'; nd(4)<-'cuarenta'; nd(5)<-'cincuenta'; nd(6)<-'sesenta'; nd(7)<-'setenta'; nd(8)<-'ochenta'; nd(9)<-'noventa';
nc(0)<-''; nc(1)<-'cien'; nc(2)<-'doscientos'; nc(3)<-'trecientos'; nc(4)<-'cuatrocientos'; nc(5)<-'quinientos'; nc(6)<-'seiscientos'; nc(7)<-'setecientos'; nc(8)<-'ochocientos'; nc(9)<-'Novecientos';
Definir centenas,decenas,unidades como numeros;
centenas<-trunc(Numero/100) % 10;
decenas<-trunc(Numero/10) % 10;
unidades<-Numero % 10;
Escribir nc[centenas],nd[decenas],nu[unidades];
FinSi
FinSi

FinProceso

INDICACIONES: A continuación se presenta una serie de ejercicios se solicita desarrollarlos de manera ordenada, haga uso de vectores ciclos y valide los datos. Cada ejercicio debe contar con la opción de repetir las acciones; además validar el ingreso de los datos cuando sean numéricos. Se entregaran los ejercicios en una carpeta con caratula. Resultados idénticos con otros grupos anulara la nota del ejercicio.
Pseudocódigo y Flujogramas
1. Realizar un programa que genere 100 números, y luego me indique una lista de opciones de lo que quiero obtener si son los números primos, los pares e impares. Al seleccionar cualquiera de estas opciones me debe generar el resultado deseado, además, debe mostrar la opción de repetir el ejercicio.
2. Realice un programa que permita al usuario elegir entre varios ejercicios:
a) Calcular el área de una esfera.
b) Calcular el perímetro de un círculo.
c) Determinar el área de un cubo.
Para solucionar este ejercicio debe tomar en cuenta lo siguiente:
 Todas las medidas requeridas para el usuario deben ser en milímetros.
 Las respuestas deben mostrarse en centímetros, centímetros cuadrados o centímetros cúbicos dependiendo del ejercicio.
 Al mostrar el resultado, debe de inmediato volver a mostrar el menú con las opciones y también ofrecer la opción salir.
3. La comercial BUENO, BONITO Y BARATO desea un programa que le permita ingresar el nombre del cliente, además ingrese el precio individual y el total de unidades de un listado de X productos comprados. Además debe generar al final el precio Total a pagar.
4. Realice un programa que permita ingresar un listado de 3 notas, a 12 estudiantes de la carrera de ingeniería en sistemas ciclo I, las notas corresponden a laboratorio 1 y 2 que equivalen al 30% cada una, así mismo al parcial final.
También debe generar:
 El nombre del estudiante que tenga la nota máxima
FUNDAMENTOS DE PROGRAMACION 22 de abril de 2014
Ing. Timotea Guadalupe Menjivar 2
 El nombre del estudiante que tenga la nota mínima.
 El listado de estudiantes cuyas notas sean mayores o iguales a 7.
5. Realice un programa en P-seint usando el ciclo mientras y vectores que guarde los datos de x cantidad de libros. Los datos a almacenar son: titulo, autor, nombre, año de edición, código del libro, luego que genere los registros de menor a mayor. El programa debe terminar cuando el usuario escriba la palabra escribus.
6. Realice un ejercicio que genere los números impares hasta n número en orden ascendente.
7. Realice un ejercicio que genere los números múltiplos de 7 hasta n número en orden ascendente.
8. Calcular la suma de los números cuadrados comprendidos entre 1 a 1000.
9. Realice un programa en pseint que solicite cualquier número y luego devuelva su similar en números Romanos.
10. Realice una planilla de pago de 15 personas debe generar al final los descuentos respectivos de cada empleado haga uso de vectores.
11. Realice un ejercicio en pseint que almacene las capitales de los países centroamericanos y luego los muestre en orden descendente al que fueron ingresados. Haga uso de vectores y ciclos.
12. Usando como ejemplo el ejercicio anterior realice un programa que pida un país centroamericano y muestre la capital de ese país.
13. Realice un programa que al pedir un numero me muestre su equivalente en letras ej. 15 quince.
14. Realice un programa que calcule la renta de al menos 20 empleados.
15. Realice un programa que muestre los números cuadrados del 1 al 100 GUIA RESUELTA 70% NOTA
1.
DEFINICION CORRECTA DE VARIABLES
2.
DEFINICION CORRECTA DE PROCEDIMIENTOS
3.
USO CORRECTO DE ESTRUCTURAS EN LOS FLUJOGRAMAS
4.
UNIÓN CORRECTA DE LAS LÍNEAS DE LAS ESTRUCTURAS
5.
FUNCIONALIDAD
6.
APLICACIÓN DE LOGICA
DEFENSA 30%
7.
DOMINIO DE LAS ESTRUCTURAS
8.
EXPLICA CORRECTAMENTE LA FUNCIONALIDAD DEL EJERCICIO
9.
DOMINA EL MÉTODO DE SOLUCIÓN APLICADO
10.
CONDUCTA Y PRESENTACION RESPETUOSA
Proceso Primos
Definir a,b,c,d,e,f,g,h Como Entero;
Definir num como cadena;
Definir cant_a_mostrar,n,cant_mostrados,i Como Entero;
Definir es_primo Como Logico;

a<-0;
e<-1;
Escribir "Lista de lo que puede optener";
Escribir "Lista de Numeros Primo: primo ";
Escribir "Lista de Numeros Pares: par";
Escribir "Lista de Numeros Impares: impar";
Repetir
Escribir "Que lista quiere optener: ";
Leer num;
Hasta Que num="primo" | num="Primo" | num="PRIMO"| num="par" | num="PAR" | num="Par"| num="impar" | num="IMPAR"| num="Impar" ;
Para a<-1 Hasta 100 Con Paso 1 Hacer
Si a%2=0 Entonces
Si num="par" | num="PAR" | num="Par" Entonces
Escribir a;
Sino
Si num="impar" | num="IMPAR"| num="Impar" Entonces
Para e<-1 Hasta 100 Con Paso 1 Hacer
Mientras e<=e Hacer
Escribir e;
e<-e+2;
FinMientras
FinPara
Sino
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Para f<-1 Hasta 100 Con Paso 1 Hacer
g<-0;
Para h<-1 Hasta f Con Paso 1 Hacer
Si f%h=0 Entonces
g<-g+1;
FinSi
FinPara
Si g=2 Entonces
escribir f;
FinSi
FinPara
FinSi
FinSi

FinSi
FinSi
FinPara
FinProceso

Proceso Persona_Mayor_de_Edad Definir Persona Como Entero; Escribir "Ingrese Años"; Leer Persona; Si Persona<1996 Entonces Escribir "La Edad ", Persona, " es mayor"; Sino Escribir "La Edad ", Persona, " es menor"; FinSi FinProceso
Proceso promedio definir A,B,C,D Como Entero; Escribir "ingese nota 1"; Leer A; Escribir "ingrese nota 2"; Leer B; Escribir "ingrese nota 3"; Leer C; d<-(a+b+c)/3; Escribir "la nota es:",d; Si d>=6 Entonces Escribir " su nota es " , d," es aprovado" ; Sino Escribir " su nota es " , d, " es reprobado"; FinSi FinProceso
                                                                         





Proceso edad Definir edad como ENTERO; Escribir "ingrese su edad"; Leer edad; si edad < 12 Entonces; escribir "El es", "Niño" ; Sino si edad>=13^29 Entonces; escribir "El es", "Joven"; sino si edad >=30 Entonces; escribir "El es", "Adulto"; FinSi FinSi FinSi FinProceso
Proceso libros
definir a,c como cadena;
definir b como entero;
dimension a(5,5);
b<-0;
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir "ingrese el titulo";
leer a(b,0);
escribir "ingrese el autor";
leer a(b,1);
escribir "ingrese el nombre";
leer a(b,2);
escribir "ingrese el año de edición";
leer a(b,3);
escribir "ingrese el codigo del libro";
leer a(b,4);

FinPara
Para b<-0 Hasta 4 Con Paso 1 Hacer
escribir a(b,0);
Escribir a(b,1);
   Escribir a(b,2);
escribir a(b,3);
  escribir a(b,4);
    FinPara

    Escribir "ingrese: [ escribus ],para terminar el programa";
    Leer c;
    Mientras (c <> "escribus") Hacer
        Escribir "ingrese: [ escribus ], para terminar el programa";    
        Leer c;
    FinMientras

FinProceso

Proceso Persona_Mayor_de_Edad Definir Persona Como Entero; Escribir "Ingrese Años"; Leer Persona; Si Persona<1996 Entonces Escribir "La Edad ", Persona, " es menor"; Sino Escribir "La Edad ", Persona, " es mayor"; FinSi FinProceso Proceso Compra_mas_IVA Definir a,b,c,d como Real; Escribir "Ingrese el Precio:"; Leer a; b<-0.13; c<-a*b; d<-(a+c); Escribir "El costo mas IVA:",d; FinProceso
Proceso  alumno_reprovado_o_aprovado definir A,B,C,D Como Entero; Escribir "ingese nota 1"; Leer A; Escribir "ingrese nota 2"; Leer B; Escribir "ingrese nota 3"; Leer C; d<-(a+b+c)/3; Escribir "la nota es:",d; Si d>=6 Entonces Escribir " su nota es " , d," es aprovado" ; Sino Escribir " su nota es " , d, " es reprobado"; FinSi FinProceso
Proceso capitales
Definir es, hond, guat, cost, pana, nic Como Caracter;
Definir pais, sc Como Caracter;
es<-"san salvador";
hond<-"tegucigalpa";
guat<-"guatemala";
cost<-"san jose";
pana<-"panama";
nic<-"managua";
Repetir
Escribir "ingrese pais";
Leer pais;
Si pais="el salvador" | pais="EL SALVADOR" | pais="El Salvador" | pais="elsalvador" | pais="ELSALVADOR" Entonces
Escribir "la capital es:", es;
Sino
si pais="honduras" | pais="HONDURAS" | pais="Honduras" Entonces
Escribir "la capital es:", hond;
Sino
si pais="guatemala" | pais="GUATEMALA" | pais="Guatemala"  Entonces
Escribir "la capital es:", guat;
Sino
si pais="costa rica" | pais="COSTA RICA" | pais="Costa Rica" | pais="costarica" | pais="COSTARICA"  Entonces
Escribir "la capital es:", cost;
Sino
si pais="panama" | pais="PANAMA" | pais="Panama" Entonces
Escribir "la capital es:", pana;
Sino
si pais="nicaragua" | pais="NICARAGUA" | pais="Nicaragua" Entonces
Escribir "la capital es:", nic;
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Escribir "si desea continuar ingrese: si, sino, igrese: no";
Leer sc;
Hasta Que sc="no" | sc="NO"
FinProceso
Proceso emple
Definir nombre Como Caracter;
Definir a,sueldo,renta,trenta Como Real;
a<-1;
Mientras a<20 Hacer
Escribir "Ingrese el Nombre del Empleado: ";
Leer nombre;
Escribir "Ingrese Sueldo: ";
Leer sueldo;
renta<-sueldo*0.10;
Escribir "La renta es: ",renta;
trenta<-sueldo-renta;
Escribir "El sueldo Total es: ",trenta;
a<-a+1;
FinMientras
FinProceso

Proceso ingresacapital
Definir g como cadena;
Definir h como entero;
Dimension g(6);
h<-0;
Mientras h<6 Hacer
Escribir "ingrese capital";
Leer g(h);
h<-h+1;
FinMientras
Para h<-5 Hasta 0 Con Paso -1 Hacer
Escribir g(h);
FinPara

FinProceso

Proceso multi_7
Definir a,b,c,d Como Entero;
Escribir "Cantidad: ";
Leer a;
Para d<-1 Hasta a Con Paso 1 Hacer
c<-7*d;
Escribir "7", "x", d ,"=", c;
FinPara
FinProceso

ejercicio para conocer el promedio de alumnos y conocer los aprobados y reprobados.

Proceso notas
Definir nombre Como Caracter;
Definir lab1,lab2,parcial,total1,total2,total3,res  Como Real;
Definir a, b como entero;
Definir may1, may2 como caracter;
Dimension nombre(12);
Dimension res(12);
a<-0;
b<-0;
Para a<-0 hasta 11 con paso 1 hacer
Escribir "ingrese nombre alumno", a+1;
Leer nombre(a);
Escribir "nota laboratorio 1";
Leer lab1;
Escribir "nota laboratorio 2";
Leer lab2;
Escribir "nota parcial";
Leer parcial;
total1<-lab1*0.30;
total2<-lab2*0.30;
total3<-parcial*0.40;
res(b)<-total1+total2+total3;
Escribir "el promedio es:", res(b);
b<-b+1;
FinPara
Si res(0)>res(1) & res(0)>res(2) & res(0)>res(3) & res(0)>res(4) & res(0)>res(5) & res(0)>res(6) & res(0)>res(7) & res(0)>res(8) & res(0)>res(9) & res(0)>res(10) & res(0)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(0);
Sino
si res(1)>res(0) & res(1)>res(2) & res(1)>res(3) & res(1)>res(4) & res(1)>res(5) & res(1)>res(6) & res(1)>res(7) & res(1)>res(8) & res(1)>res(9) & res(1)>res(10) & res(1)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(1);
Sino
si res(2)>res(0) & res(2)>res(1) & res(2)>res(3) & res(2)>res(4) & res(2)>res(5) & res(2)>res(6) & res(2)>res(7) & res(2)>res(8) & res(2)>res(9) & res(2)>res(10) & res(2)>res(11)Entonces
Escribir "La nota mayor es de:", nombre(2);
Sino
Si res(3)>res(0) & res(3)>res(1) & res(3)>res(2) & res(3)>res(4) & res(3)>res(5) & res(3)>res(6) & res(3)>res(7) & res(3)>res(8) & res(3)>res(9) & res(3)>res(10) & res(3)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(3);
Sino
si res(4)>res(0) & res(4)>res(1) & res(4)>res(2) & res(4)>res(3) & res(4)>res(5) & res(4)>res(6) & res(4)>res(7) & res(4)>res(8) & res(4)>res(9) & res(4)>res(10) & res(4)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(4);
Sino
si res(5)>res(0) & res(5)>res(1) & res(5)>res(2) & res(5)>res(3) & res(5)>res(4) & res(5)>res(6) & res(5)>res(7) & res(5)>res(8) & res(5)>res(9) & res(5)>res(10) & res(5)>res(11)Entonces
Escribir "La nota mayor es de:", nombre(5);
       sino
Si res(6)>res(0) & res(6)>res(1) & res(6)>res(2) & res(6)>res(3) & res(6)>res(4) & res(6)>res(5) & res(6)>res(7) & res(6)>res(8) & res(6)>res(9) & res(6)>res(10) & res(6)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(6);
Sino
si res(7)>res(0) & res(7)>res(1) & res(7)>res(2) & res(7)>res(3) & res(7)>res(4) & res(7)>res(5) & res(7)>res(6) & res(7)>res(8) & res(7)>res(9) & res(7)>res(10) & res(7)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(7);
Sino
si res(8)>res(0) & res(8)>res(1) & res(8)>res(2) & res(8)>res(3) & res(8)>res(4) & res(8)>res(5) & res(8)>res(6) & res(8)>res(7) & res(8)>res(9) & res(8)>res(10) & res(8)>res(11)Entonces
Escribir "La nota mayor es de:", nombre(8);
sino
Si res(9)>res(0) & res(9)>res(1) & res(9)>res(2) & res(9)>res(3) & res(9)>res(4) & res(9)>res(5) & res(9)>res(6) & res(9)>res(7) & res(9)>res(8) & res(9)>res(10) & res(9)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(9);
Sino
si res(10)>res(0) & res(10)>res(1) & res(10)>res(2) & res(10)>res(3) & res(10)>res(4) & res(10)>res(5) & res(10)>res(6) & res(10)>res(7) & res(10)>res(8) & res(10)>res(9) & res(10)>res(11) Entonces
Escribir "La nota mayor es de:", nombre(10);
Sino
si res(11)>res(0) & res(11)>res(1) & res(11)>res(2) & res(11)>res(3) & res(11)>res(4) & res(11)>res(5) & res(11)>res(6) & res(11)>res(7) & res(11)>res(8) & res(11)>res(9) & res(11)>res(10)Entonces
Escribir "La nota mayor es de:", nombre(10);
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
               FinSi
           FinSi
FinSi
FinSi
FinSi
Si res(0)<res(1) & res(0)<res(2) & res(0)<res(3) & res(0)<res(4) & res(0)<res(5) & res(0)<res(6) & res(0)<res(7) & res(0)<res(8) & res(0)<res(9) & res(0)<res(10) & res(0)<res(11) Entonces
Escribir "La nota menor es de:", nombre(0);
Sino
si res(1)<res(0) & res(1)<res(2) & res(1)<res(3) & res(1)<res(4) & res(1)<res(5) & res(1)<res(6) & res(1)<res(7) & res(1)<res(8) & res(1)<res(9) & res(1)<res(10) & res(1)<res(11) Entonces
Escribir "La nota menor es de:", nombre(1);
Sino
si res(2)<res(0) & res(2)<res(1) & res(2)<res(3) & res(2)<res(4) & res(2)<res(5) & res(2)<res(6) & res(2)<res(7) & res(2)<res(8) & res(2)<res(9) & res(2)<res(10) & res(2)<res(11)Entonces
Escribir "La nota menor es de:", nombre(2);
Sino
Si res(3)<res(0) & res(3)<res(1) & res(3)<res(2) & res(3)<res(4) & res(3)<res(5) & res(3)<res(6) & res(3)<res(7) & res(3)<res(8) & res(3)<res(9) & res(3)<res(10) & res(3)<res(11) Entonces
Escribir "La nota menor es de:", nombre(3);
Sino
si res(4)<res(0) & res(4)<res(1) & res(4)<res(2) & res(4)<res(3) & res(4)<res(5) & res(4)<res(6) & res(4)<res(7) & res(4)<res(8) & res(4)<res(9) & res(4)<res(10) & res(4)<res(11) Entonces
Escribir "La nota menor es de:", nombre(4);
Sino
si res(5)<res(0) & res(5)<res(1) & res(5)<res(2) & res(5)<res(3) & res(5)<res(4) & res(5)<res(6) & res(5)<res(7) & res(5)<res(8) & res(5)<res(9) & res(5)<res(10) & res(5)<res(11)Entonces
Escribir "La nota menor es de:", nombre(5);
       sino
Si res(6)<res(0) & res(6)<res(1) & res(6)<res(2) & res(6)<res(3) & res(6)<res(4) & res(6)<res(5) & res(6)<res(7) & res(6)<res(8) & res(6)<res(9) & res(6)<res(10) & res(6)<res(11) Entonces
Escribir "La nota menor es de:", nombre(6);
Sino
si res(7)<res(0) & res(7)<res(1) & res(7)<res(2) & res(7)<res(3) & res(7)<res(4) & res(7)<res(5) & res(7)<res(6) & res(7)<res(8) & res(7)<res(9) & res(7)<res(10) & res(7)<res(11) Entonces
Escribir "La nota menor es de:", nombre(7);
Sino
si res(8)<res(0) & res(8)<res(1) & res(8)<res(2) & res(8)<res(3) & res(8)<res(4) & res(8)<res(5) & res(8)<res(6) & res(8)<res(7) & res(8)<res(9) & res(8)<res(10) & res(8)<res(11)Entonces
Escribir "La nota menor es de:", nombre(8);
sino
Si res(9)<res(0) & res(9)<res(1) & res(9)<res(2) & res(9)<res(3) & res(9)<res(4) & res(9)<res(5) & res(9)<res(6) & res(9)<res(7) & res(9)<res(8) & res(9)<res(10) & res(9)<res(11) Entonces
Escribir "La nota menor es de:", nombre(9);
Sino
si res(10)<res(0) & res(10)<res(1) & res(10)<res(2) & res(10)<res(3) & res(10)<res(4) & res(10)<res(5) & res(10)<res(6) & res(10)<res(7) & res(10)<res(8) & res(10)<res(9) & res(10)<res(11) Entonces
Escribir "La nota menor es de:", nombre(10);
Sino
si res(11)<res(0) & res(11)<res(1) & res(11)<res(2) & res(11)<res(3) & res(11)<res(4) & res(11)<res(5) & res(11)<res(6) & res(11)<res(7) & res(11)<res(8) & res(11)<res(9) & res(11)<res(10)Entonces
Escribir "La nota menor es de:", nombre(10);
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
               FinSi
           FinSi
FinSi
FinSi
FinSi
Escribir "notas mayores o igual a 7:";
Si res(0)>6 Entonces
Escribir nombre(0);
Sino
    FinSi
si res(1)>6 Entonces
Escribir nombre(1);
Sino
FinSi
si res(2)>6 Entonces
Escribir nombre(2);
Sino
FinSi
    si res(3)>6 Entonces
Escribir nombre(3);
Sino
FinSi
si res(4)>6 Entonces
Escribir nombre(4);
Sino
FinSi
si res(5)>6 Entonces
Escribir nombre(5);
Sino
FinSi
si res(6)>6 Entonces
Escribir nombre(6);
Sino
FinSi
si res(7)>6 Entonces
Escribir nombre(7);
Sino
FinSi
si res(8)>6 Entonces
Escribir nombre(8);
Sino
FinSi
si res(9)>6 Entonces
Escribir nombre(9);
Sino
FinSi
    si res(10)>6 Entonces
   Escribir nombre(10);
Sino
FinSi
si res(11)>6 Entonces
Escribir nombre(11);
Sino
FinSi
FinProceso

proceso para calcular la cantidad a pagar de una lista de productos.

Proceso sin_titulo
definir a,b,d,prec,total Como Real;
Definir nombre,c Como Caracter;
Definir e como entero;
b<-0;
total<-0;
Escribir "Nombre del Cliente: ";
Leer nombre;
Escribir "ingrese el numero de productos a ingresar";
Leer e;
Repetir
Escribir "Nombre del Producto: ",b;
Leer nombre;
Escribir "Cantidad de Producto: ";
Leer a;
Escribir "Precio: ";
Leer d;
prec<-a*d;
b<-b+1;
Escribir "total producto", b,"=","$",prec;
total<-total+prec;
Hasta Que b=e
Escribir "el total es de:", "$", total;
FinProceso

proceso para calcular numeros primos

Proceso Primos
Definir a,b,c,d,e,f,g,h Como Entero;
Definir num como cadena;
Definir cant_a_mostrar,n,cant_mostrados,i Como Entero;
Definir es_primo Como Logico;

a<-0;
e<-1;
Escribir "Lista de lo que puede optener";
Escribir "Lista de Numeros Primo: primo ";
Escribir "Lista de Numeros Pares: par";
Escribir "Lista de Numeros Impares: impar";
Repetir
Escribir "Que lista quiere optener: ";
Leer num;
Hasta Que num="primo" | num="Primo" | num="PRIMO"| num="par" | num="PAR" | num="Par"| num="impar" | num="IMPAR"| num="Impar" ;
Para a<-1 Hasta 100 Con Paso 1 Hacer
Si a%2=0 Entonces
Si num="par" | num="PAR" | num="Par" Entonces
Escribir a;
Sino
Si num="impar" | num="IMPAR"| num="Impar" Entonces
Para e<-1 Hasta 100 Con Paso 1 Hacer
Mientras e<=e Hacer
Escribir e;
e<-e+2;
FinMientras
FinPara
Sino
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Para f<-1 Hasta 100 Con Paso 1 Hacer
g<-0;
Para h<-1 Hasta f Con Paso 1 Hacer
Si f%h=0 Entonces
g<-g+1;
FinSi
FinPara
Si g=2 Entonces
escribir f;
FinSi
FinPara
FinSi
FinSi

FinSi
FinSi
FinPara
FinProceso

Proceso Primos
Definir a,b,c,d,e,f,g,h Como Entero;
Definir num como cadena;
Definir cant_a_mostrar,n,cant_mostrados,i Como Entero;
Definir es_primo Como Logico;

a<-0;
e<-1;
Escribir "Lista de lo que puede optener";
Escribir "Lista de Numeros Primo: primo ";
Escribir "Lista de Numeros Pares: par";
Escribir "Lista de Numeros Impares: impar";
Repetir
Escribir "Que lista quiere optener: ";
Leer num;
Hasta Que num="primo" | num="Primo" | num="PRIMO"| num="par" | num="PAR" | num="Par"| num="impar" | num="IMPAR"| num="Impar" ;
Para a<-1 Hasta 100 Con Paso 1 Hacer
Si a%2=0 Entonces
Si num="par" | num="PAR" | num="Par" Entonces
Escribir a;
Sino
Si num="impar" | num="IMPAR"| num="Impar" Entonces
Para e<-1 Hasta 100 Con Paso 1 Hacer
Mientras e<=e Hacer
Escribir e;
e<-e+2;
FinMientras
FinPara
Sino
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Para f<-1 Hasta 100 Con Paso 1 Hacer
g<-0;
Para h<-1 Hasta f Con Paso 1 Hacer
Si f%h=0 Entonces
g<-g+1;
FinSi
FinPara
Si g=2 Entonces
escribir f;
FinSi
FinPara
FinSi
FinSi

FinSi
FinSi
FinPara
FinProceso