PROGRAMAS EN PSEINT 

1: REALIZAR UN PROGRAMA PARA CALCULAR LA  FACTURACION DE UNA TIENDA 

Algoritmo jercicio_facturacion 
// universidad tecnica estatal de quevedo 
// cristhian fabian alvarado castro
// Software "A"
Definir i, fila, pago, cuota Como entero;
definir productos, continua Como Caracter; 
definir precio, total, descuento, des Como Real
    Escribir "_____Bienvenidos a mi comisariato._____"; 
Dimension cantidad[250], productos[250], precio[250];
Escribir "INGRESAR ARTÍCULOS";
    continua <- "si"; i <- 1
Repetir
Escribir Sin Saltar "Escriba el nombre del producto: ";
leer productos[i];
Escribir Sin Saltar "Precio Unitario: S/$ ";
Leer precio[i];
Escribir Sin Saltar "Cantidad: ";
leer cantidad[i];
i <- i + 1;
Escribir sin saltar "¿Desea ingresar otro artículo (si/no)? ";
Leer continua;
Hasta Que continua = "no" o continua = "NO";
EscRibir "Desea pagar en: "
Escribir "1. En efectivo";
escribir "2. Tarjeta";
Leer pago;
Escribir " ";escribir "COMPRA TOTAL ";
Escribir "========================================================";
Escribir "CANTIDAD    DESCRIPCIÓN     PRE.UNI.    PRE.TOTAL";
total <- 0; // Inicializar total
Para fila <- 1 Hasta i - 1 Con Paso 1 Hacer
// Calcular el precio total para la fila actual
precio_total <- cantidad[fila] * precio[fila]; 
// Sumar al total acumulado
total <- total + precio_total; 
// Imprimir los datos de la fila
Escribir   cantidad[fila],  "             ", productos[fila], "           S/$", precio[fila], ".       $", precio_total;
FinPara
Escribir "========================================================";
Si pago = 1 Entonces
Escribir "Usted ha pagado en efectivo.";
descuento <- total * 0.2;
Escribir "Su descuento fue del 20% que equivale a: S/$", descuento;
Escribir "====================================================";
total <- total - descuento; // Restar el descuento al total
Escribir "                         Su total es de: S/$", total;
Fin Si
Si pago = 2 Entonces
Escribir "Usted ha pagado en tarjeta.";
Escribir "|Ingrese el número de cuotas en las que desea pagar|"
Leer cuota;
// Calcular el interés del 30% sobre el total
interes <- (total * 0.3); 
// Sumar el interés al total
total <- total + interes; 
// Calcular el valor de la cuota
cuota_valor <- total / cuota; 
Escribir "El 30% de interés es de: S/$", interes;
Escribir "El número de cuotas a pagar es de: ", cuota;
Escribir "El valor de la cuota a pagar es de: S/$", cuota_valor;
Escribir "========================================";
Escribir        "Su total final es de: S/$", total;
Fin Si
Escribir "GRACIAS POR SU VISITA VUELVA PRONTO"
FinAlgoritmo






2: REALIZAR UN PROGRMA QUE CONVIERTA DE PESOS A DOLOARES Y DE DOLARES A PESOS

Algoritmo ConversionMoneda
// universidad tecnica estatal de quevedo 
// cristhian fabian alvarado castro
// software "A"
Definir pesos, dolares, opcion Como Real
Escribir "MENU"
Escribir "1. Convertir de pesos mexicanos a dólares"
Escribir "2. Convertir de dólares a pesos mexicanos"
Escribir "Ingrese una opción:"
Leer opcion
Segun opcion Hacer
1:
Escribir "Ingrese la cantidad de pesos mexicanos:"
Leer pesos
dolares <- pesos / 20.0  // Suponiendo un tipo de cambio de 1 dólar = 20 pesos mexicanos
Escribir "La cantidad en dólares es:", dolares
2:
Escribir "Ingrese la cantidad de dólares:"
Leer dolares
pesos <- dolares * 20.0  // Suponiendo un tipo de cambio de 1 dólar = 20 pesos mexicanos
Escribir "La cantidad en pesos mexicanos es:", pesos
De Otro Modo:
Escribir "Opción inválida"
FinSegun
FinAlgoritmo

EJECUCION DE DOLARES A PESOS 



EJECUCION DE PESOS A DOLARES