martes, 10 de junio de 2014

La Tecnología y El Medio Ambiente

La Tecnología y El Medio Ambiente
Problemas medio ambientales provocados por las actividades tecnológicas

Las actividades del ser humano, desde el uso de un materia primo hasta el desecho de un residuo generado tras a obtener un producto tecnológico puede obtener consecuencia que puede perjudicar el medio ambiente ya que el ser humano no hace un buen uso de ello ya que no están acostumbrado a respetar el medio ambiente y a cuidarlo sabiendo que si no se cuida puede afectarnos a nosotros mismo ya que es a donde vivimos que al no hacerlo podemos tener grandes consecuencia al futuro.

Impacto ambiental directo

La ejecución de obras públicas (como las carreteras, pantanos, puertos, autopista y etc ) y las explotaciones mineras afectan y modifica el ecosistema que en ello viven una gran cantidad de especies de animales y vegetales.

¿Qué es obra pública?

Se denomina obra pública a todos los trabajos de construcción, ya sean infraestructuras o edificación, promovidos por una administración pública (en oposición a la obra privada) teniendo como objetivo el beneficio de la comunidad.
Entre las principales obras públicas se encuentran:
·         Infraestructuras de transporte, que incluye el transporte por carretera (autopistas, autovías, carreteras, caminos...), el marítimo o fluvial (puertos, canales, ...), el transporte aéreo (aeropuertos), el ferroviario y el transporte por conductos (por ejemplo, oleoductos).
·         Infraestructuras hidráulicas (presas, redes de distribución, depuradoras...).
·         Infraestructuras urbanas, incluye calles, parques, alumbrado público, etc.
·         Edificios públicos ya sean educativos, sanitarios o para otros fines.

Contaminación
Tal vez sea el efecto más apreciable. El incremento en el consumo de energía ha hecho que aumenten considerablemente las proporciones de determinados gases (dióxido de carbono, óxidos de azufre, etc.) en la atmósfera, sobre todo cerca de las áreas  industrializadas.

De bolsa a combustible
Y a en la empresa japonesa Blest Corporation ha creado una máquina que convierte la bolsa de plástico en aceite, la bolsa que podemos utilizar para convertirlo en aceite pueda ser una bolsa que ya no uses o que ya no tenga ninguna función por estar dañada, el aceite que obtiene puede ser utilizado  como combustible. Esta máquina no fue creada a fines industriales también fue creada para poderla utilizar en los hogares común.

Lámparas de bajo consumo


Estas lámparas de bajo consumo cuidan el medio ambiente y no solo eso sino que también tu bolsillo, esta lámparas al utilizarlas usan el 75% menos de electricidad que las lámparas comunes.
Duran más hasta el 10 veces más y proveen la misma intensidad de luz que las lámparas comunes.

Automóvil híbrido


Un vehículo híbrido es un vehículo cuyo sistema de propulsión combina dos o más fuentes de energía. Se utilizan sistemas de propulsión híbridos en distintos tipos de vehículos, entre ellos automóviles, camiones, bicicletas, barcos, aviones y trenes.
El término más comúnmente se refiere a vehículo híbrido eléctrico, que combina un motor de combustión interna y uno o varios motores eléctricos. Otros tipos de sistemas de propulsión híbridos incorporan una celda de combustible, supercondensador, motor de aire comprimido o batería inercial, en combinación con un motor de combustión o eléctrico.
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.

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.

Avión solar
El avión Solar Impulse, Este avión es manejado solo por una persona, 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.
Se tiene planes en hacer una aerolínea con este tipo de avión para comercio y que aguante una cantidad de personas.

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.

Pasos:


jueves, 5 de junio de 2014

Programa en Visual Basic , El promedio de tres notas


Programa en Visual Basic , El promedio de tres notas.








Programa de visual basic de sumar dos numeros

Programa de Visual Basic de sumar dos números.





dimensiones

Programa en Pseint : Usando Dimensiones



Ejemplo:


