programar deteccion de ultimos digitos pares en vectores

[[ElKurgan]]

Hola, Einer...

Si no te he entendido mal, para un array con estos valores "234, 243, 675, 667, 444" te debería devolver 3, ¿no? (sólo comienzan con dos pares el 243, el 667 y el 444).

Tal como lo planteas, la primera pasada me daría 5 puesto que todos empiezan por un par... Y luego lo sumas a contador final, con lo que el resultado final me da... ¡¡¡ 11 !!!

Creo que debería ser así:

Código Delphi [-]
var
  nrox, ix: integer;
  contadorfinal: integer;
  numero1, numero2: integer;
begin
  contadorfinal := 0;

  while ix <= N do
  begin
    nrox := v[ix];
    // Número tiene que ser mayor o igual a 10 para que sean pares
    if nrox >= 10 then
    begin
      while nrox > 99 do////////////////////
      begin
        nrox := nrox div 10;
      end;
      numero1 := nrox div 10;
      numero2 := nrox - (numero1 * 10);
      if (not odd(numero1)) and (not odd(numero2)) then
        contadorfinal := contadorfinal + 1;
      end;
    ix := ix + 1;
  end;

  label4.Caption:=inttostr(contadorfinal);

Espero haberte entendido bien

Un saludo

[Neftali [Germán.Estévez]]

Por favor einer, utiliza TAG's cuendo añadas código a los mensajes.

[einer]

hola gracias por tu respuesta..
intente con lo que me dices pero no sale el resultado que deberia... tomando el ejemplo que tu pones "234, 243, 675, 667, 444" el resultado deberia ser 3 por que solo 3 digitos llevan los 2 ultimos pares el 243 667 y 444

[ecfisa]

Hola.

Un modo es:

Código Delphi [-]
function FirstTwoPairs(Number: Integer): Boolean;
var
  Invert, Rest: Integer;
begin
  Invert := 0;
  while Number > 0 do
  begin
    Rest   := Number mod 10;
    Invert := Invert * 10 + Rest;
    Number := Number div 10;
  end;
  Result := ((Invert mod 10 mod 2)=0) and ((Invert mod 100 div 10 mod 2)=0);
end;

Otro:

Código Delphi [-]
function FirstTwoPairs(const Number: Integer): Boolean;
var
  s: string;
  a,b: Integer;
begin
  a := StrToInt(IntToStr(Number)[1]);
  b := StrToInt(IntToStr(Number)[2]);
  Result := (a mod 2 = 0) and (b mod 2 = 0);
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
 v  : array[1..5] of Integer = (234, 243, 675, 667, 444);
var
  i : Integer;
begin
  Memo1.Clear;
  for i := Low(V) to High(V) do
    if FirstTwoPairs(v[i]) then
     Memo1.Lines.Add(IntToStr(v[i]));
end;

Saludos

[[ElKurgan]]

El que te envíe me funciona sin problemas, asi que te debería funcionar también.

Pero, como siempre, el código de ecfisa es mucho más claro y eficiente...

Saludos

[ecfisa]

Jajaja eso sí que es exagerado !

Saludos