// ELABORADO POR WLADIMIR ALVIARES PARA 1º DE PROCESAMIENTO DE DATOS DEL COLEGIO P. SANTA TERESITA.
// Enero del 2010
num <-0;
monde <-0;
cuenta <-0;
cuentat<- " ";
clave1 <-1010;
clave2 <-1212;
clave3 <-1313;
clave4 <-1414;
clave <-0;
Escribir "**********************ELABORADO POR: WLADIMIR ALVIARES**************************";
Escribir "********************************************************************************";
Escribir "* BANCO ZETA, C.A. *";
Escribir "* AGENCIA: Av. EL CUARTEL - CATIA *";
Escribir "* BIENVENIDOS AL SISTEMA DE CAJEROS DEL BANCO ZETA, C.A. *";
Escribir "********************************************************************************";
Escribir "Favor introducir su clave personal:";
Leer clave
si clave = clave1 Entonces
Escribir "...............................................SU CLAVE ES CORRECTA USUARIO 1";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir " MENU PRINCIPAL ";
Escribir " 1)- DEPOSITOS";
Escribir " 2)- RETIROS";
Escribir " 3)- PAGOS SERVICIOS";
Escribir " 4)- OTRAS OPERACIONES";
Escribir " 5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir " ******************** SUB MENU:DEPOSITOS ********************";
Escribir "TIPO DE CUENTA:";
Leer cuentat
Escribir "NUMERO DE CUENTA:";
Leer cuenta
Escribir "MONTO A DEPOSITAR:";
Leer monde
2:Escribir " ********************* SUB MENU:RETIRO ********************* ";
3:Escribir " ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir " ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
si clave = clave2 Entonces
Escribir "...........................................SU CLAVES ES CORRECTA USUARIO2";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir " MENU PRINCIPAL ";
Escribir " 1)- DEPOSITOS";
Escribir " 2)- RETIROS";
Escribir " 3)- PAGOS SERVICIOS";
Escribir " 4)- OTRAS OPERACIONES";
Escribir " 5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir " ******************** SUB MENU:DEPOSITOS ********************";
Escribir "TIPO DE CUENTA:";
Leer cuentat
Escribir "NUMERO DE CUENTA:";
Leer cuenta
Escribir "MONTO A DEPOSITAR:";
Leer monde
2:Escribir " ********************* SUB MENU:RETIRO ********************* ";
3:Escribir " ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir " ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
si clave = clave3 Entonces
Escribir "........................................SU CLAVE ES CORRECTA USUARIO3";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir " MENU PRINCIPAL ";
Escribir " 1)- DEPOSITOS";
Escribir " 2)- RETIROS";
Escribir " 3)- PAGOS SERVICIOS";
Escribir " 4)- OTRAS OPERACIONES";
Escribir " 5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir " ******************** SUB MENU:DEPOSITOS ********************";
Escribir "TIPO DE CUENTA:";
Leer cuentat
Escribir "NUMERO DE CUENTA:";
Leer cuenta
Escribir "MONTO A DEPOSITAR:";
Leer monde
2:Escribir " ********************* SUB MENU:RETIRO ********************* ";
3:Escribir " ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir " ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
si clave = clave4 Entonces
Escribir "....................................SU CLAVE ES CORRECTA USUARIO4";
Escribir ".";
Escribir "..";
Escribir "...";
Escribir "********************************************************************************";
Escribir " MENU PRINCIPAL ";
Escribir " 1)- DEPOSITOS";
Escribir " 2)- RETIROS";
Escribir " 3)- PAGOS SERVICIOS";
Escribir " 4)- OTRAS OPERACIONES";
Escribir " 5)- SALIR DEL SISTEMA";
Escribir "********************************************************************************";
Escribir "Pulsar el numero de la operacion que desea realizar:";
Leer num
Segun num Hacer
1:Escribir " ******************** SUB MENU:DEPOSITOS ********************";
Escribir "TIPO DE CUENTA:";
Leer cuentat
Escribir "NUMERO DE CUENTA:";
Leer cuenta
Escribir "MONTO A DEPOSITAR:";
Leer monde
2:Escribir " ********************* SUB MENU:RETIRO ********************* ";
3:Escribir " ********************* SUB MENU PAGO SERVICIO ************** ";
4:Escribir " ********************* SUB MENU OTROS SERVICIOS ************** ";
5: salir <-1;
FinSegun
Sino
Escribir "********** LA CLAVE ES INCORRECTA ********** LA CLAVE ES INCORRECTA **********";
FinSi
FinSi
FinSi
FinSi
FinProceso
