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
