send
Grupo de Telegram
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
  • 2811 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: 851
  • 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 »
You are not allowed to view links. Register or Login
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: 851
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #3 en: Enero 30, 2013, 03:21:15 pm »
You are not allowed to view links. Register or Login
You are not allowed to view links. Register or Login
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 »
You are not allowed to view links. Register or Login
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: 1957
Último mensaje Julio 23, 2011, 07:19:34 pm
por Snifer
[Pascal] Calculadora de numero primos.

Iniciado por chivo

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

Iniciado por ANTRAX

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