Proceso sin_titulo
Definir a,c Como Entero;
Definir b como cadena;
Dimension b(5,4);
a<-0;
Para a<-0 Hasta 4 Con Paso 1 Hacer
Escribir "Nombre: ";
Leer b(a,0);
Escribir "Direccion: ";
Leer b(a,1);
Escribir "Telefono: ";
Leer b(a,2);
Escribir "Email: ";
Leer b(a,3);
FinPara
Escribir "Que Contacto desea buscar: Ingrese 0,1,2,3 o 4";
Leer c;
Para a<-0 Hasta 4 Con Paso 1 Hacer
Si a=c Entonces
Escribir "El contacto es: ";
Escribir b(a,0);
Escribir b(a,1);
Escribir b(a,2);
Escribir b(a,3);
Sino
Si a!=c Entonces
Escribir "El dato no se encuentra ";
FinSi
FinSi
FinPara
FinProceso

Mini Calculadora

Programa de Pseint : Mini Calculadora 


Solución:

Proceso mini_calc
Definir n1,n2,resultado Como Real;
Definir op,res como cadena;
Escribir "Operaciones";
Escribir "Para la Suma Digite: + ";
Escribir "Para la Resta Digite: - ";
Escribir "Para la Multiplicacion Digite: x ";
Escribir "Para la Division Digite: / ";
Repetir
Repetir
Escribir "Que operacion desea realizar: ";
Leer op;
Hasta Que op="+" | op="-" | op="X" | op="x" | op="/"
Escribir "Ingrese primer numero: ";
Leer n1;
Escribir "Ingrese segundo numero: ";
Leer n2;
Si op="+" Entonces
resultado<-n1+n2;
Sino
Si op="-" Entonces
resultado<-n1-n2;
Sino
Si op="X" | op="x" Entonces
resultado<-n1*n2;
Sino
resultado<-n1/n2;
FinSi
FinSi
FinSi
Escribir "Resultado es: ", resultado;
Escribir "¿Desea realizar otra operacion? Escriba s para Si o n para No";
Leer res;
Hasta Que res="N" | res="n" | res="No" | res="no" | res="NO"
FinProceso

Programa de Pseint que capture el salario de 5 empleados , con mientras y que muestre el salario final ya con el descuento de la renta

Programa de Pseint que capture el salario de 5 empleados , con mientras y que muestre el salario final ya con el descuento de la renta.


Solución:

Proceso sin_titulo
Definir x,a,b,c Como Entero;
Definir y Como Caracter;
x<-1;
Mientras x<=5 Hacer
Escribir "Nombre del Empleado: ";
Leer y;
Escribir "Ingrese el Salario: ";
Leer a;
b<-a*0.10;
c<-a-b;
x<-x+1;
Escribir "El Salario Final: ",c;
FinMientras
FinProceso

Ejemplos de ejercicios con mientras

Ejemplos de ejercicios con Mientras.


Proceso sin_titulo
Definir c como cadena;
c<-"hola";
Mientras c="hola" Hacer
Escribir "Mensajes: ";
Leer c;
FinMientras
FinProceso


Proceso sin_titulo
Definir c como entero;
c<-1;
Mientras c<=10 Hacer
Escribir "Mensajes: ";
Leer c;
FinMientras
FinProceso

Programa de Pseint que genere los números negativos del -1 al -40 y que genere la suma total de ellos

Programa de Pseint que genere los números negativos del -1 al -40 y que genere la suma total de ellos.

Solución:

Proceso negativos
Definir a,b como entero;
b<-0;
Para a<-(-1) Hasta -40 Con Paso -1 Hacer
Escribir "Numeros Negativo: ",a;
b<-b+a;
FinPara
Escribir "Total de la Suma: ",b;
FinProceso

Programa de Pseint de 3 empleados y sus horas trabajadas y si pasa de 40 calcular las horas extras

Programa de Pseint de 3 empleados y sus horas trabajadas y si pasa de 40 calcular las horas extras.


Solucion:

