martes, 10 de junio de 2014

La Tecnología En El Medio Ambiente
Asociación De Estudiantes de Computación
(AECOMPU)
·       Problemas medio ambientales Provocados por las actividades tecnológicas.

-Como bien sabemos hay tecnologías que pueden cubrir ciertas necesidades de los seres humanos pero tiene efectos catastróficos en el entorno ambiental como son: desechos tóxicos, la deforestación, extinción de la fauna y la flora; y por ello  les  da un futuro muy incierto al futuro de las siguientes generación nacientes.

·        ¿Qué es la contaminación?
·        -La contaminación es el acto de dañar  o alterar lo que ya tiene un equilibrio natural.
-Hay muchas formas de contaminación pero las que más nos causan un daño muy grande es la contaminación de las aguas, Ríos y Océanos con los desperdicios tóxicos de las empresas industriales y así también las personas que botan la basura en los ríos.

Solución
-Tecnologías que trabajan usando  el medio ambiente como un fuente de energía aprovechándola pero sin hacer le un daño colateral al mismo. Energía limpia usando soluciones tecnológicas de punta.

ENTRE ELLAS SE MENCIONAN:
-Bolsa a Combustible:
  La empresa         japonesa Blest Coporation creo una máquina que convierte las bolsas de plástico en aceite para ser utilizado como combustible.

-Lámparas de bajo consumo:
Las lámparas de bajo consumo no solo cuidan el medio ambiente sino tu bolsillo.
Ahorran energía utilizando 75% menos de la electricidad que las lámparas comunes.

-Automóvil Hibrido:
Es la creación de un  automóvil que usa menos combustible y trabaja con energía eléctrica usando un pequeño motor más limpio y eficiente para el medio ambiente.



-Avión Solar:
-El avión solar Impulse, Este aeroplano ya ha realizado vuelos más de 17 horas de duración y promete ser el futuro de la aeronáutica.
-Haciendo agua del aire:
-Varios sistemas   que permiten crear agua extrayendo el hidrogeno del aire ya está en funcionamiento en diferentes partes del mundo.



·         Como ya  hemos visto hay soluciones muy inteligentes y tecnológicas para crear energía y agua de manera ecológica y limpia sin dañar el medio ambiente nosotros podemos aportar nuestro grano de arena para cuidar mejor nuestro planeta ya que es nuestra casa y depende de todos participar y cuidarla de la mejor manera ya sea creando o inventando soluciones ecológicas o simplemente no botar la basura y  tratar de reutilizar o reciclar lo que se pueda.




jueves, 5 de junio de 2014

ejercico 29 de Pseint: La renta de 20 empleados

Proceso sueldo
definir a,b,c como real;
Para a<-1 Hasta 20 Con Paso 1 Hacer
escribir "introdusca el sueldo para empleados";
leer b;
c<-b*0.10;
escribir "la renta del empleado ", a," es ",c;
FinPara

FinProceso

Ejercicio 28 de Pseint: programa para contratar empelados en una empresa con ciertos requisitos

Proceso Idea
//Una empresa nesecita 5 trabajadores que cumplan con los siguientes requisito:
//" Que sea mayor de edad pero menor que 30 y que tenga mas de 4 años de experiencia."
Definir a,b,c,d,e como enteros;

Para a<-1 Hasta 5 Con Paso 1 Hacer
escribir "Aspirante ", a;
escribir "Ingrese edad: ";
Leer b;
si b<=30 & b>=18 Entonces
d<-1;
Sino
Repetir
Escribir "Ingrese edad: ";
Leer b;
Hasta Que b<=30 & b>=18
FinSi
Escribir "Ingrese años de experiencia: ";
Leer c;
si c>4 Entonces
d<-0;
Sino
Repetir
Escribir "Ingrese años de experiancia: ";
Leer c;
Hasta Que c>4
FinSi
FinPara
FinProceso

