Eliminar un digito y mostrar el digito eliminado

[luisito2011]

hola bueno tengo un problemita...necesito adicionar a este codigo..
2 funciones oh 2 procesos...
el cual 1 me elimine cualquier digito de un numero
y otro que muestre el digito eliminado

Código Delphi [-]
 
type
  numero=record
    valor : integer;
  end;

procedure asignarvalor(var n:numero; que:integer);
begin
  n.valor:=que
end;

function obtenervalor(n:numero):integer;
begin
  obtenervalor:=n.valor;
end;

procedure crear(var N:numero);
begin
  n.valor:=0;
end;

function nrodigitos(N:numero):integer;
var 
  c:integer;
begin
  c:=0;
  while n.valor>0 do
  begin
    c:= c+1;
    n.valor:=n.valor div 10;
  end;
  nrodigitos:=C;
end;

var
  a:numero;
  k:integer;
begin
  crear(A);
  readln (K);
  asignarvalor(A,k);
  writeln('El numero es ',obtenervalor(a));
  writeln('el numero de digitos es ',nrodigitos(A));
  readln;
end

saludos. y gracias

[ecfisa]

Hola luisito2011.

necesito adicionar a este codigo..
2 funciones oh 2 procesos...
el cual 1 me elimine cualquier digito de un numero y otro que muestre el digito eliminado

En realidad no necesitas dos procedimientos o funciones, te podes arreglar con una función:

Código Delphi [-]
...
function EliminarDigito(var n: numero; Pos:Integer): Integer;
var
  s: string;
  r,cd: Integer;
begin
  Str(n.valor, s);     (* convertir a string *)
  Val(s[Pos], r, cd);  (* valor dígito eliminado en r *)
  Delete(s, Pos, 1);   (* borrar dígito *)
  Val(s, n.valor, cd); (* convertir (numero - digito) a integer *)
  EliminarDigito:= r;  (* devuelve valor dígito eliminado *)
end;


var
  a:numero;
  k:integer;
  d:Integer;
begin
  crear(A);
  write('Numero: '); Readln(K);
  AsignarValor(a, k);
  Writeln('El numero es ', obtenervalor(a));
  Writeln('el numero de digitos es ',nrodigitos(A));
  Write('Digito a eliminar: '); Readln(d);
  Writeln('Digito eliminado: ',EliminarDigito(a, d));
  Readln;
end.

Nota: Usé sintáxis Pascal por si te es requerido. Toda explicación del uso de las funciones la encontras en la ayuda de Pascal/Delphi.

Un saludo.

[luisito2011]

muy buena respuesta.. gracias.. en realidad necesitaba en 2 funciones o procesos.. por que el que 1 elimina.. tenia que ponerla en un until.. el cual despue pueda usarlo en console application.. pero esta bien .. gracias ..
saludos

[[Delphius]]

Hola,

¿Puedo preguntar que significa eliminar un dígito? Porque yo al menos entiendo dos posibles razonamientos. Supongamos que tenemos el número 4562. Se eliminará el 6:

Opción 1: Nos queda un número de 3 cifras:
4562 -> 45X2 -> 452

Opción 2: Restamos 6 decenas al número, sigue siendo de 4 cifras:

4562 - 60 = 4502.

¿Se entiende?

Por cierto... eso de convertir a string para luego pasarlo a integer me parece más un intento de cañonazo. Se que este artilugio puede resultar fácil, y reducir líneas... pero si en es que luisito está recién comenzando en programación en alguna universidad o instituto me parece que el objetivo del profe no es que vaya a por esos artilugios sino que exprima su capocha hasta encontrar un algoritmo que no recurra a esas técnicas sino que lo haga de forma directa (que se puede).

Saludos,

[rgstuamigo]

Me parece que se trata de la primera Opcion...Delphius... y estoy totalmente de acuerdo contigo en que la solucion debería ser usando solo número, sin recurrir a la transformacion hacia String; lógicamente eso implica más trabajo, es verdad, pero si se trata de que nuestro amigo luisito2011 aprenda, pues hay que ponerse a trabajar en buscar una solucion usando solo numero. Claro ésta que ecfisa solo quizo ayudar y su solucion es totalmente válida si se trata de solucionar problemas de programacion de cualquier forma, pero si por el contrario es para aprender supongo que el profesor debería restringir la conversion a String y solo permitir una solucion basada en operaciones matemáticas numerales, tal como lo hacía mi catedrático cuando estaba dando mis primeros pininos en programación ....,la verdad que no me gustaba por que desde mi punto de vista tal restrincion me complicaba la vida, en aquel entonces, pero pude lidiar con una solucion correcta tal como lo quería el catedrático.. y eso me ayudó mucho a desarrolar mi lógica, aunque todavía sigue en proceso .
Saludos...

[[gatosoft]]

Solo a manera de dato curioso:

Numero de digitos = Logaritmo (numero) +1;

Un saludo,

[roman]

Empezado por Delphius

Por cierto... eso de convertir a string para luego pasarlo a integer me parece más un intento de cañonazo. Se que este artilugio puede resultar fácil, y reducir líneas... pero si en es que luisito está recién comenzando en programación en alguna universidad o instituto me parece que el objetivo del profe no es que vaya a por esos artilugios sino que exprima su capocha hasta encontrar un algoritmo que no recurra a esas técnicas sino que lo haga de forma directa (que se puede).

Empezado por rgstuamigo

Me parece que se trata de la primera Opcion...Delphius... y estoy totalmente de acuerdo contigo en que la solucion debería ser usando solo número, sin recurrir a la transformacion hacia String; lógicamente eso implica más trabajo, es verdad, pero si se trata de que nuestro amigo luisito2011 aprenda, pues hay que ponerse a trabajar en buscar una solucion usando solo numero.

Totalmente en desacuerdo

Para mi es claro que se trata de un ejercicio de manipulación de caracteres y no de aritmética.

Si se busca una solución usando operaciones aritméticas realmente no se estaría aprendiendo programación sino eso, aritmética.

// Saludos