Mostrar Mensajes

Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Información del Perfil

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - Tripa

Páginas: [1]

Pascal / Re: Reto Para Programadores De Pascal

« en: Jueves 22 de Abril de 2004, 21:02 »

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

Pascal / Re: Actualizar un grafico

« en: Miércoles 21 de Abril de 2004, 21:23 »

mau Ayudame, o el que pueda

aqui esta el codigo del programa del que anterior mente les dige pero no se como pornerle un grafico de barra con base en las ganancias de los meses
se los pongo para ver si me pueden ayudar

Código: Text

 
program examen_3;
 
uses crt;
type
meces = record
ene,feb,mar,abr,may,jun,jul,ago,sep,oct,nov,dic:{longint}real;
end;
var
op: char;
mes:meces;
 
 
procedure inicio;
begin
clrscr;
gotoxy(27, 25);
textcolor(3);
writeln('CALCULO DE VENTAS MENSUALES');
delay(1600);
textcolor(white);
end;
 
procedure incluir;
begin
clrscr;
highvideo;
gotoxy(20, 2); Writeln('---------------INCLUIR---------------');
lowvideo;
textcolor(3);
gotoxy(5, 5); writeln('Digite la ganancia de cada mes, en millones');
textcolor(white);
gotoxy(3, 10); Writeln('ENERO = ');
gotoxy(12, 10); readln(mes.ene);
gotoxy(3, 12); Writeln('FEBRERO = ');
gotoxy(14, 12); readln(mes.feb);
gotoxy(3, 14); Writeln('MARZO = ');
gotoxy(12, 14); readln(mes.mar);
gotoxy(3, 16); Writeln('ABRIL = ');
gotoxy(12, 16); readln(mes.abr);
gotoxy(3, 18); Writeln('MAYO = ');
gotoxy(11, 18); readln(mes.may);
gotoxy(3, 20); Writeln('JUNIO = ');
gotoxy(12, 20); readln(mes.jun);
gotoxy(3, 22); Writeln('JULIO = ');
gotoxy(12, 22); readln(mes.jul);
gotoxy(3, 24); Writeln('AGOSTO = ');
gotoxy(13, 24); readln(mes.ago);
gotoxy(3, 26); Writeln('SEPTIEMBRE = ');
gotoxy(17, 26); readln(mes.sep);
gotoxy(3, 28); Writeln('OCTUBRE = ');
gotoxy(14, 28); readln(mes.oct);
gotoxy(3, 30); Writeln('NOVIEMBRE = ');
gotoxy(16, 30); readln(mes.nov);
gotoxy(3, 32); Writeln('DICIEMBRE = ');
gotoxy(16, 32); readln(mes.dic);
end;
procedure ene;
begin
gotoxy(10, 20);
writeln('El mes es ENERO y la cantidad anterior es: ', mes.ene:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');
gotoxy(62, 22);readln(mes.ene);
end;
 
procedure feb;
begin
gotoxy(10, 20);
writeln('El mes es FEBRERO y la cantidad es: ', mes.feb:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');
gotoxy(62, 22);readln(mes.feb);
end;
 
procedure mar;
begin
gotoxy(10, 20);
writeln('El mes es MARZO y la cantidad anterior es: ', mes.mar:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.mar);
gotoxy(62, 22);readln(mes.mar);
end;
 
procedure abr;
begin
gotoxy(10, 20);
writeln('El mes es ABRIL y la cantidad anterior es: ', mes.abr:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.abr);
gotoxy(62, 22);readln(mes.abr);
end;
 
procedure may;
begin
gotoxy(10, 20);
writeln('El mes es MAYO y la cantidad anterior es: ', mes.may:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.may);
gotoxy(62, 22);readln(mes.may);
end;
 
procedure jun;
begin
gotoxy(10, 20);
writeln('El mes es JUNIO y la cantidad anterior es: ', mes.jun:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.jun);
gotoxy(62, 22);readln(mes.jun);
end;
 
procedure jul;
begin
gotoxy(10, 20);
writeln('El mes es JULIO y la cantidad anterior es: ', mes.jul:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.jul);
gotoxy(62, 22);readln(mes.jul);
end;
 
procedure ago;
begin
gotoxy(10, 20);
writeln('El mes es AGOSTO y la cantidad anterior es: ', mes.ago:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.ago);
gotoxy(62, 22);readln(mes.ago);
end;
 
procedure sep;
begin
gotoxy(10, 20);
writeln('El mes es SEPTIEMBRE y la cantidad anterior es: ', mes.sep:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.sep);
gotoxy(62, 22);readln(mes.sep);
end;
 
procedure oct;
begin
gotoxy(10, 20);
writeln('El mes es OCTUBRE y la cantidad anterior es: ', mes.oct:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.oct);
gotoxy(62, 22);readln(mes.oct);
end;
 
procedure nov;
begin
gotoxy(10, 20);
writeln('El mes es NOVIEMBRE y la cantidad anterior es: ', mes.nov:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.nov);
gotoxy(62, 22);readln(mes.nov);
end;
 
procedure dic;
begin
gotoxy(10, 20);
writeln('El mes es DICIEMBRE y la cantidad anterior es: ', mes.dic:9:2);
gotoxy(10, 22);
writeln('Digite la cantidad por la que se quiere modificar: ');readln(mes.dic);
gotoxy(62, 22);readln(mes.dic);
end;
 
procedure modificar;
 
var
op1:char;
begin
clrscr;
gotoxy(22, 1);
Writeln('---------------MODIFICAR---------------');
gotoxy(12, 5);
textcolor(3);
writeln('DIGITE LA LETRA RESPECTIVA AL MES QUE DESEA MODIFICAR');
gotoxy(12, 7);writeln('PARA EXCLUIR EL MES PRESIONE &#34;0&#34; (CERO) ');
 
textcolor(green);
gotoxy(5, 40);writeln('A - ENERO ');gotoxy(25, 40); writeln('E - MAYO ');
gotoxy(44,40);writeln('I - SEPTIEMBRE');
gotoxy(5, 41);writeln('B - FEBRERO ');gotoxy(25, 41); writeln('F - JUNIO');
gotoxy(44,41);writeln('J - OCTUBRE');
gotoxy(5, 42);writeln('C - MARZO ');gotoxy(25, 42); writeln('G - JULIO');
gotoxy(44,42);writeln('K - NOVIEMBRE');
gotoxy(5, 43);writeln('D - ABRIL ');gotoxy(25, 43); writeln('H - AGOSTO');
gotoxy(44,43);writeln('L - DICIEMBRE');textcolor(white);
op1:=readkey;
  case (op1) of
 
     'A','a': ene;
     'B','b': feb;
     'C','c': mar;
     'D','d': abr;
     'E','e': may;
     'F','f': jun;
     'G','g': jul;
     'H','h': ago;
     'I','i': sep;
     'J','j': oct;
     'K','k': nov;
     'L','l': dic;
  end;
end;
 
 
procedure menuprincipal;
 
 
 
begin
clrscr;
gotoxy(30,10);
textcolor(yellow); writeln('MENU PRINCIPAL');textcolor(white);
highvideo; textbackground(blue);
gotoxy(33, 14); writeln('Incluir');
gotoxy(33, 16); writeln('Modificar O Excluir');
gotoxy(33, 18); writeln('Grafica');
lowvideo;textbackground(black);
gotoxy(5, 30); writeln('Presione la primer letra de la pababra para ingresar en ella');
gotoxy(25, 40); writeln('Para SALIR presione &#34;S&#34; ');
op:=readkey;
   case (op) of
        'I','i': incluir;
        'M','m': modificar;
               {
        'G','g': grafica;}
end;
end;
 
procedure fin;
begin
    clrscr;gotoxy(30, 25);
    writeln('fin del programa');
    delay(1000);
    clrscr;
end;
begin
inicio;
repeat
menuprincipal;
until (op = 's') or (op= 'S');
fin
end.
 
 

COMO LE INCERTO UN GRAFICO A ESO!!!!

Pascal / Re: Reto Para Programadores De Pascal

« en: Martes 20 de Abril de 2004, 02:14 »

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.

Pascal / Re: Reto Para Programadores De Pascal

« en: Lunes 19 de Abril de 2004, 08:44 »

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.

Pascal / Re: Actualizar un grafico

« en: Lunes 19 de Abril de 2004, 08:36 »

Pura Vida MAU

si ya me hice una idea con tu ejemplo gracias por molestarte.

pura vida

Pascal / Actualizar un grafico

« en: Viernes 16 de Abril de 2004, 03:27 »

hola a todos yo otra vez

tengo una duda aver si me pueden ayudar???????

tengo que hacer un programa el cual pueda incluir, modificar, excluiry mostrar las ventas de una empresa. tiene que imprimir en un grafico de barras por meces los montos en millones.

mi pregunta es la siguiente

como hago para unir y que se modifique el grafico al modificar las cantidades??.

si me pudiesen ayudar les agradeceria.

atte TrIp@

Pascal / Re: Reto Para Programadores De Pascal

« en: Viernes 16 de Abril de 2004, 02:58 »

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

Pascal / Re: Reto Para Programadores De Pascal

« en: Viernes 16 de Abril de 2004, 01:00 »

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.

Pascal / Re: Reto Para Programadores De Pascal

« en: Jueves 15 de Abril de 2004, 09:08 »

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

Pascal / Reto Para Programadores De Pascal

« 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

Páginas: [1]

SoloCodigo