Proceso extr
Definir nombre,telefono Como Caracter;
Definir edad,sueldo,hora,pg,hextras,sextras Como Real;
Definir b,c Como Entero;
Para b<-1 Hasta 3 Con Paso 1 Hacer
Escribir "Empleado: ",b;
Escribir "Nombre: ";
Leer nombre;
Escribir "Telefono: ";
Leer telefono;
Escribir "Edad: ";
Leer edad;
Escribir "Sueldo: ";
Leer sueldo;
Escribir "Horas Trabajadas: ";
Leer hora;
Escribir "Horas extras: ";
Leer hextras;
Escribir "Pago por horas: ";
Leer pg;
Escribir "Sueldo por las horas extras: ";
Leer sextras;
Si hora>40 Entonces
hextras<-hora-40;
c<-((pg*hora)+sextras)+((sextras*hextras));
Sino
c<-(hora*pg);
FinSi
Escribir "El sueldo total: ",c;
FinPara
FinProceso

Programa en Pseint que genere las tablas de multiplicar del 1 al 10

Programa en Pseint que genere las tablas de multiplicar del 1 al 10.


Solución:

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

martes, 3 de junio de 2014

Programa de Pseint de tres empleados utilizando el para

Programa de Pseint de tres empleados utilizando el para.


Solución:


Proceso empleados
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 "Tlefono: ";
Leer telefono;
Escribir "Edad: ";
Leer edad;
Escribir "Sueldo: ";
Leer sueldo;
FinPara
FinProceso

Programa de Pseint ,tabla de multiplicación del dos

Programa de Pseint ,tabla de multiplicación del dos.


 Solución:

Proceso tabl2
Definir x,z como entero;
Para x<-1 Hasta 100 Con Paso 1 Hacer
z<-x*2;
Escribir "2 x ", x, " = " , z;
FinPara
FinProceso

Programa de Pseint , Un operario conoce su sueldo y los años de antigüedad, quiere saber su sueldo total

Programa de Pseint , Un operario conoce su sueldo y los años de antigüedad, quiere saber su sueldo total.


Solución:

Proceso antig
Definir a,b,c,d Como Entero;
Escribir "Ingrese el sueldo: ";
Leer a;
Escribir "Ingrese Tiempo de antiguedad: ";
Leer b;
Si (a<500)& (b>=10) Entonces
c<-a*0.20;
d<-c+a;
Sino
Si (a<500)&(b<10) Entonces
c<-(a*0.05);
d<-c+a;
Sino
Si (a>=500) Entonces
d<-a;
FinSi
FinSi
FinSi
Escribir "El sueldo Total es: ",d;
FinProceso

Programa en Pseint para saber si un numero es positivo y negativo

Programa en Pseint para saber si un numero es positivo y negativo.


Solución:

Proceso num_posi
Definir num Como Entero;
Escribir "Ingrese un numero: ";
Leer num;
Si num>=1 Entonces
Escribir "El Numero: " , num , " Es Positivo";
Sino
Si num=0 Entonces
Escribir "El Numero: " , num , " Es Neutro";
Sino
Si num<=-1 Entonces
FinSi
Escribir "El Numero: " , num , " Es Negativo";
FinSi
FinSi
FinProceso

Calcular el promedio de tres nota

Calcular el promedio de tres nota.


Solución:

Proceso notas
Definir a,b,c,final como enteros;
Escribir "Ingrese Primera Nota: ";
Leer a;
Escribir "Ingrese Segunda Nota: ";
Leer b;
Escribir "Ingrese Tercera Nota: ";
Leer c;
final<-(a+b+c)/3;
Escribir "El Resultado es: ", final;
FinProceso

Otro modo de resolverlo:

Proceso notas
Definir a,b,c,d como entero;
Escribir "Ingrese Notas : ";
Leer a,b,c;
d<-(a+b+c)/3;
Escribir "El promedio final: ", d;
FinProceso

Programa de Pseint para calcular sueldo mas horas extras que son pagadas al doble

Programa de Pseint para calcular sueldo mas horas extras que son pagadas al doble.


Solución:

