Suma de números pares que hay entre dos números

[Daniel2622]

Hola necesito ayuda con el siguiente ejercicio:
Escribe un programa que calcule la suma de los números pares que hay entre dos números dados como entrada. Usa la instrucción de ciclo while-do o repeat-until.
De antemano muchas gracias.
Saludos.

[[AgustinOrtu]]

Y cual es tu duda?

[Daniel2622]

[AgustinOrtu], es que no se como empezar el ejercicio.

[[ElKurgan]]

A lo mejor te sirve esto:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  n1,n2,c,codigo:Integer;
  i: Integer;
  desde, hasta: integer;
  suma: Integer;
begin
  Memo1.Lines.Clear;
  val(Edit1.Text,n1,codigo);
  val(Edit2.Text,n2,codigo);
  if n1 < n2 then
  begin
    desde := n1;
    hasta := n2;
  end
  else
  begin
    desde := n2;
    hasta := n1;
  end;

  Memo1.Lines.Add(
    Format('Numeros Pares entre %0:d y %1:d', [desde, hasta]));

  i := desde;
  Suma := 0;
  repeat
    if (i mod 2) = 0 then
    begin
      Memo1.Lines.Add(Format('%d', [i]));
      Suma := Suma + i;
    end;
    i := i + 1;
  until i > hasta;
  Memo1.Lines.Add('--------------------');
  Memo1.Lines.Add(format('Total suma: %d', [Suma]));
end;

Un saludo

[Daniel2622]

HolaElKurgan, tengo uma duda, que signsignifica lo siguiente:

Código Delphi [-]
Memo1.Lines.Add(
    Format('Numeros Pares entre %0:d y %1:d', [desde, hasta]));

  i := desde;
  Suma := 0;
  repeat
    if (i mod 2) = 0 then
    begin
      Memo1.Lines.Add(Format('%d', [i]));
      Suma := Suma + i;
    end;
    i := i + 1;
  until i > hasta;
  Memo1.Lines.Add('--------------------');
  Memo1.Lines.Add(format('Total suma: %d', [Suma]));
end;

Principalmente lo de los %.
Gracias y saludos.

[ecfisa]

Hola.

Empezado por Daniel2622

HolaElKurgan, tengo uma duda, que signsignifica lo siguiente:
...
Principalmente lo de los %.
.

[ Format command ]

Saludos

[roman]

Prueba éste:

Código Delphi [-]
function SumaPares(N, M: Integer): Integer;
begin
  while Random(2) = 0 do;

  if (N mod 2 = 1) then Inc(N);
  if (M mod 2 = 1) then Dec(M);

  Result := Round(((Sqr(M + 1) - 1) - (Sqr(N - 1) - 1))/4);
end;

LineComment Saludos

[Daniel2622]

Gracias [El Kurgan], me fue de gran ayuda tu código.
Saludos.

[[escafandra]]

Esta opción requiere menor potencia de cálculo:

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= ((m - n) div 2 + (m - n) mod 2) * ((n + m) div 2);
end;

Saludos.

[roman]

Empezado por escafandra

Esta opción requiere menor potencia de cálculo:

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= ((m - n) div 2 + (m - n) mod 2) * ((n + m) div 2);
end;

Saludos.

Je, je, sí, pero es que el ejercicio pedía el uso de while-do o repeat-until. De ahí la línea que habia puesto:

Código Delphi [-]
while Random(2) = 0 do;

LineComment Saludos

[roman]

Empezado por escafandra

Esta opción requiere menor potencia de cálculo:

Código Delphi [-]
Result:= ((m - n) div 2 + (m - n) mod 2) * ((n + m) div 2);

Por cierto, que está muy bonita esta fórmula. Originalmente la que había obtenido yo era ésta:

Código Delphi [-]
(m - n + 2)*(m + n)/4;

y al tratar de hacerla más simétrica fue que obtuve los cuadrados. Pero la tuya los evita y queda mejor

