Reto Para Programadores De Pascal

Programación General > Pascal

<< < (3/4) > >>

DriverOp:

--- Cita de: "Tripa" --- Gracias the black boy :good:

se que es un reto dificil :brickwall: voy a ponerles que es lo que he hecho mas o menos.
si y hasta yo tambien estoy de acuerdo con esos otros lenguajes pero la cosa es en pascal.

pura vida programador :suerte:
--- Fin de la cita ---
No, no puedes estar de acuerdo con lo que no conoces.
Un consejo, comienza rompiendo el problema mayor en problemas menores.
En tu mensaje original lo has hecho bién, ahora has un programa distinto de cada uno:
Un programa que maneje unidad grafica.
Uno que tenga password a la entrada con tres intentos.
Uno que pueda cambiar contraseña.
Uno identifique billetes de 10000, 5000, 2000 y 1000 colones
Uno que identifique monedas de 500, 100, 50, 25, 20, 10, 5, 2, y 1 colon.
Uno que calcule la combinación de billetes de esas denominaciones en un monto dado, por ejemplo 12500 colones está compuesto por un billete de 10000, 2 de 1000 y uno de 500. Esto te servirá para dar el cambio.
Uno donde puedas administrar cuentas (necesitarás acceso a archivos).
Un programa donde practicar cómo imprimir en la impresora.

Tripa:
gracias por las respuestas compañeros

driverop tienes razon y gracias por responder.
ok me diste una idea por esa parte de los billetes que usare.

mau apenas pueda voy a ponerte lo que he echo y las dudas para que me guies un poco si te acuerdas de pascal, es que ahorita estoy en examenes finales y no he tenido tiempo, pero apenas pueda te lo pongo.

PURA VIDA A TODOS LOS QUE ME RESPONDIERON ME AYUDARON BASTANTE Y VOY A LOGRAR HACERLO LUEGO SE LOS ENSEÑO PARA QUE ME DIGAN QUE LES PARECIO.

SALUDOS A TODOS.

Gelion:
Oye DriverOp, claro que se que estoy en un foro de Pascal, eso de que se cambie a otro idioma de prog. no es mas que una recomendacion, o no se puede dar alguna recomendacion??

Un consejo para Tripa, si checas en la Carpeta de Pascal (ojo: si tienes Borland Turbo Pascal) existe una carpeta "Examples", checala, ahi viene algunas de las cosas que pides, si no la tienes dime y la comprimo para mandartela.

Tripa:
Gracias gelion

Te agradeceria que me la mandaras para ver los ejemplos que trae y de ellos coger volados para los programas que estoy haciendo.

mi correo es [email:35k4mgza]esteban_cat@costarricense.cr[/email:35k4mgza]

te agradesco de ante mano. :suerte:

Tripa:
Aqui esta el codigo pero no se cual es el problema
AYUDA