Proceso extras
Definir a,b,c,d como entero;
Escribir "Ingrese horas trabajadas: ";
Leer a;
Escribir "Ingrese horas extras: ";
Leer b;
Escribir "Ingrese sueldo por horas: ";
Leer c;
Si a>=8 Entonces
d<-(a*c)+(c*b);
Sino
d<-(a*c);
FinSi
Escribir "El sueldo total es: ", d;
FinProceso

Programa en Pseint que calcule interés simple dado un interés, capital, tiempo determinado

Programa en Pseint que calcule interés simple dado un interés, capital, tiempo determinado.


Solución:


Proceso pin
Definir pin,interes,capital,tiempo Como real;
Escribir "Ingrese el Capital: ";
Leer capital;
Escribir "Ingrese el Interes: ";
Leer interes;
Escribir "Ingrese el Tiempo: ";
Leer tiempo;
pin<-interes*capital/tiempo;
Escribir "El Resultado es: ", pin;
FinProceso

Programa de Pseint que el usuario ingrese un numero y este se multiplique con el 2 y que muestre su resultado

Programa de Pseint que el usuario ingrese un numero y este se multiplique con el 2 y que muestre su resultado.

Solución:

Proceso multip
Definir a,b Como Entero;
Escribir "Ingrese un numero: ";
Leer a;
b<-a*2;
Escribir "El resultado es: ", b;
FinProceso

Programa de Pseint que sume dos números

Programa de Pseint que sume dos números.

Solución:

Proceso sumar
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: ", suma;
FinProceso

Actividad

ACTIVIDAD


1. Realice un programa que le indique si una persona es mayor de edad o no en base a su año de nacimiento.

Solución:

Proceso sin_titulo
 Definir ano,edad,res como entero;
 Escribir "Ingrese año de nacimiento: ";
 Leer ano;
 res<-2014-ano;
 Escribir "La edad es: ", res," Años";
 Si res<=17 Entonces
  Escribir "Es menor de edad";
 Sino
  Si res>=18 Entonces
   Escribir "Es mayor de edad";
  FinSi
 FinSi

FinProceso

2. realice un programa que indique el promedio de tres notas, ademas le diga si ha reprobado o no.

Solucion:

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

3. realice un programa que al realizar una compra se agregue el precio con iva.

Solución:

Proceso iva
  Definir compra,iva,total como real;
  Definir nombre como caracter;
  iva<-0.13;
  Escribir "Ingrese Nombre del Producto: ";
 Leer nombre;
 Escribir "Ingrese el Valor del Producto: ";
 Leer compra;
 total<-compra-(compra*iva);
 Escribir "El Precio Total es : ", total;
FinProceso

4. realice un programa que indique si la persona es niño(0 a 12 años), joven(13-29) o adulto (30 en adelante) en base a la edad que este ingrese.

Solución:

Proceso edad
  Definir edad,b,c Como Entero;
  Definir nombre Como Caracter;
  Escribir "Nombre: ";
  Leer nombre;
 Escribir "Ingrese edad: ";
 Leer edad;
 Si edad<=12 Entonces
  Escribir "Es Niño";
 Sino
  Si edad>=13 Entonces
   Escribir "Es Joven";
  Sino
   Si edad<=29 Entonces
    Escribir "Es Joven";
   FinSi
  FinSi
 FinSi

 Si edad>=30 Entonces
  Escribir "Es Adulto";
 FinSi

FinProceso

Guia 1

Ejercicios y códigos de la Guía 1

  
1. Realice programa que permita obtener el sueldo de tres empleados y aplicarles un aumento del 10%, 12% y 15% respectivamente.

Solución:

Proceso Pocentaje_de_salario
Definir e1,e2,e3,e4,e5,e6 Como Real;
Escribir "Ingrese el sueldo del primer empleado: ";
Leer e1;
Escribir "Ingrese el sueldo del seundo empleado: ";
Leer e2;
Escribir "Ingrese el sueldo del tercer empleado: ";
Leer e3;
e4<-e1-(e1*0.10);
e5<-e2-(e2*0.12);
e6<-e3-(e3*0.15);
Escribir "El sueldo total del pimer empleado es: ",e4;
Escribir "El sueldo total del segundo empleado es: ",e5;
Escribir "El sueldo total del tercer empleado es: ",e6;
FinProceso

