comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Pascal] Generador de clave.

  • 5 Respuestas
  • 3046 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado chivo

  • *
  • Underc0der
  • Mensajes: 26
  • Actividad:
    0%
  • Reputación 0
  • 127.0.0.1
    • Ver Perfil
    • Email
  • Skype: chivoxxx
« en: Enero 30, 2013, 01:34:15 pm »
Bueno este codigo lo que hace es generar una clave de 4 digitos algo asi como la clave de los bancos.

No tengo el ejecutable despues lo subo.

Si alguna duda con el codigo me lo pueden decir para aclararlo.

Código: Pascal
  1. Program GenClave;
  2.    uses crt;
  3.    Var CI: longint;
  4.        D0,D1,D2,D3,Clave: integer;
  5.  
  6. Function GenUni(C:longint) : integer;
  7.   Var Dmas,Dmenos:integer;
  8.   Begin
  9.     Dmenos := C mod 10;
  10.     repeat
  11.       Dmas := C mod 10;
  12.       C    := C div 10;
  13.     until c = 0;
  14.     GenUni := (Dmenos+Dmas) mod 10;
  15.   End;
  16.  
  17. Function GenDec(C:longint) : integer;
  18.   Var Suma:integer;
  19.   Begin
  20.     Suma := 0;
  21.     repeat
  22.       Suma := Suma + C mod 10;
  23.       C    := C div 10;
  24.     until c = 0;
  25.     GenDec := Suma mod 9;
  26.   End;
  27.  
  28. Function GenCen(C:longint) : integer;
  29.   Var Suma:integer;
  30.   Begin
  31.     Suma := 0;
  32.     repeat
  33.       if C mod 10 mod 2 = 0 then
  34.          Suma := Suma + C mod 10;
  35.       C    := C div 10;
  36.     until C = 0;
  37.     GenCen := Suma mod 7;
  38.   End;
  39.  
  40. Function GenUMi(C:longint) : integer;
  41.   Var Prod: longint;
  42.       Dmas: integer;
  43.   Begin
  44.     Prod := 1;
  45.     repeat
  46.       if C mod 10 <> 0 then
  47.          Prod := Prod * (C mod 10);
  48.       C    := C div 10;
  49.     until C = 0;
  50.  
  51.     repeat
  52.       Dmas := Prod mod 10;
  53.       Prod := Prod div 10;
  54.     until Prod = 0;
  55.  
  56.     GenUMi := Dmas;
  57.   End;
  58.  
  59. Begin
  60.   clrscr;
  61.   write('Introduzca su No. '); read(CI);
  62.  
  63.   D0 := GenUni(CI);
  64.   D1 := GenDec(CI);
  65.   D2 := GenCen(CI);
  66.   D3 := GenUMi(CI);  
  67.  
  68.   Clave := D3*1000+D2*100+D1*10+D0;
  69.  
  70.   writeln('Su clave es ',Clave,' Gracias por usar nuestro servicio');
  71.  
  72.   readkey;
  73. end.

Bueno para mas explicacion coloco una imagen:



Es un proceso de suma, resto y division.

Saludos.
« Última modificación: Abril 27, 2013, 01:24:27 pm por Expermicid »
Sacando la Basura.p

Haitumichu you! or wachiton wachiton to!!

Casa Fantasma

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #1 en: Enero 30, 2013, 01:52:16 pm »
ejejeje interesante, no se ven post en pascal, se agradece!

saludos!

Desconectado chivo

  • *
  • Underc0der
  • Mensajes: 26
  • Actividad:
    0%
  • Reputación 0
  • 127.0.0.1
    • Ver Perfil
    • Email
  • Skype: chivoxxx
« Respuesta #2 en: Enero 30, 2013, 02:49:25 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
ejejeje interesante, no se ven post en pascal, se agradece!

saludos!

No hay problema amigo voy a ver si posteo mas de ello.
Sacando la Basura.p

Haitumichu you! or wachiton wachiton to!!

Casa Fantasma

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #3 en: Enero 30, 2013, 03:21:15 pm »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
No tienes permisos para ver links. Registrate o Entra con tu cuenta
ejejeje interesante, no se ven post en pascal, se agradece!

saludos!

No hay problema amigo voy a ver si posteo mas de ello.

sería genial.

saludos!

Desconectado RICARDO LUIS

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #4 en: Mayo 17, 2013, 12:42:11 am »
Hola loco tengo una duda... es un generador de clave de 4 dígitos pero para q nos puede servir???

Desconectado chivo

  • *
  • Underc0der
  • Mensajes: 26
  • Actividad:
    0%
  • Reputación 0
  • 127.0.0.1
    • Ver Perfil
    • Email
  • Skype: chivoxxx
« Respuesta #5 en: Enero 13, 2014, 01:20:44 am »
No tienes permisos para ver links. Registrate o Entra con tu cuenta
Hola loco tengo una duda... es un generador de clave de 4 dígitos pero para q nos puede servir???

Para las tarjeta de los bancos.  ::)
Sacando la Basura.p

Haitumichu you! or wachiton wachiton to!!

Casa Fantasma

 

¿Te gustó el post? COMPARTILO!



[Haskell] Compilador de Pseudocodigo Pascal,C++,Java

Iniciado por Snifer

Respuestas: 0
Vistas: 2154
Último mensaje Julio 23, 2011, 07:19:34 pm
por Snifer
[Pascal] Calculadora de numero primos.

Iniciado por chivo

Respuestas: 1
Vistas: 4285
Último mensaje Agosto 18, 2013, 01:27:13 am
por UpecBlack
[Descarga] Dev Pascal 1.9.2

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2426
Último mensaje Febrero 24, 2010, 03:50:39 pm
por ANTRAX