Ejercicio 27 de Pseint: porcentaje de una grupo de hombre y mujeres

Proceso ejercicio_3
definir a como real;
Escribir ("Introduzca la cantidad de hombres");
leer a;
definir b como real;
Escribir ("introduzca la cantidad de mujeres");
Leer b;
definir c como real;
c<-a+b;
definir d como real;
d<-(a/c)*100;
definir e como real;
e<-(b/c)*100;
escribir ("El pórcentaje de hombres es; "),d;
escribir ("El porcentaje de mujeres es: "),e;
FinProceso

Ejercicio 26 de Pseint: Numeros romanos

Proceso sin_titulo
Definir a como numerico;
Escribir "Ingrese un numero entre 1 y 1000";
Leer a;

Definir b Como Logico;
b<-Verdadero;
si a=0 Entonces
escribir "El cero no puede ser representado";
b<-Falso;

FinSi
si a<>trunc(a) entonces
Escribir "El numero debe ser entero";
b<-falso;

FinSi
si a>1000 Entonces
Escribir "Muy alto";
b<-Falso;

FinSi
si a<0 entonces
Escribir "El numero tiene que ser positivo";
b<-falso;

FinSi
si b Entonces
si a=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";nu(8)<-"LXXX";nu(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";nu(9)<-"CM";
FinSi
finsi
Definir cent,dec,uni como entero;
cent<-trunc(a/100)%10;
dec<-trunc(a/10)%10;
uni<- a%10;
Escribir nc(cent),nd(dec),nu(uni);
FinProceso




Ejercicio 25 de Pseint: pasar de numero a letras

Proceso Letras_numeros
Definir a,b,f Como Entero;
Definir c,d,e Como Caracter;
Dimension c(10);
Dimension d(10);
Dimension e(5);
Escribir "Ingrese un numero entre 1 y 100: ";
Leer a;
f<-a;
c(0)<-"Cero";c(1)<-"Uno";c(2)<-"Dos";c(3)<-"Tres";c(4)<-"Cuatro";c(5)<-"Cinco";c(6)<-"Seis";c(7)<-"Siete";c(8)<-"Ocho";c(9)<-"Nueve";
e(0)<-"Once";e(1)<-"Doce";e(2)<-"Trece";e(3)<-"Catorce";e(4)<-"Quince";
d(0)<-"Dies";d(1)<-"Veinte";d(2)<-"Treinta";d(3)<-"Cuarenta";d(4)<-"Cincuenta";d(5)<-"Sesenta";d(6)<-"Setenta";d(7)<-"Ochenta";d(8)<-"Noventa";d(9)<-"Cien";

Si a=0 | a=1 | a=2 | a=3 | a=4 | a=5 | a=6 | a=7 | a=8 | a=9 Entonces
Escribir c(a);
Sino
Si a=11 | a=12 | a=13 | a=14 | a=15 Entonces
a<-a-11;
Escribir e(a);
Sino
Si a=10 | a=20 | a=30 | a=40 | a=50 | a=60 | a=70 | a=80 | a=90 | a=100 Entonces
a<-trunc(a/10);
a<-a-1;
Escribir d(a);
Sino
Si a<>1 | a<>2 | a<>3 | a<>4 | a<>5 | a<>6 | a<>7 | a<>8 | a<>9 | a<>10 | a<>11 | a<>12 | a<>13 | a<>14 | a<>15 | a<>20 | a<>30 | a<>40 | a<>50 | a<>60 | a<>70 | a<>80 | a<>90 | a<>100  Entonces
f<-a;
a<-trunc(a/10);
a<-a-1;
b<-f%10;

Escribir d(a)," Y ", c(b);


FinSi
FinSi
FinSi
FinSi
FinProceso



Ejercicio 28 de Pseint: múltiplos de 7 hasta n números

