Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 2 Días
Daniel2622 Daniel2622 is offline
Miembro
 
Registrado: Apr 2017
Posts: 27
Poder: 0
Daniel2622 Va por buen camino
Suma de números pares que hay entre dos números

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.
Responder Con Cita
  #2  
Antiguo Hace 2 Días
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
 
Registrado: Aug 2013
Ubicación: Argentina
Posts: 1.698
Poder: 8
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Y cual es tu duda?
Responder Con Cita
  #3  
Antiguo Hace 2 Días
Daniel2622 Daniel2622 is offline
Miembro
 
Registrado: Apr 2017
Posts: 27
Poder: 0
Daniel2622 Va por buen camino
[AgustinOrtu], es que no se como empezar el ejercicio.
Responder Con Cita
  #4  
Antiguo Hace 2 Días
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: Nov 2005
Posts: 959
Poder: 12
ElKurgan Va por buen camino
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
Responder Con Cita
  #5  
Antiguo Hace 1 Día
Daniel2622 Daniel2622 is offline
Miembro
 
Registrado: Apr 2017
Posts: 27
Poder: 0
Daniel2622 Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo Hace 1 Día
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: Dec 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.610
Poder: 27
ecfisa es conocido por todosecfisa es conocido por todosecfisa es conocido por todosecfisa es conocido por todosecfisa es conocido por todosecfisa es conocido por todos
Hola.
Cita:
Empezado por Daniel2622 Ver Mensaje
HolaElKurgan, tengo uma duda, que signsignifica lo siguiente:
...
Principalmente lo de los %.
.
[ Format command ]

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #7  
Antiguo Hace 1 Día
Avatar de roman
roman roman is offline
Moderador
 
Registrado: May 2003
Ubicación: Ciudad de México
Posts: 19.937
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
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
Responder Con Cita
  #8  
Antiguo Hace 1 Día
Daniel2622 Daniel2622 is offline
Miembro
 
Registrado: Apr 2017
Posts: 27
Poder: 0
Daniel2622 Va por buen camino
Gracias [El Kurgan], me fue de gran ayuda tu código.
Saludos.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Números aleatorios decimales entre 0 y 1 LuisAlf:: Varios 2 30-04-2011 00:59:56
Comparar 2 numeros jzginez OOP 6 18-02-2010 01:41:11
Numeros a letras citlalliDgp Varios 6 19-03-2009 07:14:54
Los numeros del Pasaporte / DNI seoane Trucos 0 08-06-2006 13:31:59
equivalencia entre tipos de numeros kikodelphi MS SQL Server 4 14-12-2005 11:59:55


La franja horaria es GMT +2. Ahora son las 10:04:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi