martes, 10 de junio de 2014


Tecnologia y Medio Ambiente.

Problemas medio ambientales provocados por las actividades tecnológicas


Las actividades humanas, desde la obtención de una materia prima, hasta el desecho de los residuos generados tras la obtención de un producto tecnológico.

- Impacto ambiental directo. La ejecución de obras públicas (carreteras, pantanos, etc.) y las explotaciones mineras modifican el ecosistema en el que habitan muchas especies animales y vegetales.


- Contaminación. Quizá sea el efecto más apreciable. El incremento en el consumo de energía ha hecho que aumenten considerablemente las proporciones de determinados gases.


A causa de todos estos antecedentes algunas organizaciones están buscando la manera de revertir todas estas acciones de una forma favorable para todas las personas, con la invención e implementación de nuevos inventos revolucionarios tales como:



- De bolsa a combustible


•La empresa japonesa Blest Corporation creó una máquina que convierte las bolsas de plástico en aceite para ser utilizado como combustible. Esta máquina no es únicamente para fines industriales, sino que puede instalarse en los hogares.


- Lámparas de bajo consumo


• Las lamparitas de bajo consumo no solo cuidan el medio ambiente, sino también tu bolsillo. Ahorran energía, al utilizar un 75% menos de electricidad que las lámparas comunes. Duran hasta 10 veces más y proveen la misma intensidad de luz que sus predecesoras.


- Automóvil híbrido


• ¿Quieres liberarte de la dependencia de los combustibles fósiles y aportar tu grano de arena al cuidado del planeta? Considera cambiar tu automóvil por un híbrido. Incluso cuando lo utilizas con gasolina gasta menos combustible, ya que al tener un motor más pequeño es más eficiente que un auto tradicional.


• Es un automóvil que funciona en base a una baratería recargable, es una de las nuevas opciones para proteger y preservar el medio ambiente un invento muy novedoso que en pocos años estaremos viendo de venta en el mercado.

- Paneles solares


• ¿Una fuente de energía limpia que no es demasiado costosa y puede ayudarte a bajar los costos energéticos de tu hogar mientras cuidas el medio ambiente? Los paneles de energía solar.


- Avión solar

• El avión Solar Impulse, Este aeroplano no contaminante ya ha realizado vuelos de más de 17 horas de duración y promete ser el futuro de la aeronáutica.


-Haciendo agua del aire


AQUA SCIENCES



• Varios sistemas que permiten crear agua extrayendo el hidrógeno del aire ya están en funcionamiento en diversos puntos del mundo. Ideales para solucionar el problema de la falta de agua en zonas que han sufrido desastres naturales o que carecen de este recurso, estas máquinas llevan esperanza a donde aparentemente no la hay.





martes, 3 de junio de 2014

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 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

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 planillas
Definir nombre Como Caracter;
definir sueldo, isss, afp, renta, total, devengado Como Real;
Definir a Como Entero;
a<-0;
Mientras a<15 Hacer
a<-a+1;
Escribir "ingrese nombre empleado", a;
Leer nombre;
Escribir "ingrese sueldo";
Leer sueldo;
isss<-(sueldo*0.03);
afp<-(sueldo*0.0625);
renta<-(sueldo*0.10);
total<-isss+afp+renta;
devengado<-sueldo-total;
Escribir "isss:", isss;
Escribir "afp:", afp;
Escribir "renta:", renta;
Escribir "total sueldo:", devengado;
FinMientras
FinProceso
Proceso Romanos
Definir Numero como Numerico;
Escribir "Ingrese un número entre 1 y 1000";
Leer Numero;
Definir SePuedeConvertir Como Logico;
SePuedeConvertir<-Verdadero;
Si Numero=0 Entonces
Escribir "No existe ningún símbolo para representar el 0";
SePuedeConvertir<-Falso;
FinSi
Si Numero<>trunc(numero) Entonces
Escribir "El número debe ser entero";
SePuedeConvertir<-Falso;
FinSi
Si Numero>1000 Entonces
Escribir "Muy alto";
SePuedeConvertir<-Falso;
FinSi
Si Numero<0 Entonces
Escribir "Debe ser positivo";
SePuedeConvertir<-Falso;
FinSi

Si SePuedeConvertir Entonces
Si Numero=1000 Entonces
Escribir "M";
Sino
Dimension nu[10], nd[10], nc[10];
Definir nu,nd,nc Como Caracter;
nu(0)<-''; nu(1]<-'I'; nu(2)<-'II'; nu(3)<-'III'; nu(4)<-'IV'; nu(5)<-'V'; nu[6)<-'VI'; nu(7)<-'VII'; nu(8)<-'VIII'; nu(9)<-'IX';
nd(0)<-''; nd(1)<-'X'; nd(2)<-'XX'; nd(3)<-'XXX'; nd(4)<-'XL'; nd(5)<-'L'; nd(6)<-'LX'; nd(7)<-'LXX'; nd(8)<-'LXXX'; nd(9)<-'XC';
nc(0)<-''; nc(1)<-'C'; nc(2)<-'CC'; nc(3)<-'CCC'; nc(4)<-'CD'; nc(5)<-'D'; nc(6)<-'DC'; nc(7)<-'DCC'; nc(8)<-'DCCC'; nc(9)<-'CM';
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

Proceso cuadrados
Definir a, b, c Como entero;
b<-0;
c<-1;
Para a<-1 Hasta 100  Con Paso 1 Hacer
b<-b+c^2;
c<-c+1;
FinPara
Escribir "la suma es:", b;
FinProceso

Proceso cuadrados
Definir a, b, c Como entero;
b<-0;
c<-1;
Para a<-1 Hasta 100  Con Paso 1 Hacer
b<-b+c^2;
c<-c+1;
FinPara
Escribir "la suma es:", b;
FinProceso

Proceso capitales
Definir es, hond, guat, cost, pana Como Caracter;
Definir pais Como Caracter;
es<-"san salvador";
hond<-"tegucigalpa";
guat<-"guatemala";
cost<-"san jose";
pana<-"panama";
Escribir "ingrese pais";
Leer pais;
Si pais="el salvador" Entonces
Escribir "la capital es: ", es;
Sino
   si pais="honduras" Entonces
Escribir "la capital es: ", hond;
Sino
si pais="guatemala" Entonces
Escribir "la capital es: ", guat;
Sino
si pais="costa rica" Entonces
Escribir "la capital es: ", cost;
Sino
si pais="panama" Entonces
Escribir "la capital es: ", pana;
FinSi
FinSi
FinSi
FinSi
FinSi


FinProceso
Proceso suma_de_numeros_par_e_impar
definir x,y Como Entero;

x<-0;
Mientras x<=3 Hacer
Escribir "introdusca cantidad: ";
Leer x;
Si (x%2=0) Entonces
Escribir "es par ", x;
Sino
Escribir "es impar ", x;
FinSi
y<-x;
y<-y+x;
Escribir "la suma es :", y;
FinMientras

FinProceso


Proceso numero_positivo
definir numero Como Entero;
Escribir "ingrese un numero:";
Leer numero;
Si numero=0 Entonces
Escribir "el numero ", numero, " es neutro";

Sino
Si numero>0 Entonces
Escribir "el numero ", numero, " es positivo";
Sino
Escribir "el numero ", numero, " es negativo";
FinSi



FinSi

FinProceso
Proceso descuento_medicamento
definir a,b,c Como Real;
Escribir "ingrese el costo del medicamento";
Leer a;
b<-a*0.10;
c<-a-b;
Escribir "el costo final es:",c;
FinProceso

Proceso exponente
definir a,b,c Como Real;
Escribir "ingrese base";
Leer a;
Escribir "ingrese exponente";
Leer b;
c<-a^b;
Escribir "El resultado es:",c;
FinProceso