2. Realice un programa que lea una cantidad depositada en un banco y que calcule la cantidad final después de aplicarle un 20% de interés.

Solución:

Proceso dinero
Definir d1,r,rf como real;
Escribir "Ingrese Cantidad de Dinero: ";
Leer d1;
r<-d1*0.20;
rf<-d1-r;
Escribir "El dinero total es: ",rf;
FinProceso

3. Un maestro desea saber que porcentaje de hombres y que porcentaje de mujeres hay en un grupo de estudiantes.

Solución:

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

4. Un alumno desea saber cual será su calificación final en la Fundamentos de programación. Dicha calificación se compone de dos laboratorios y 1 parcial cuya ponderación es de 30%, 30% y 40% respectivamente.

Solución:

Proceso sin_titulo
Definir n1,n2,n3,n4,n5,n6,p Como Real;
Escribir "ingrese nota del laboratorio1:";
Leer n1;
Escribir "ingrese nota del laboratorio2";
Leer n2;
Escribir "ingrese nota de parcial";
Leer n3;
n4<-n1*0.30;
n5<-n2*0.30;
n6<-n3*0.40;
Escribir "El resultado del laboratorio1:",n4;
Escribir "El resultado del laboratorio2:",n5;
Escribir "El resultado de parcial:",n6;
p<-n4+n5+n6;
Escribir "El promedio final es:",p;
FinProceso

5. Una ferretería aplica al precio de los remedios el 10% de descuento. Hacer un programa que ingresado el costo de los medicamentos calcule el descuento y el precio final.

Solución:

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

6. Elaborar un programa que eleve un numero introducido por el usuario, a un exponente cualquiera dado por el usuario.

Solución:

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


7. Realice un programa que calcule los días que se tardara en cortar # m cantidad de alambre para un stock de # m. de alambre.

Solución:

Proceso stock
Definir a,b,c Como Entero;
Escribir "Ingrese que Cantidad de stock hay: ";
Leer a;
Escribir "Ingrese que Cantidad Cortara: ";
Leer b;
c<-a/b;
Escribir "Dias que se tardara en cortar toda la cantidad es: ";
FinProceso

8. Escriba un programa que imprima la planilla de pago de un empleado. Los datos de salida son: nombre del empleado, sueldo bruto, AFP, seguro social, renta, descuentos, anticipos, sueldo neto.

Solución:

Proceso sin_titulo
Definir bruto,afp,seguro,renta,descuento,anticipos,rneto,neto como real;
Definir empl como caracter;
bruto<-0;
afp<-0.0625;
seguro<-0.03;
renta<-0.10;
descuento<-0;
anticipos<-0;
neto<-0;
Escribir "Ingrese el nombre del empleado: ";
Leer empl;
Escribir "Ingres el sueldo bruto: ";
Leer bruto;
Escribir "Ingres descuento: ";
Leer descuento;
Escribir "Ingrese anticipos: ";
Leer anticipos;
rneto<-((bruto*afp)+(bruto*seguro)+(bruto*renta)+descuento+anticipos);
neto<-bruto-rneto;
Escribir "El sueldo neto de ", empl, " es: ", neto;
FinProceso

9. Crear un algoritmo que pida al usuario 5 datos y muestre su suma.

Solución:

Proceso sin_titulo
Definir  a,b,c,d,e,f Como Real;
Escribir "Ingrese el primer dato: ";
Leer a;
Escribir "Ingrese el segundo dato: ";
Leer b;
Escribir "Ingrese el tercer dato: ";
Leer c;
Escribir "Ingrese el cuarto dato: ";
Leer d;
Escribir "Ingrese el quinto dato: ";
Leer e;
f<- a+b+c+d+e;
Escribir "La suma es: ", f ;
FinProceso