Proceso numeros_multiplos_de_7
Definir a,b Como Entero;
Escribir "Numeros multiplos de 7 hasta n numero";
Escribir "Hasta que numero";
Leer a;
Para b<-7 Hasta a Con Paso 7 Hacer
Escribir b;
FinPara

FinProceso

Ejercicio 24 de Pseint: Una matriz multi-dimencional para 3 personas

Proceso Multidimensional
Definir c Como Entero;
Definir a 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 "correo electronico: ";
Leer a(c,3);
Escribir "Edad: ";
Leer a(c,4);
Escribir "Telefono: ";
Leer a(c,5);
FinPara
Para c<-2 Hasta 0 Con Paso -1 Hacer
Escribir "Valores de la fila ",c;
Escribir a(c,0);
Escribir a(c,1);
Escribir a(c,2);
Escribir a(c,3);
Escribir a(c,4);
Escribir a(c,5);
FinPara
FinProceso

Ejercicio 23 de Pseint: como usar una Matriz vidimencional

Proceso Matriz
Definir c Como Entero;
Definir a como cadena;
Dimension a(3,3);
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);
FinPara
Para c<-2 Hasta 0 Con Paso -1 Hacer
Escribir "Valores de la fila ",c;
Escribir a(c,0);
Escribir a(c,1);
Escribir a(c,2);
FinPara
FinProceso


Ejercicio 22 de Pseint: como sacar la Hipotenusa de un triangulo

Proceso Hipotenusa
Definir CatA,CatB Como Real;
Escribir "Ingrese el valor del cateto 1";
Definir a Como Real;
Leer a;
Escribir "Ingrese el valor del Cateto 2";
Definir b Como Real;
Leer b;
Definir c Como Real;
c<-(a^2+b^2)^0.50;
Escribir "La hipotenusa es: ", c;
FinProceso

ejercicio 24 de Pseint: un numero elevado al exponente

Proceso Elevar
definir a,b,c Como Entero;
Escribir ("escriba el numero que desea elevar a cualquir exponente: ");
Leer a;
Escribir ("introduza el exponente al cual desea elevar: ");
leer b;
c<-a^b;
Escribir ("Su numero elevado al exponente deseado es: "),c;
FinProceso

Ejercicio 23 de Pseint: números digitos

Proceso Digito
Definir num Como Entero;
Para num<-0 Hasta 9 Hacer
Escribir 'Digito :',num;
FinPara
FinProceso

Ejercicio 21 de Pseint: descuento del 10% en compra de producto

Proceso Descuento
definir a Como real;
Escribir ("ingrese costo del producto: ");
Leer a;
definir b como real;
b<-(a/100)*10;
definir c como real;
c<-(a-b);
Escribir ("El precio final mas el 10% de descuento es: "),c ;
FinProceso

Ejercicio 20de Pseint: cuadrados de números hasta 100

Proceso numeros_cuadrados
Definir a,b Como Entero;
b<-0;
Para a<-1 Hasta 100 Con Paso 1 Hacer
b<-a*a;
Escribir a ," = ", b;
FinPara

FinProceso

Ejercicio 20 de Speint: programa que dice las capitales de los países centro americanos

Proceso Capitales
Definir c Como Entero;
Definir a como cadena;

Escribir "País: ";
Leer a;
si a = "Panamá" | a = "Panama" | a = "panama" | a = "panamá" entonces
Escribir "Panamá";
Sino
si a = "Belice" | a = "belice" | a = "velice" | a = "Velice" Entonces
Escribir "Belmopan";
Sino
si a = "Costa Rica" | a = "costa rica" | a = "Costa rica" | a = "costa Rica" Entonces
Escribir "San José";
Sino
si a = "El Salvador" | a = "el salvador" | a = "El salvador" | a = "el Salvador" Entonces
Escribir "San Salvador";
Sino
si a = "Guatemala" | a = "guatemala" Entonces
Escribir "Ciudad de Guatemala";
Sino
si a = "Honduras" | a = "honduras" | a = "onduras" | a = "Onduras" Entonces
Escribir "Tegucigalpa";
Sino
si a = "Nicaragua" | a = "nicaragua" Entonces
Escribir "Managua";
Sino
//nada//
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi

