Banco - Cajero automático
Publicado por Luis Miguel (1 intervención) el 30/06/2021 22:41:22
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Proceso Cajero_Automatico
Definir Nombre,Condicion Como CaracterDefinir Clave,Accion,C,Diferente como entero
Definir deposito,transaccion como real C=3Dimension usuarios[C]
Dimension contras[C]
Dimension Saldos[C]
usuarios[0]='Daniel'
usuarios[1]='Jorge'
usuarios[2]='Steven'
contras[0]=1234
contras[1]=2345
contras[2]=3456
Saldos[0]=0
Saldos[1]=0
Saldos[2]=0
condicion='si'
Mientras condicion=='si' Hacer
Escribir 'Por favor, digite el nombre de usuario'Leer Nombre
Diferente=0Limpiar Pantalla
Para i<-0 Hasta C-1 Con Paso 1 Hacer
Si Nombre==usuarios[i] Entonces
posicion=i Escribir 'Por favor, digite la contraseña'Leer clave
Limpiar Pantalla
Si Clave==contras[posicion] Entonces
Mientras condicion=='si' Hacer
Escribir ' Bienvenido al menú ' Escribir '***************************************************' Escribir '' Escribir 'Digite 1, si desea depositar dinero a su cuenta' Escribir 'Digite 2, si desea retirar dinero de su cuenta' Escribir 'Digite 3, si desea consultar el saldo de la cuenta' Escribir 'Digite 4, si desea salir'Leer Accion
Limpiar pantalla
Segun Accion Hacer
1: Escribir 'Digite la cantidad que desea depositar'Leer Deposito
Saldos[posicion]=Saldos[posicion]+Deposito
Escribir 'Deposito realizado con exito'Esperar 1 Segundos
Limpiar Pantalla
Continuar(condicion)
2: Escribir 'Por favor, ingrese la cantidad que desea retirar'Leer Transaccion
Si Transaccion>Saldos[posicion] Entonces
Escribir 'Usted no tiene suficientes fondos para realizar esta transacción.'Esperar 1 segundos
Continuar(condicion)
SiNo
Saldos[posicion]=Saldos[posicion]-Transaccion
Escribir 'Transaccion realizada con exito'Esperar 1 segundos
Limpiar Pantalla
Continuar(condicion)
Fin Si
3:Escribir 'Estimado cliente, su saldo actual es de ',Saldos[posicion]
Esperar 1 segundos
Continuar(condicion)
4: Escribir '¡Hasta luego, gracias por preferirnos!'Esperar 2 segundos
Limpiar Pantalla
Condicion='no'
De Otro Modo: Escribir 'Error, usted debe elegir una opcion del 1 al 4'Esperar 2 segundos
Escribir '¿Desea intentarlo de nuevo?(si o no)'Leer condicion
Limpiar Pantalla
Fin Segun
Fin Mientras
sino
Escribir 'Contraseña incorrecta'Esperar 1 segundo
Escribir 'Desea volver a intentarlo(si o no)'Leer condicion
Si condicion=='si' Entonces
Diferente=0Fin Si
Borrar Pantalla
Fin Si
SiNo
Si Nombre<>usuarios[i] Entonces
Diferente=Diferente+1
Si Diferente==3 Entonces
Escribir 'Usuario incorrecto'Esperar 1 segundo
Escribir 'Desea volver a intentarlo(si o no)'Leer condicion
Si condicion=='si' Entonces
Diferente=0Fin Si
Borrar Pantalla
Fin Si
Fin Si
Fin Si
Fin Para
Fin Mientras
FinProceso
SubProceso Continuar(condicion Por Referencia)
Escribir 'Desea realizar otra accion(si o no)?'Leer condicion
Limpiar Pantalla
Si condicion=='no' Entonces
Escribir'¡Hasta luego, gracias por preferirnos!'Esperar 2 segundos
Limpiar Pantalla
FinSi
FinSubProceso
Valora esta pregunta
0