10. Realice un programa que calcule la hipotenusa de un triángulo rectángulo conocidas las longitudes de sus dos catetos.

Solución:

Proceso hipo
Definir c1,c2,hip Como Real;
c1<-0;
c2<-0;
hip<-0;
Escribir "Ingrese el valor del primer Cateto: ";
Leer c1;
Escribir "Ingrese el valor del segundo Cateto: ";
Leer c2;
hip<-rc(c1^2+c2^2);
Escribir "El valor de la hipotenusa es: ", hip;
FinProceso

Mini Guia

 Mini Guía

Actividad Tarea rápida ejercicios y códigos


1. Realice un ejercicio que permita saber si un numero es primo o no. recuerde que un numero es primo si y solo si, es división exacta entre el mismo y la unidad.

2. Realice un ejercicio que permita calcular notas de 5 estudiantes y promediar las (lab1 30%, labo2 30%, parcial 40%), pero a su vez debe validar que las notas ingresadas estén entre 0 y 10 si sale de este rango debe indicar que ingrese de nuevo las notas.

3. Generar los números pares del 2 al 20 y generar la suma de los mismos.

4. Generar los números impares del 1 al 35 y generar la suma de los mismos.

5. Realice un ejercicio propio de manera original en el cual haga uso  del ciclo para y Condiciones. Establezca el enunciado del ejercicio.




Realice un ejercicio que permita saber si un numero es primo o no. recuerde que un numero es primo si y solo si, es division exacta entre el mismo y la unidad.

Solución:

Proceso Numeros_primos
         Escribir "Ingrese el numero";
         Definir numero, N, i, C como real;
         Leer numero;
         Si numero = 1 Entonces
                   Escribir "El numero es primo";
         Sino
                   C<-0;
                   Para i<- 1 Hasta numero Hacer
                            Si numero % i = 0 Entonces
                                      C<- C + 1;
                            FinSi
                   FinPara
         FinSi
         Si C = 2 Entonces
                   Escribir "El numero es primo";
         Sino
                   Escribir "El numero no es primo";
         FinSi

FinProceso


Realice un ejercicio que permita calcular notas de 5 estudiantes y promediarlas (lab1 30%, labo2 30%, parcial 40%), pero a su vez debe validar que las notas ingresadas estén entre 0 y 10 si sale de este rango debe indicar que ingrese de nuevo las notas.

Solución:

Proceso Nota_de_5_estudiantes
definir lab1,lab2,parc,prom,a Como Real;
Para a<-1 Hasta 5 Con Paso 1 Hacer
Escribir " Estudiante ", a;
leer lab1,lab2,parc;
prom<-((lab1*0.30)+(lab2*0.30)+(parc*0.40));
si prom>10 entonces
Escribir "Ingrese de nuevo las notas";
leer lab1,lab2,parc;
prom<-((lab1*0.30)+(lab2*0.30)+(parc*0.40));
FinSi
Escribir " La nota final es ", prom;
FinPara              
FinProceso

Generar los números pares del 2 al 20 y generar la suma de los mismos.

Solución:

Proceso pares
Definir a,b, c como entero;
b<-0;
Para a<-2 Hasta 20 Con Paso 2 Hacer
Escribir "Los numeros pares son: ",a;
b<-a+b-2;
c<-a+b;
FinPara
Escribir "La suma: ",c;
FinProceso

Generar los números impares del 1 al 35 y generar la suma de los mismos

Solución:

Proceso impares
Definir a,b, c como entero;
b<-0;
Para a<-1 Hasta 35 Con Paso 2 Hacer
Escribir "Los numeros impar son: ",a;
b<-a+b-2;
c<-a+b;
 
    FinPara
Escribir "La suma: ",c;
FinProceso

Realice un ejercicio propio de manera original en el cual haga uso  del ciclo para y Condiciones. Establezca el enunciado del ejercicio

Solución:

Proceso Multiplicacion_Cifra
Definir a,b,c como entero;
Para a<-1 Hasta 10 Con Paso 1 Hacer
Para b<-1 Hasta 10 Con Paso 1 Hacer
c<-a*b;
Escribir a, " x " , b , " = ", c;
Si c>=50 Entonces
Escribir "La cifra es alta";
Sino
Si c<=50 Entonces
escribir "la cifra es baja";
FinSi
FinSi
FinPara
FinPara
FinProceso

lunes, 2 de junio de 2014

ejercicio de bucle de para

Bucle de Para
Programa de Pseint de los números pares del 1 al 40.

Solución:

Proceso pares
Definir x Como Entero;
Para x<-2 Hasta 40 Con Paso 2 Hacer
Escribir 'numeros pares :',x;
FinPara
FinProceso


Programa de Pseint de los números impares del 1 al 35.

Solución:

Proceso impar
definir x,y como entero;
Para x<-1 Hasta 35 Con Paso 2 Hacer
y<-x/3;
Escribir "numero impar:",x;
FinPara
FinProceso

Programa de Pseint de los números pares e impares hasta el 10.

Solución:

Proceso numeros
definir x como entero;
Para x<-1 Hasta 10 Con Paso 1 Hacer
Si  x%2=0 Entonces
Escribir "el numero es par:",x;
Sino
Escribir "el numero es impar:",x;
FinSi
FinPara
FinProceso

Programa de Pseint de los múltiplos del 2 hasta el 10.

Solución:

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

Programa de Pseint que muestre los digito del 0 al 9.

Solución:

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

Programa de Pseint que muestre la suma de los números pares hasta 40.

Solución:

Proceso numeros_pares 
definir x,y  como entero;
y<-0;
Para x<-2 Hasta 40 Con Paso 2 Hacer
Escribir "numeros par : " , x;
y<-y+x;
FinPara
Escribir "la suma total es : " , y;
FinProceso

Flujograma

Programa de Pseint de los números pares del 1 al 40
 Programa de Pseint de los números impares del 1 al 35

 Programa de Pseint de los números pares e impares hasta el 10


Programa de Pseint de los múltiplos del 2 hasta el 10


Programa de Pseint que muestre los digito del 0 al 9


Programa de Pseint que muestre la suma de los números pares hasta 40


Programa en Pseint que al ingresar 5 nombres , luego los muestre en orden como fueron ingresados

Programa en Pseint que al ingresar 5 nombres , luego los muestre en orden como fueron ingresados.


Solución:

Proceso sin_titulo
Definir a Como caracter;
definir c como entero;
Dimension a(5);
c<-0;
Mientras c<5 Hacer
Escribir "Ingrese Nombre: ";
Leer a(c);
c<-c+1;
FinMientras
Para c<-0 Hasta 4 Con Paso 1 Hacer
Escribir a(c);
FinPara
FinProceso

Programa en Pseint que genere los números pares del 1 a 20 y que aparte diga cuales nos son números pares , utilizando vector

Programa en Pseint que genere los números pares del 1 a 20 y que aparte diga cuales nos son números pares , utilizando vector.

Solución:

Proceso pares
definir par,a,b como entero;
Dimension par(10);
a<-0;
b<-1;
Para b<-1 Hasta 20 Con Paso 1 Hacer
Si b%2=0 Entonces
par(a)<-b;
a<-a+1;
Sino
Escribir "No es Par: ",b;
FinSi
FinPara
Escribir "Los Pares ";
Para a<-0 Hasta 9 Con Paso 1 Hacer
Escribir par(a);
FinPara
FinProceso

ingresar 3 números luego lo muestre descendente al que fuero ingresados

Programa en Pseint que al ingresar 3 números luego lo muestre descendente al que fuero ingresados.

Solución:

Proceso sin_titulo
definir a,b Como Entero;
Dimension a(3);
b<-0;
Mientras b<3 Hacer
Escribir "Ingrese un numero: ";
Leer a(b);
b<-b+1;
FinMientras
Para b<-2 Hasta 0 Con Paso -1 Hacer
Escribir a(b);
FinPara
FinProceso