PSEINT - SISTEMA TARJETA BIP
El siguiente ejemplo permite:
ingresar mediante una clave especifica establecida “0000”, girar dinero, contar los giros realizados, realizar depósitos, consultar saldo.
Utiliza: Mientras, Segun, Si
No ocupa Subprocesos.
----------------------
Proceso sin_titulo Definir clave como caracter; Definir saldo_actual, giro, deposito, op, contador, lageclave, contadorclav Como Entero; Definir acierto como Logico; clave = "0000"; contadorclav = 0; contador = 0; saldo_actual = 1000000; acierto = falso; lageclave = longitud (clave);
Mientras (contadorclav < 100 Y acierto = FALSO) Hacer //ponemos aqui leer porque con las variables //iniciales entra en el bucle Escribir "introduce la clave"; Leer clave; si (clave = "0000") Entonces Limpiar Pantalla; acierto = Verdadero; Repetir Escribir "SELECCIONE EL TIPO DE OPERACIÓN"; Escribir ""; Escribir "1. Consulta de saldo"; Escribir "2. Girar"; Escribir "3. Realizar deposito"; Escribir "4. Consultar total de giros realizados"; Escribir "5. Salir"; Leer op; Segun op hacer 1: Limpiar Pantalla; Escribir "Su saldo es: $", saldo_actual; Escribir ""; Escribir "Aprete una tecla para continuar"; Esperar Tecla; Limpiar Pantalla; 2: Limpiar Pantalla; Escribir "Ingrese el monto a girar: "; Leer giro; Si(giro > saldo_actual) Entonces Escribir "SALDO INSUFICIENTE"; SiNo Escribir "Ha girado con exito: $", giro; Escribir "Aprete una tecla para continuar"; Esperar Tecla; contador = contador + 1; Limpiar pantalla; FinSi saldo_actual = (saldo_actual - giro); 3: Limpiar Pantalla; Escribir "Saldo actual: $", saldo_actual; Escribir "Ingrese monto a cargar: "; Leer deposito; saldo_actual = saldo_actual + deposito; Escribir "Se han ingresado: $", deposito; Escribir "Su saldo actual es de: $", saldo_actual; Escribir "Aprete una tecla para continuar"; Esperar tecla; Limpiar Pantalla; 4: Escribir "TOTAL DE GIROS REALIZADOS: ",contador ; Escribir "Aprete una tecla para continuar"; Esperar tecla; Limpiar Pantalla; 5: Escribir "GRACIAS POR PREFERIR NUESTROS SERVICIOS"; Esperar 5 segundos; De Otro Modo: Escribir ""; Limpiar Pantalla; FinSegun Hasta Que (op = 5)
FinSi contadorclav = contadorclav + 1; FinMientras
FinProceso









