Hola luisito2011.
Cita:
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);
Val(s[Pos], r, cd);
Delete(s, Pos, 1);
Val(s, n.valor, cd);
EliminarDigito:= r;
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.