Ejercicios para realizar en PSEINT

Ejercicios para realizar en clase 15 de septiembre de 2012, utilizando el programa PSEINT:

Hallar la edad de una persona
 
Proceso EdadDeUnaPersona
 definir aac, an, edad como entero;
 Escribir "Dijite ano actual";
 Leer aac;
 Escribir "Dijite año de nacimiento";
 Leer an;
 edad <- aac - an;
 Escribir "La edad es",edad;
FinProceso

Hallar el área del circulo

Proceso AreaCirculo
 definir radio, area como real;
 Escribir "Dijite el Radio del Circulo";
 Leer radio;
 area <- 3.1416 * (radio * radio);
 Escribir "El Area de un circulo es",area;
FinProceso

Hallar el área del cuadrado

Proceso AreaCuadrado
 definir area, lado como entero;
 Escribir "Dijite el lado del Cuadrado";
 Leer lado;
 area <- (lado * lado);
 Escribir "El Area del cuadrado es",area;
FinProceso

Hallar el área del triangulo

roceso AreaTriangulo
 definir base, altura, area como entero;
 Escribir "Dijite la base del triangulo";
 Leer base;
 Escribir "Dijite la altura del triangulo";
 leer altura;
 area <- (base * altura)/2;
 Escribir "El area del Triangulo es",area;
FinProceso

Realizar un programa que permita saber si un estudiante pasó o perdío una materia

Proceso NotaDefinitiva
 definir nota como real;
 Escribir "Dijite la nota definitiva";
 Leer nota;
 Si nota > = 3 Entonces
  Escribir "El estudiante Paso";
 Sino
  Escribir "El estudiante Perdio";
 FinSi
 FinProceso

Liquidar las horas extras de un empleado

Proceso LiquidarHorasExtras
 Definir SB, NH, VHE, TH como real;
 Escribir "Dijite sueldo basico";
 Leer SB;
 Escribir "Dijite numero de horas";
 Leer NH;
 VHE <- (SB * 1.25)/240;
 TH <- VHE * NH;
 Escribir "El valor de las horas extras:",VHE;
FinProceso

Compra de llantas según la cantidad

Proceso CompraLlantera
 definir cantidad, total como entero;
 Escribir "Dijite la cantidad de llantas";
 Leer cantidad;
 Si cantidad < 5 Entonces
  total <- cantidad * 800;
 Sino
  total <- cantidad * 700;
 FinSi
 Escribir "El total a pagar es",total;
FinProceso

Repetir texto con la función Mientras

Proceso Repeticiones_texto
 definir a como entero;
 a<-1;
 Mientras a <=100 hacer
 Escribir "Estamos viendo Lenguajes de programación";
 a<- a+1;
 Finmientras
FinProceso

Realizar un programa que genere números pares a partir del número 10 hasta el 40.
 
Proceso NumerosPares
 //La instrucción Para ejecuta una secuencia de instrucciones un número determinado de veces.
 definir a como entero;
 Escribir "Números pares de 10 a 40:";
 Para a<-10 Hasta 40 Con Paso 2 Hacer
  Escribir a;
 FinPara
FinProceso


Realizar un programa de conversión de dólares a pesos colombianos

Proceso ConversionDinero
 definir nd, ta, pc como real;
 Escribir "Dijite el numero de dolares";
 Leer nd;
 Escribir "Dijite la tasa actual";
 leer ta;
 pc <- nd * ta;
 Escribir "Los pesos colombianos son:",pc;
FinProceso

Realizar un programa que acumule y sume los números que sean ingresados hasta indicarle su terminación

Proceso RepetirHastaQue
 //La instrucción Repetir-Hasta Que ejecuta una secuencia de instrucciones hasta que la condición sea verdadera definir total, a como entero;
 total <- 0;
 a <- 0;
  Repetir
  Total <- Total + a;
  Escribir "Ingrese un número (0 para salir)";
  Leer a;
 Hasta Que a=0;
 Escribir "Valor acumulado es:",Total;
FinProceso

Realizar un programa que permita promediar 3 notas

Proceso PromedioDeNotas
 definir notas, suma, promedio, conta Como Real;
 definir nombre Como Caracter;
 notas <- 0;
 suma <- 0;
 promedio <- 0;
 conta <- 1;
 Escribir "Ingrese su nombre";
 Leer nombre;
 Mientras conta <=3 hacer
  Escribir "Ingrese la nota", conta;
  leer notas;
  suma <- suma+ notas;
  conta<-conta+1;
 Finmientras
 promedio<- (suma)/3;
 Escribir nombre;
 Escribir "Su promedio es:";
 Escribir promedio;
FinProceso  

Realizar un programa que permita liquidar una factura por ventas de pinturas y finalmente nos muestre valores bruto, IVA y total a pagar.

Proceso Factura_Pinturas
 Definir cantidad, precio, impuesto, total_bruto, valor_impuesto, total_pagar como entero;
 Escribir "Dijite la cantidad de pinturas";
 Leer cantidad;
 Escribir "Dijite el precio de la pintura";
 leer precio;
 Escribir "Dijite el impuesto";
 leer impuesto;
 total_bruto <- (cantidad * precio);
 valor_impuesto <- (total_bruto * (impuesto/100));
 total_pagar <- (total_bruto + (valor_impuesto));
 Escribir "Total Bruto",total_bruto;
 Escribir "valor_impuesto",valor_impuesto;
 Escribir "Total a pagar es:",total_pagar;
FinProceso

Realizar un programa que permita facturar dos productos de supermercado.

Proceso FacturaProductos
 definir suma_cantidad, vlr_precio, cantidad, vlr_total, acum_vlr_total, conta Como Real;
 definir nombre_producto, suma_producto Como Caracter;
 suma_cantidad <- 0;
 conta <- 1;
 vlr_precio  <- 0;
 cantidad  <- 0;
 vlr_total  <- 0;
 acum_vlr_total <-0;
 Mientras conta <=2 hacer
  Escribir "Ingrese el nombre del producto", conta;
  Leer nombre_producto;
  Escribir "Ingrese el precio del producto", conta;
  Leer vlr_precio;
  Escribir "Ingresa la cantidad", conta;
  Leer cantidad;
  vlr_total <- vlr_precio * cantidad;
  acum_vlr_total <- acum_vlr_total + vlr_total;
  suma_cantidad <- suma_cantidad + cantidad; //SUMA LA CANTIDAD
  conta<-conta+1;
  Escribir "Nombre del producto:",nombre_producto;
  Escribir "Valor precio:",vlr_precio;
  Escribir "Cantidad:",cantidad;
  Escribir "Valor total del artículo:",vlr_total;
 Finmientras
 Escribir "El número de artículos llevados son:",suma_cantidad;
 Escribir "Valor total a pagar es:",acum_vlr_total;
 Escribir "Gracias por sus compras...que vuelva";
FinProceso