LineComment Saludos

[roman]

Rizando el rizo

escafandra, creo que tu fórmula:

Empezado por escafandra

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);

  Result:= ((m - n) div 2 + (m - n) mod 2) * ((n + m) div 2);
end;

puede aún ser más sencilla. Debido a los dos condicionales, n y m siempre son impares y por tanto (n + m) y (n - m) siempre son pares. Entonces (m - n) mod 2 siempre es cero y se reduce a ((m - n) div 2) * ((n + m) div 2) y como los términos son pares el div coincide con la división normal, así que podemos ponerlo como

(m - n)*(m + n)/4 = (m - n)*(m + n) div 4

o sea:

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);

  Result := (m - n)*(m + n) div 4;
end;

LineComment Saludos

[[escafandra]]

Empezado por roman

Rizando el rizo

escafandra, creo que tu fórmula:



puede aún ser más sencilla. Debido a los dos condicionales, n y m siempre son impares y por tanto (n + m) y (n - m) siempre son pares. Entonces (m - n) mod 2 siempre es cero y se reduce a ((m - n) div 2) * ((n + m) div 2) y como los términos son pares el div coincide con la división normal, así que podemos ponerlo como

(m - n)*(m + n)/4 = (m - n)*(m + n) div 4

o sea:

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);

  Result := (m - n)*(m + n) div 4;
end;

LineComment Saludos

Efectivamente roman sale una fórmula bastante redonda y sabiendo que suma por diferencia es diferencia de cuadrados, no lo aplicaremos para no desbordar rápidamente los enteros (en caso de límites más amplios). Ya puestos y con ese fin, usamos la API de Windows

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= MulDiv(m-n, n+m, 4);
end;

Saludos.

[[AgustinOrtu]]

Estos matematicos locos...

[roman]

Estupendo,

Empezado por escafandra

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= MulDiv(m-n, n+m, 4);
end;

Ya nada más para satisfacer al maestro:

Código Delphi [-]
function SumaPares(n, m: Integer): Integer;
begin
  while false do;

  if(n mod 2 = 0) then dec(n);
  if(m mod 2 = 0) then inc(m);
  Result:= MulDiv(m-n, n+m, 4);
end;

LineComment Saludos

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

Empezado por ElKurgan

A lo mejor te sirve esto:

Es posible que sea una opción fácil (sobre todo para la persona que está pidiendo ayuda con los deberes -o al menos esa sensación de da a mi-), pero tal vez deberíamos plantearnos si esta es la solución "adecuada" para un caso como este.

En los últimos días están saliendo varios hilos como este, y creo que tenemos que tener cuidado con las soluciones que ofrecemos.

No se si me explico claramente.

NOTA: No se trata de NO ayudar, en este caso a Daniel2622, ya que al final la utilidad del foro es esa, pero tampoco estamos para "hacerle los deberes a nadie".

[[AgustinOrtu]]

Empezado por Neftali

NOTA: No se trata de NO ayudar, en este caso a Daniel2622, ya que al final la utilidad del foro es esa, pero tampoco estamos para "hacerle los deberes a nadie".

Totalmente de acuerdo. De hecho no estamos ayudando, estamos haciendo mal a la persona. Por eso mi pregunta en estos casos es siempre la misma:

Empezado por AgustinOrtu

Y cual es tu duda?

[[escafandra]]

En realidad el hilo se ha derivado hacia disquisiciones y trucos matemáticos que nada tienen que ver con la propuesta del ejercicio, que claramente no pretendía la deriva ofrecida. De forma que hemos pasado un buen rato.

Saludos.

[roman]

Coincido. Pequeño reto:

Hallar la fórmula ahora para la suma de impares entre dos números dados

LineComment Saludos

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

Empezado por AgustinOrtu

Totalmente de acuerdo. De hecho no estamos ayudando, estamos haciendo mal a la persona. Por eso mi pregunta en estos casos es siempre la misma:

+1
Totalmente de acuerdo.