Autor Tema: Reto Para Programadores De Pascal (Leído 13742 veces)

Tripa · « **en:** Miércoles 14 de Abril de 2004, 09:15 »

hola como pueden notar soy nuevo por aca mis respetos para todos los programadores, me han presentado un reto y necesito ayuda de ustedes.

sere breve para no aburrir

necesito su ayuda para crear la simulacion de un cajero automatico en pascal
que tenga unidad grafica,
que tenga password a la entrada con tres intentos para retener targeta
que pueda cambiar contraseña
que soporte billetes de 10000, 5000, 2000 y 1000 colones
que soporte monedas de 500, 100, 50, 25, 20, 10, 5, 2, y 1 colon
que se puedan hacer retiros y depositos a las cuentas
que imprima in bautcher al final con la transaccion realizada y saldo disponible.

estoy intentando hacerlo pero no soy lo suficientemente bueno aun, es por eso que LES PIDO SU AYUDA!!!!.

Les agradeceria montones si me pudiesen ayudar o si tiene un programa paresido

Mi correo es [email:99dmk7xf]esteban_cat@costarricense.cr[/email:99dmk7xf]

gracias de antemano TRIPA

mau

Hola amigo,
Lamento decirte que parece que vas por el rumbo equivocado.

Lo correcto es decir que has hecho, que has pensado hacer..

Y asi se procede con la ayuda

Has hecho algunos intentos?
Donde es que tienes problemas?
En la definiciòn de los requerimientos?
En los algoritmos?
en la programaciòn?

Explica màs!

Saludos compatriota!

Blag

Disculpa Tripa, pero ese es un reto para ti....y no para nosotros, porque por lástima, nosotros no resolvemos tareas.

Si has avanzado algo, postea tu código, y dimos en que parte te quedas estancado y así si que te ayudaremos.

Saludos,

Tripa

saludos y gracias por responder a mau y blag

la verdad si he intentado, estoy empesando a estudiar sistemas por que me gusta la computacion, desde que tengo uso de razon manejo computadoras, pero para mi desgracia me toco un profesor hijueputa

, la verdad es un proyecto de fin de cuatrimestre quiero pasar esa materia para cambiar de u para que no me siga dando las materias que siguen.

nunca mi intecion fue la de causar lastima por que no quiero que me tengan lastima. por lastima no me van a dar trabajo en ningun lado, tampoco mi intencion fue causarles molestias de ningun tipo, queria ver si alguien podia ayudarme de una u otra manera. como pueden ver ando investigando en internet buscano manuales de pascal o algo parecido que pueda ayudarme lo malo es que me queda una semana para entregar el proyecto y no creo que me de tiempo de empesar a leer manuales y terminar el trabajo, ademas tengo otras materias pero tranquilos agradesco su intencion de ayudar y espero llegar a ser como ustedes algun dia y se que voy a lograrlo.

cuidense, portense bien y no tomen mucho guaro
y si van a tomar avisen para ir

PURA VIDA COMPATRIOTAS

Gelion

Maneje turbo Pascal hace como año y medio, y lo que pides, requerie de mucho trabajo, si piensas hacer algo asi, te recomiendo 2 opciones, VisualBasic (Facil de aprender) y C++ (Poderoso y respetable), aunque si escojes C++ y no estas familiarizado con el, te va a dar dolores de cabeza el entorno grafico (mejor usa Dev C++) y sobre Visual, bueno hay montones de paginas de codigos de ejemplos

Espero que esto te sirva de algo

Tripa

gracias por la recomendacion gelion

pero el problemas es que tiene que ser en pascal se que vb y c++ debe de ser mas facil pero tiene que ser en pascal, ahora no tiene que ser muy complejo el programa solo con que cumpla las funciones que escribi anteriormente, pero bueno creo que nadie me puede ayudar.

agradesco tus recomendaciones.

pura vida suerte.

The Black Boy

mmmm.....

es que pascal.... mmmmm

no ni idea , la verdad es que me parece un lenguaje complejo, mintras que los que menciona Gelion ; mejor dicho me uno a la opinion de el..

pero depronto si te podemos ayudar con la lógica para desarrollar tu proyecto, dí como lo has pensado o que algoritmo vas ha seguir para poder desarrollarlo..