Proceso hombres_mujeres
Definir h,f,rh,rf Como Entero;
Escribir "Ingrese Cantidad de Hombres:";
Leer h ;
Escribir "Infrese Cantidad de Mujeres:";
Leer f;
rh<-h*0.100;
rf<-f*0.100;
Escribir "El Resultado de Hombres:",rh;
Escribir "El Resultado de Mujeres:",rf;
FinProceso

Proceso descuento
Definir d1,r,rf Como Entero;
Escribir "Ingrese cantidad de Dinero:";
Leer d1;
r<-d1*0.20;
rf<-d1-r;
Escribir "El Resultado Final:",rf;
FinProceso

Proceso sueldo_empleado
definir e1,e2,e3,e4,e5,e6,r,rf Como Entero;
Escribir "ingres el sueldo de el primer empleado";
Leer e1;
Escribir "ingrese el sueldo de el segundo empleado";
Leer e2;
Escribir "ingrese el sueldo de el tercer empleado";
Leer e3;
e4<-e1*0.10;
e5<-e2*0.12;
e6<-e3*0.15;
r<-(e4+e5+e6)/3;
rf<-(e1+e2+e3)-r;
Escribir "el resultado es:",rf;
FinProceso

Proceso DIGITO
Definir X Como Entero;
Para X<-0 Hasta 9 Con Paso 1 Hacer
Escribir "DIGITO:",X;
FinPara

FinProceso

Proceso MULTIPLICAR
definir x,y COMO entero;
Para x<-1 Hasta 10 Con Paso 1 Hacer
y<-x*2;

Escribir "2 x ",x, " = ",y;

FinPara

FinProceso

Proceso multiplos7
Definir a Como Entero;
Escribir "los multiplos de 7 son:";
Para a<-0 Hasta 100 Con Paso 7 Hacer
Escribir a;
FinPara
FinProceso
Proceso año_bisiesto
definir a como entero;
definir b como entero;
dimension b(5);
Para a<-0 Hasta 4 Con Paso 1 Hacer
escribir "ingrese año", a+1;
leer b(a);
FinPara
Si b(0)%4=0 Entonces
escribir "el año", b(0),"es bisiesto";
Sino
escribir "el año", b(0), "no es bisiesto";
FinSi
Si b(1)%4=0 Entonces
escribir "el año", b(1), "es bisiesto";
Sino
escribir "el año", b(1), "no es bisiesto";
FinSi
Si b(2)%4=0 Entonces
escribir "el año", b(2), "es bisiesto";
Sino
escribir "el año", b(2), "no es bisiesto";
FinSi
Si b(3)%4=0 Entonces
escribir "el año", b(3), "es bisiesto";
Sino
escribir "el año", b(3), "no es bisiesto";
FinSi
Si b(4)%4=0 Entonces
escribir "el año", b(4), "es bisiesto";
Sino
escribir "el año", b(4), "no es bisiesto";
FinSi
FinProceso
Proceso impares
Definir impar Como Entero;
Escribir "numeros impares";
Para impar<-99 Hasta 1 Con Paso -2 Hacer
Escribir impar;
FinPara

FinProceso
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 productos
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 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 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 libros definir a,c como cadena; definir b como entero; definir sc Como Caracter; dimension a(5,5); b<-0; Repetir 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 "si desea continuar ingrese: si, sino, igrese: escribus"; Leer sc; Hasta Que sc="escribus" | sc="ESCRIBUS" | sc="Escribus" 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 Area_de_una_esfera
definir a,b ,resultado, total Como Real;
Definir op como cadena;
Escribir "ejercicios";
Escribir "para el area de una esfera digite: a";
Escribir "para el perimetro de un circulo digite:b";
Escribir "para el area de un cubo digite: c";
Repetir
Repetir
Escribir "que ejercicio desea realizar";
Leer op;
Escribir "las medidas debe ingresarlas en mm";
Hasta Que op="a" |op="A" |op="b"|op="B"|op="c"|op= "C"
Si op="a" |op="A" Entonces
Escribir "ingrese el radio";
leer a;
resultado<-4*PI*a^2;
total<-resultado/10;
Escribir "el area de la esfera es: ",total,"cm^2";
Sino
Si op="b"|op="B" Entonces
Escribir "ingrese radio";
leer a;
resultado<-2*PI*a;
total<-resultado/10;
Escribir "el perimetro del circulo: ", total,"cm";
Sino
Escribir "ingrese el area";
leer a;
resultado<-6*a^2;
total<-resultado/10;
Escribir " el area de un cubo:" ,total,"cm^3";
FinSi
FinSi
Escribir "si desea salir ingrese: si, sino, si deseas continuar ingresa: no";
Leer op;
   Hasta Que op="si"
