Ejercicio con Posiciones de dígitos

[gerupc]

Hola,

perdonad, pero hay una cosa que no entiendo, si se supone que ' k:= k + (i mod 10);' y ' j := i mod 10', porqué : ' k:= k + j; no me funciona??

Y qué función cumple el que haga: 'a la variable k le asigno el valor de k + último dígito' ? sumar todos los digitos de la cifra? y que la clave se divida entre 10 en la siguiente sentencia??

Lo siento, os voy a volver locos... muchas gracias a todos.

Un saludo,

Geru.

[[seoane]]

Empezado por gerupc

perdonad, pero hay una cosa que no entiendo, si se supone que ' k:= k + (i mod 10);' y ' j := i mod 10', porqué : ' k:= k + j; no me funciona??

¿Te das cuenta de que el valor de i varia dentro del bucle?

[gerupc]

Aupa Seoane,

vale,vale..., no me había dado cuenta... Oye la última cosilla, si no es mucho pedir, me podrías explicar las siguientes sentencias?

Código Delphi [-]
k := k + (i mod 10);
    i:= i div 10;

Es que algo las entiendo, pero no quiero asimilarlas estos conceptos mal...muchísimas gracias.

Un saludo,

Geru.

[[seoane]]

Empezado por gerupc

Oye la última cosilla, si no es mucho pedir, me podrías explicar las siguientes sentencias?

La operación "mod" nos devuelve el resto de la división entera. El resto que queda al dividir un numero por 10 es el dígito que se encuentra mas a la derecha.

Si tenemos en cuenta lo anterior, podemos obtener las cifras que forman un numero aplicando sucesivamente las operación mod y div. Con mod obtenemos la cifra mas a la derecha y con div desplazamos todas las cifras un puesto hacia la derecha.

Por ejemplo:

1234
1234 mod 10 = 4 <- Primera cifra
1234 div 10 = 123
123 mod 10 = 3 <- Segunda cifra
123 div 10 = 12
12 mod 10 = 2 <- Tercera cifra
12 div 10 = 1
1 mod 10 = 1 <- Cuarta cifra
1 div 10 = 0 <- Cuando llegamos a cero es que hemos terminado

[gerupc]

Hola,

una vez más, muchas gracias por tu ayuda, me ha sido de gran utilidad. Ya que conocia la función de 'mod', pero no la manera en la que se aplicaba en este caso.

Un saludo,

Geru.

[gerupc]

Aupa de nuevo,

faltaba un pequeño detalle, ya que no me cuadraban algunos resultados... El fallo era que la suma de el ultimo digito de la suma de los "cuatro" primeros
digitos, tenia que ser igual al último digito de la clave entrante.

Y claro, de la anterior manera, lo que se hacía era la suma de todos los digitos, para ello lo que he hecho ha sido hacer a k:=-Ult_digito, quedando así el código:

Código Delphi [-]
program Ejercicio3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  clave: integer;
  Ult_digito: integer;
  k: integer;
begin
  Write('Escribe el valor de la clave:');
  Readln(clave);
    Ult_digito := clave mod 10;  //Asi consigo el ultimo digito, ya que es igual al resto
    k := - Ult_digito; //Para que unicamente me sume todos exceptuando el Ultimo Digito.
      while clave > 0 do
        begin
          k := k + (clave mod 10); //Almacena el valor de cada digito excepto del ultimo, y los suma...
          clave := clave div 10; //hasta que esto sea 0 clave := 0
        end;
  if k mod 10 = Ult_digito then
    Writeln('La clave es CORRECTA')
  else
    Writeln('La clave es INCORRECTA');
    readln;
end.

Un saludo!

Geru.

[[maeyanes]]

Hola...

En el código de seoane, la variable J guarda el valor del último dígito, así que el único cambio que podrías hacerle para que funcione como esperas es:

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  // Aquí podrías validad si la clave consta de 5 dígitos...
  j :=  i mod 10;
  i := i div 10; // Con esto solo sumamos los primeros 4 dígitos...
  k :=  0;
  while i > 0 do
  begin
    inc(k, i mod 10);
    i := i div 10
  end;
  if (k mod 10) = j then
    Writeln('La clave es correcta')
  else
    Writeln('La clave no es correcta')
end.

Saludos...