FinProceso

Ejercicio 19 de Pseint: ¿como saber si un año es bisiesto o no?

Proceso añio_bisiesto
definir a,b,c Como Entero;
dimension a(5);
Para b<-0 Hasta 4 Con Paso 1 Hacer

escribir "ingrese año";
leer a(b);
FinPara
Para b<-0 Hasta 4 Con Paso 1 Hacer
c<-a(b)%100;
Si c%4=0 Entonces
Escribir "el año ",a(b)," es bisiestos";
Sino
Si a(b)%400=0 Entonces
Escribir "el año",a(b)," es bisiesto";
Sino
Escribir "el año",a(b)," no es bisiesto";
FinSi
FinSi
FinPara

FinProceso

Ejercicio 18 de Speint : ejercicio que permite registrar la información de cinco atures de libros

Proceso libros
Definir x,a,c Como Caracter;
Definir d,e,b como entero;
Dimension x(5,5);
d<-0;
Repetir

Para e<-0 Hasta 4 Con Paso 1 Hacer
Escribir "titulo del libro";
Leer x(e,4);
Escribir "Autor";
Leer x(e,3);
Escribir "nombre";
Leer x(e,2);
Escribir "año de edicion";
leer x(e,1);
Escribir "codigo del libro";
Leer x(e,0);
FinPara
d<-0;
Para e<-0 Hasta 4 Con Paso 1 Hacer
Escribir x(e,0);
Escribir x(e,1);
Escribir x(e,2);
Escribir x(e,3);
Escribir x(e,4);
FinPara
Escribir "para salir escriba la palabra, escribus";
Leer c;
Hasta Que c = "escribus"
FinProceso


Ejercicio 17 de Speint: programa que dice el precio total que tiene que pagar un cliente por sus productos

Proceso comercial
Definir d,f,e,i Como Real;
Definir b,a,g como caracter;
Repetir
Escribir "ingrese nombre del cliente";
Leer a;
Escribir "ingrese apellido";
Leer g;
Escribir "ingrese total de productos comprados";
Leer d;
Escribir "ingrese el precio por unidad $";
leer e;
f<-d*e;
Escribir "el precio total a pagar es $",f;
    Escribir "si decea ingresar un cliente mas precione 1 sino 0 para finalizar:";
Leer i;
Hasta Que i=0
FinProceso

Ejercicio 16 de Speint: Programa que permite al usuario sacar la raíz de los elemento que tiene el programa

Proceso raíces
definir a,b,c,d,e,f,g,t Como Real;
Definir OP como cadena;
Repetir 
Escribir "Si quiere calcular el are a de una esfera digite:, 1" ;
    Escribir "si quiere calcular el perimetro de un circulo digite:,2";
Escribir "si decea determinar el area de un cubo digite:,3";
Repetir
Escribir "elija la operacion que decea realcizar";
Leer OP;
Hasta Que OP="1" |OP="2" | OP="3";
Si OP="1" Entonces
Escribir "Ingrese r que es el radio en milimetros:";
Leer d;
a<-(4*PI)*(d^2);
t<-a/100;
Escribir "El area de la esfera es:",t,"cm^3";
Sino
Si OP="2" Entonces
Escribir "Ingrese r que es el diametro en milimetros:";
Leer f;
c<-PI*f;
t<-c/100;
Escribir "el perimetro es",t,"cm";
Sino
Si OP="3" Entonces
Escribir "primero digite una de las areas de las caras del cubo ";
Leer a;
c<-6*a^2;
t<-c/100;
Escribir "el area total del cubo es", t,"cm^3";
Sino
//nada//
FinSi
FinSi
FinSi
Escribir "decea realizar otro ejercicio ingrese 1 para seguir o 0 para finalizar:";
Leer g;
Hasta Que g=0
FinProceso