FinProceso

Proceso Lista_que_se_muestra_desendentemente
definir c,y,x como entero;
definir a como cadena;
Definir f como cadena;
dimension a(3,6);
c<-0;
Para c<-0 Hasta 2 Con Paso 1 Hacer
Escribir "Nombre:";
Leer a(c,0);
Escribir "Apellido: ";
Leer a(c,1);
Escribir "Direccion; ";
Leer a(c,2);
Escribir "Numero de telefono";
Leer x;
Escribir "Edad";
Leer y;
Escribir "Correo electronico";
Leer f;
FinPara
Para c<-0 Hasta 2 Con Paso 1 Hacer
Escribir a(c,0);
Escribir a(c,1);
Escribir a(c,2);
Escribir x;
Escribir y;
Escribir f;
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

Proceso promedio
definir lab1,lab2,parcial,a,b,c,d,e Como Real;
definir nombre como caracter;
e<-0;
Mientras e<3 Hacer
Escribir "Nombre del Estudiante: ";
leer nombre;
Escribir "Ingrese nota del Laboratorio1: ";
leer lab1;
escribir "Ingrese nota del Laboratorio2: ";
leer lab2;
escribir "Ingrese nota del Parcial: ";
leer parcial;
a<-lab1*0.30;
b<-lab2*0.30;
c<-parcial*0.40;
d<-(a+b+c);
Escribir "Nota Final: ",d;
Si d=10 Entonces
Escribir "Estudiantes con Maxima Nota: ",d;
Sino
Si d<6 Entonces
Escribir "Estudiantes con Minima Nota: ",d;
Sino
Si d>=7 Entonces
Escribir "Estudiantes con Nota Mayores o Iguales a 7: ",d;
FinSi
FinSi
FinSi
e<-e+1;
FinMientras
FinProceso



Proceso primo_par_impar
Definir a,b,c,d Como Entero;
Definir num como cadena;
a<-0;
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
Si a%2=1 Entonces
Escribir a;
FinSi
Sino
Si a=0 Entonces
Si num="primo" | num="Primo" | num="PRIMO" Entonces
Escribir a;
a<-a+1;
FinSi
FinSi
FinSi
FinSi
FinSi
FinPara
FinProceso

Proceso comercial
definir a,precio,unidades como real;
definir b como cadena;
escribir "ingre nombre";
leer b;
escribir "ingrese precio individual";
leer precio;
Escribir  "total deunidades";
leer  unidades;
a<-precio*unidades;
escribir "elprecio total es ",a;
FinProceso

lunes, 2 de junio de 2014

PSeInt

PSeInt

¿Que es?


PSeInt es un software libre multiplataforma dirigido a personas que se inician en la programación. PSeInt de PSeudo Intérprete, es una herramienta educativa utilizada principalmente por estudiantes para aprender los fundamentos de la programación y el desarrollo de la lógica. Es uno de los software más populares de su tipo y ampliamente utilizado en universidades de Latinoamérica y España. Utiliza el pseudocódigo para la solución de algoritmos.

Características

· Autocompletado
· Exportar a otro lenguaje (C++, Java, PHP, Java Script, Visual Basic, C#)
· Graficado, creación y edición de diagramas de flujo
· Editor con coloreado de sintaxis
· Ejecutar algoritmo paso a paso (Prueba de escritorio)
· Disponible para Windows, Linux, Mac
· Soporta Funciones.