Ejercicio con Posiciones de dígitos

[[seoane]]

Perdone usted, pero cuando yo pongo un punto es porque es un punto

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,j,k: Integer;
begin
  Writeln('Introduce la clave:');
  Readln(i);
  j:= i mod 10;
  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.

[jhonny]

Empezado por seoane

Perdone usted, pero cuando yo pongo un punto es porque es un punto

Jo jo jo, Eso me pasa por andar haciendome ilusiones , ¿Se ha notado mucho que me sueño corrigiendote un codigo?... hoy perdi la batalla pero debes estar muy atento para la proxima

[b3nshi]

En la facultad a mi me hacen programar con C y por lo general estos ejericios los resolvemos usando arreglos del tipo char... es decir seria una cadena de caracteres, en otras palabras un string. Lo primero q se hace es ir validando caracter por caracter para ver si es un digito si no lo es entonces volvemos a pedir q ingrese un valor valido, de lo contrario procedemos a trabajar con los valores de la cadena... Se entiende?

En C existe una funcion q se llama isdigit(char) q devuelve 0 si es un digito, en delphi creo q es la misma...

Luego posicionandote en el ultimo valor de la cadena [ strlen(cadena) - 1 ] <-- Asi seria en c, obtenemos el valor del ultimo numero...

Si lo deseas puedo pasarte lo q seria el codigo hecho en C y luego intentas o intentamos traducirlo...

De todos modos creo q las propuestas de Seoane y Jhonny utilizando Div y Mod es una buena forma de llegar a lo q tu quieres... eso depende de como te lo pidan en la consigna... A mi por lo general siempre me piden un control de datos, pudiendo ser el usuario tan torpe q si le pedimos q ingrese el numero nos ingrese una letra, y en ese caso daria un error la aplicacion al intentar cargar un caracter en un integer, pero si no es tu caso ya tienes la solucion...

{Saludos}

[[BlueSteel]]

tambien podrias utilizar el siguiente ejemplo

debes tener 2 componentes...

1 Edit -> llamado en este caso vVar
1 Boton ->

en el evento del boton puedes poner este codigo..

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   vSuma : Integer;
begin
     vSuma := StrToInt(vVar.Text[1])+StrToInt(vVar.Text[2])+StrToInt(vVar.Text[3])+StrToInt(vVar.Text[4]);
     if vSuma = StrToInt(vVar.Text[5]) Then
        ShowMessage('Correcto')
     Else
        ShowMessage('Incorrecto');
end;

espero te sirva.. ahh. y tambien es algo sencillo..... lo que hace es trabajar el texto como un array

[gerupc]

Hola,

muchísimas gracias por contestar y por vuestra atención.

Bien, la mejor solución es la que me da Seoane, ya que como he dicho, no es porque sean avanzadas o no, esa es otra cuestión, si no porque 'me exigen' (aunque no me lo vayan a mirar, lo hago para practicar los ejercicios que tendré que hacer) que lo haga mediante este tipo de métodos, es decir sin funciones, procedimientos,etc... Pero la culpa ha sido mia por no haber explicado estos detalles en el primer post

Asi que, una vez más, gracias. B3nshi, me parece que tu solució sería muy buena. La de Seoane me basta, pero si no te importa, como dices, miramos el código en C e intentamos (más que nada yo, que soy el que tiene que aprender ) traducirlo a Delphi.

Un saludo,

Geru.

[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