ola.. tengo una duda.. con esta funcion..
deveria intercalarme digitos de A,b ah C
ejem.... si tengo a:=159 , b:= 267, toncej c:= 125697
Código Delphi
[-]function intercalar( var a,b,c:cnumeronatural):integer;
var aux,pos:integer;
begin
pos:=1;
aux:=0;
while pos < = a.numerodigitos do
begin
if aux = 0 then
begin
c.asignarvalor((c.obtenervalor * 10) + a.digito(pos)));
aux:=1;
end else
begin
c.asignarvalor((c.obtenervalor * 10) + b.digito(pos)));
pos:=pos+1;
aux:=0;
end;
end;
end;
end;
Se supone que eso deveria funcionar.. pero cuando corro el programa con
F7... en la parte que esta rojo... no pasa nada.. es como si no existiera..
por que ??
ejem.. a:= 135 , b:=246 -->c:=123456
pero... me sale solo c:=135
saludos..
ah.. es el penultimo ejercicio de mi practico de naturales
ahora sigue vectores
![Mad](http://www.clubdelphi.com/foros/images/smilies/mad.gif)
espero seguir recibiendo ayuda... la verdad que es muy bueno el foro... bueno.. bye.. vectores dios... desenme suerte