Obtener determinado dígito de un número

[xneox]

hola a todos esta es mi primera ves aqui y nesecito una ayuda, debo hacer una funcion en consola que me muestre de un numero de cierta cantidad de digitos uno en especifico
ejemplo
253646
y yo escribo 2, que me muestre el digito que esta en la posicion 2 osea el numero 5

[ecfisa]

Hola xneox, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

xneox, ¿ Podrías indicarnos que parte del problema o del código te está presentando dificultad ?


Saludos.

[xneox]

Código Delphi [-]
unit Uvega;

interface

function digito(a,b:integer):integer;

implementation

function digito(a,b:integer):integer;
var x,y,z :integer;
begin
  x:=a;
  y:=longitud(b);
  while x<=y do 
  begin
    z:= b mod 10;
    b:= b div 10;
    y:=longitud(b);
  end;
  digito:=z;
end;

end.

no me corre no se en que parte me sale que esta mal

[[ElDioni]]

Hola,

para empezar, ¿que es longitud?.

Saludos.

[Casimiro Notevi]

Empezado por xneox

..

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola xneox.

Código Delphi [-]
function ObtenerDigito(Numero: Integer; const Posic: Byte): Integer;
var
  Inverso, Resto, i: Integer;
begin
  // Invertir
  Inverso:= 0;
  while Numero > 0 do
  begin
    Resto  := Numero mod 10;
    Inverso:= Inverso * 10 + Resto;
    Numero := Numero div 10;
  end;
  // Obtener dígito
  for i:= 1 to Posic do
  begin
    Result := Inverso mod 10;
    Inverso:= Inverso div 10;
  end;
end;

Saludos.

[champy]

Se me ocurre uno aún más corto.

Código Delphi [-]
Function ObtenerNumero(Numero: Integer; Posicion: Integer): Integer;
begin
  Result := StrToInt(Copy(IntToStr(Numero), Posicion, 1));
end;

[ecfisa]

Hola champy.

Correcto y más simple además.

En la programación práctica, no dudaría en manipular cadenas para obtener la posición o parte de un número. Pero por la forma en que xneox, presentó su código, me dió la impresión que el catedrático solicita una manipulación numérica de los dígitos, de allí la parafernalia de los mod y div .

Saludos

[champy]

Aiins! Estos catedráticos y sus manías...

[[Delphius]]

Empezado por champy

Aiins! Estos catedráticos y sus manías...

Empezado por ecfisa

Hola champy.

Correcto y más simple además.

En la programación práctica, no dudaría en manipular cadenas para obtener la posición o parte de un número. Pero por la forma en que xneox, presentó su código, me dió la impresión que el catedrático solicita una manipulación numérica de los dígitos, de allí la parafernalia de los mod y div .

Saludos

Otro hilo más que avala mi postura: si el profe te da manzanas, piensa en manzanas

De manía nada. Es útil para condicionar al estudiante a que razone más; que lo trabaje más al código y al cerebro.

Saludos,

[Casimiro Notevi]

No olvides nuestra guía de estilo, gracias por tu colaboración