un saludo y perdon por no poder ayudarte

Tripa

Gracias the black boy

se que es un reto dificil

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

mau

Hola Trip@

Por ningún lugar ví lo que has hecho!

No estoy tan deacuerdo con los amigos que escribieron arriba, Pascal es sencillo, mucho más que C, valla que si!

Es diferente y no es gráfico, pero es entretenido y con esa base se puede aprender mucho. Claro que estamos hablando de aprendizaje.

Tripa@, consíguete un libro de pascal, pásate unas noches en frente del ordenador haciendo los ejemplos y verás que pronto tu mismo te darás las respuestas.

Otra cosa, no te desanimes si no le encuentras solución pronto, práctica mucho y lee, pon aqui tus dudas, pero pon código o el pseudo que tienes en mente,
Hablaremos claramente y creo que entre todos pronto lo lograrás!

Saludos

DriverOp

Cita de: "Gelion"

Maneje turbo Pascal hace como año y medio, y lo que pides, requerie de mucho trabajo, si piensas hacer algo asi, te recomiendo 2 opciones, VisualBasic (Facil de aprender) y C++ (Poderoso y respetable), aunque si escojes C++ y no estas familiarizado con el, te va a dar dolores de cabeza el entorno grafico (mejor usa Dev C++) y sobre Visual, bueno hay montones de paginas de codigos de ejemplos

Espero que esto te sirva de algo

Gelion, amigo, ubicate, ¿quieres?, estas en un foro de Pascal, no puedes salirte con que se use otro lenguaje. Además Pascal es perfectamente adecuado para resolver el algoritmo propuesto por Tripa.

DriverOp

Cita de: "Tripa"

Gracias the black boy

se que es un reto dificil 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

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.

Tripa

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

Código: Text

 
Program Cajero_Automatico;
 
uses crt,dos,printer;
const
CLAVECORRECTA='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 &#60;&#62; 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&#59;
              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}
 
var
OpcionCambio: 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 &#34;D&#34; ');
   gotoxy(10, 21);writeln('Para retirar Colones Presione &#34;C&#34; ');
   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;
var
OpcionMenu: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 &#34;S&#34;');
   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

imguerrero

Pues a simple vista, haciendo una compilacion rapida, aparecen diversos errores:

Citar

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];

para empezar estas utilizando mal la funcion div, cantidadcolon esta declarada como real y debe ser un entero en este caso.

Despues el uso que haces del array billetes es incorrecto (intenta reflexionar sobre ello y consulta el manual para saber como debes acceder a él).

Tambien falta finalizar el procedure con su respectivo end (Truco: es aconsejable que cuando escribas el begin, inmediatamente despues escribas el end correspondiente y luego vayas introduciendo el codigo entre estos dos. De esta forma te aseguras no olvidarte ninguno). Este mismo error esta presente en diversos procedimientos.

Luego en otra zona del codigo, tambien hay varias variables a las que intentas acceder sin haberlas declarado primero.

Basicamente si vas compilando, lee con atencion los mensajes de error porque alli te indican que es lo que esta fallando.

NOTA: entiendo que esta es una practica para tus estudios y por eso no te pongo la solucion concreta a tus problemas, sino que te doy algunas pistas. Pienso que este programa forma parte de tu aprendizaje y como tal, debes ser tu el que debes esforzarte por hacerlo lo mejor posible. Si te lo hacen otros, estaran haciendote un flaco favor.
Suerte y animo.

Attakinsky · « **Respuesta #16 en:** Lunes 3 de Mayo de 2004, 16:38 »

TRIPA:

totalBilletes := cantidadcolon div billetes[1] to [4];

Tu primer error, es que estás tratando de dividir un real con un integer, lo cual no es permitido en Pascal

Tu segundo error es tratar de dividir una variable (cantidadcolon) ¡¡¡ con un arreglo completo ( [1] to [4] ) !!! Esto en cualquier lenguaje es imposible. Si lo quieres es dividir con todas las posiciones del arreglo debes hacerlo una por una, posiblemente dentro de un ciclo o bucle. Si corriges eso y vuelves a publicar tu código te puedo seguir ayudando con gusto.

