Obtener determinado dígito de un número

[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 Noteví]

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,