--- Código: Text --- Program Cajero_Automatico; uses crt,dos,printer;constCLAVECORRECTA='1111';DIAS : array[0..6] of string[15] =('Domingo','Lunes','Martes','Miercoles','Jueves','Viernes','Sabado');BILLETES : array[1..4] of integer =(10000, 5000, 2000, 1000);MONEDAS: array[1..9] of integer =(500, 100, 50, 25, 20, 10, 5, 2, 1);USUARIOS: array[1..3] of string[50]=('Esteban A.','Carlos. B','Octavio.C'); var Cuentas: Array[1..3] of real; anyo,mes, dia, diasem,hora, minuto, segundo, milesima: word; contador1, contadorRetenida: integer; intento: string[40]; numintento: integer; totalDolare, totalMonedas, totalBilletes, contadorClave:integer; cantidadBillete:real; cantidadMonedas:real; procedure FECHAHORA; {Procedure para la fecha y la hora} begin repeat gotoxy(3,45); getdate(anyo, mes, dia, diasem); textcolor(yellow); highvideo;writeln('hoy es ', dias [diasem], ' ',dia, '/',mes, '/', anyo); gettime (hora, minuto, segundo, milesima); gotoxy(55,45);writeln('Son Las ',hora, ':',minuto, ':',segundo);normvideo; textcolor(white); delay(100); clrscr; until minuto = 61 end; procedure MenuArranque; {Procedure inicial} begin gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(25,15);writeln('INTRODUSCA SU TARJETA'); contador1:=0; delay(2000); repeat contador1:= contador1+1; delay(500); gotoxy(25,15);clreol;gotoxy(25,15);writeln('Procesando un momento por Favor'); delay(400); gotoxy(10,15);clreol; until contador1=3; numintento:= 0; { Proceso para clave de acceso} repeat clrscr; numintento:= numintento+1; gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(25, 10);writeln('introdusca la clave de acceso'); gotoxy(27, 11); readln(intento); if intento <> clavecorrecta then begin gotoxy(20, 15); writeln('Esa no es la clave correcta,intente de nuevo'); delay(1000); if numintento= 3 then begin gotoxy(20, 10); clreol; gotoxy(20, 11); clreol; gotoxy(20, 15); clreol; gotoxy(20, 35); writeln('Su tarjeta fue retenida por fallo de clave'); gotoxy(20, 36); writeln('pongase en contacto con el personal de banco'); gotoxy(20, 37); writeln('para la devolucion de su targeta'); contadorRetenida:=0; delay(1000); repeat contadorRetenida:= contadorRetenida+1; gotoxy(20,25);clreol; delay(300); gotoxy(30, 25); writeln('TARGETA RETENIDA'); delay(500); until contadorRetenida = 10; clrscr; contadorClave:=1; numintento:=0; end; end; until intento= clavecorrecta; end; procedure COLON; {cuenta en colones} var cantidadColon:real; begin gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(5, 30);writeln('Digite la cantidad de COLONES que desea retirar '); gotoxy(15,31);readln(cantidadcolon); totalBilletes := cantidadcolon div billetes[1] to [4]; procedure DOLAR; {cuenta en dolares}var cantidadDolar:real; begin gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(5, 30);writeln('Digite la cantidad de DOLARES que desea retirar '); gotoxy(15,31);readln(cantidadDolar); procedure RETIROEFECTIVO; {MEnu para el retiro de dinero} varOpcionCambio: char;begin gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(25, 15);writeln('RETIRO DE EFECTIVO'); gotoxy(10, 20);writeln('Desea hacer el retiro en dolares o colones?'); gotoxy(10, 21);writeln('Para retirar Dolares Presione "D" '); gotoxy(10, 21);writeln('Para retirar Colones Presione "C" '); readln(OpcionCambio); case opcionCambio of 'c','C': COLON; 'd','D': DOLAR;end; procedure CONSULTASALDO; {consulta de saldo diaponible} begin clrscr; gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(20, 10);writeln('El saldo a su dispocision es de ',cuentas); } procedure MENUPRINSIPAL;varOpcionMenu:char; {menu pricipal del cajero} begin clrscr; gotoxy(25, 2);Writeln('Bienvenido al cajero automatico'); gotoxy(30, 3);writeln('del banco mucha plata'); gotoxy(25, 10);writeln('MENU PRINCIPAL'); gotoxy(2, 18);textcolor(green);highvideo;writeln('A'); gotoxy(4, 18);textcolor(white);normvideo;writeln('- Retiro de efectivo'); gotoxy(2, 20);textcolor(green);highvideo;writeln('B'); gotoxy(4, 20);textcolor(white);normvideo;writeln('- Consulta de Saldo'); gotoxy(2, 22);textcolor(green);highvideo;writeln('C'); gotoxy(4, 22);textcolor(white);normvideo;writeln('- Depositos'); gotoxy(2, 13);writeln('Escoga la letra correspondiente a la transaccion que desea realizar.'); gotoxy(2, 50);writeln('Para Salir Presione "S"'); OpcionMenu:= readkey; gotoxy(30, 14);readln(OpcionMenu); case (OpcionMenu) of 'A','a': RETIROEFECTIVO; 'B','b': CONSULTASALDO; 'C','c': DEPOSITO; 'S','s': menuarranque; end; readkey; end; begin clrscr; menuarranque; MENUPRINSIPAL; end.
si me pudieran ayudar les agradeceria mucho

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior

Ir a la versión completa