También puedes contactarme a attakinsky@yahoo.com

FSR

Para el proceso de entregar el dinero en base al efectivo disponible, se podría hacer algo así:

Código: Text

Const
    {Tipo de Moneda. El caracter 'm' representa moneda, y 'b' billete}
    TipoMoneda :Array[1..13] of String[6] = ('b10000', 'b5000', 'b2000', 'b1000',
                                                               'm500', 'm100', 'm50', 'm25', 
                                                               'm20, 'm10', 'm5', 'm2', 'm1');
 
    {Cantidad de billetes/Monedas por valor}
    CantMoneda: Array[1..13] of Word = (100, 100, 100, 100, 100, 100, 100,
                                                            100, 100, 100, 100, 100, 100, 100, 100);
 
 
 
Procedure EntregaDinero(Cantidad :LongInt);
    Var
        Indice   :Byte;
        Moneda :Word;
        Err        :Integer;
        CantidadBilletes :Word;
 
    Begin
        WriteLn('Desgloce:');
        For Indice := 1 to SizeOf(TipoMoneda) Div SizeOf(TipoMoneda[1])) do
            Begin
                Val(Copy(TipoMoneda[Indice], 2, Length(TipoMoneda[Indice])-1),
                      Moneda, Err);
                CantidadBilletes := Cantidad Div Moneda;
                If (CantidadBilletes &#62; CantMoneda[Indice]) then 
                    CantidadBilletes := CantMoneda[Indice];
                If (CantidadBilletes &#62; 0) then
                    Begin
                        If (TipoMoneda[Indice]='b') then
                            Write('Billetes')
                        Else
                            Write('Monedas');
                        WriteLn(' de  &#036;', Moneda, ' = ', CantidadBilletes);
                        CantMoneda[Indice] := CantMoneda[Indice] - CantidadBilletes;
                        Cantidad := Cantidad - CantidadBilletes*Moneda;
                    End; {If}
            End; {For 'Indice'}
    End; {EntregaDinero}
 

Espero que esto sea de utilidad. Saludos

C++ BorlFJ

verga men a ver si te entendí de lo que tienes

querras esto en el procedure de COLON los demás los arregle más o menos aunque se me travó en el del RETIRO DE EFECTIVO de todas formas cuando tenga un pelo más de tiempo lo veré es que tengo que hacer una vaina de Estadística para mí y la tengo que entregar mañana... chauuuuuuuuuuuuu
ai te va

0
11

Amilius

Cita de: "Gelion"

Maneje turbo Pascal hace como año y medio, y lo que pides, requerie de mucho trabajo, si piensas hacer algo asi, te recomiendo 2 opciones, VisualBasic (Facil de aprender) y C++ (Poderoso y respetable), aunque si escojes C++ y no estas familiarizado con el, te va a dar dolores de cabeza el entorno grafico (mejor usa Dev C++) y sobre Visual, bueno hay montones de paginas de codigos de ejemplos

Espero que esto te sirva de algo

El punto es que turbo Pascal v.? es un COMPILADOR antiguo a 16 bits. De todas formas lo recomendable sería Delphi v3 adelante (si sabes pascal no tendrás problemas con delphi), no es interpretado como VBasic y tienes todas las ventajas de los compiladores visuales de C++: POO e interfaz gráfica orienta a objetos, además de componentes listos para arrastrar y soltar.

En delphi podrás usar los tipos de datos base de C, incluso su forma de realizar comentarios, podrás usar varias formas de llamadas a funciones y procedimientos de forma optimizada (mediante registros) y otras formas compatibles con C.

Object Pascal, el lenguaje que utiliza el compilador delphi, refuerza la idea de orden y tipos fuertes. En C los tipos son débiles, lo que si bien permite escribir menos resulta en código difícil de comprender si no está generosamente comentado.

En Objetc Pascal tendrás que indicar claramente cuando usarás un entero como puntero o viceversa, cuando usarás un char como byte y viceversa, etc. El código generado será el mismo para ambos lenguajes con la diferencia que en Object Pascal es obligatorio incluir en el programa ese tipo de información, no para generar código, sino para hacer más legible el programa.