Ejercicio 15 de Speint: un programa que permite al usuario que operación desea realizar

Proceso num
Definir a,b,x como Entero;
Definir OP,c,d como cadena;
Repetir
Escribir "Operacion con numeros hasta 100";
Escribir "si quiere saber los numeros primos dijite: p" ;
Escribir "si quiere saber los numeros pares dijite: 2";
Escribir "si quiere saber los numeros impares dijite: i";
Repetir
Escribir "digite una de las siguientes operaciones que decea ejecutar";
Leer OP;
Hasta Que OP="p" | OP="2" | OP="i"
Si OP="2" Entonces
Escribir "generar numeros primos";
Para b<-1 Hasta 100 Con Paso 1 Hacer
Si b%2=0 Entonces
Escribir "numero par",b; 
Sino
//nada//
FinSi
FinPara
Sino
Si OP="i" Entonces
Escribir "generar numeros pares";
Para b<-1 Hasta 100 Con Paso 2 Hacer
Escribir "numeros impares",b;
FinPara
Sino
Si OP="p" Entonces
Escribir "generar numeros primos";
x<-1;
Mientras x<=99 Hacer
Si (x%1=0)|(x%x=0)|(x%3=0)|(x%5=0)|(x%7=0) Entonces
Escribir "primos",x;
Sino
///
FinSi
x<-x+1;
FinMientras
FinSi
FinSi
FinSi
Escribir "decea realisar un proceso mas? dijite: 1 para seguir o 2 para finalizar";
Leer c;
Hasta Que c="2"
FinProceso


Ejercicio 14 de Speint: ¿ como hacer una agenda?

Proceso agenda
Definir a,c Como Caracter;
Definir d,b,e Como Entero;
Dimension a(5,4);
d<-0;
Para e<-0 Hasta 4 Con Paso 1 Hacer
Escribir "Ingrese nombre con apellido";
leer a(e,0);
Escribir "Ingrese Direccion";
Leer a(e,1);
Escribir "Ingrese telefono";
Leer a(e,2);
Escribir "Ingrese E-mail";
Leer a(e,3);
FinPara
Escribir "decea buscar un contacto ingrese 0,1,2 o 3 ";
Leer e;
Para e<-0 Hasta 4 Con Paso 1 Hacer
Si e=0 |e=1 |e=2| e=3 Entonces
Escribir "este es tu contacto",d;
Sino
//
FinSi
FinPara

FinProceso


ejercicio 13 de Speint: ¿como sacar el sueldo de una persona?

Proceso sueldos
Definir A,B,C,D,E,F,G Como Real;
Escribir ("ingresere primer sueldo");
Leer A;
D<-(A*0.10+A);
Escribir "La respuesta es", D;
Escribir ("ingrese segundo sueldo");
Leer B;
E<-(B*0.12+B);
Escribir "La respuesta es", E;
Escribir ("ingrese tercer sueldo");
Leer C;
F<-(C*0.15+C);
Escribir "La reespuesta es", F;
    FinProceso

ejercicio 12 de Speint: ¿como sumar dos numeros?

Proceso suma
Definir a,b,c Como Entero;
Escribir ("ingrese numero");
Leer a;
Escribir ("ingrese numero");
Leer b;
c  <- (a+b);
Escribir "la respuesta es :", c; 
FinProceso

ejercicio 11 de Speint: ¿como saber si un numero es Negativo, Neutro o Positivo ?

Proceso numero
Definir a como Entero ;
  Escribir ("ingrese numero");
Leer a;
si a=0 Entonces
Escribir "es neutro";
FinSi

Si  a>= 1 Entonces
Escribir "espositivo";
FinSi

si  a <=-1
Entonces
Escribir  "es negativo" ;

FinSi
    FinProceso