Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Buscar en los Foros
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Mostrando resultados del 1 al 4 de 4
La búsqueda tomó 0,00 segundos.
Buscar: Mensajes Hechos Por: escafandra
Foro: Lazarus, FreePascal, Kylix, etc. 26-04-2017
Respuestas: 21
Visitas: 4.885
Escrito Por escafandra
function SumaImPares(n, m: Integer): Integer;...

function SumaImPares(n, m: Integer): Integer;
begin
dec(n, n and 1);
inc(m, m and 1);
Result:= MulDiv(m-n, n+m, 4);
end;

:D

Saludos.
Foro: Lazarus, FreePascal, Kylix, etc. 26-04-2017
Respuestas: 21
Visitas: 4.885
Escrito Por escafandra
En realidad el hilo se ha derivado hacia...

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...
Foro: Lazarus, FreePascal, Kylix, etc. 24-04-2017
Respuestas: 21
Visitas: 4.885
Escrito Por escafandra
Efectivamente roman sale una fórmula bastante...

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...
Foro: Lazarus, FreePascal, Kylix, etc. 23-04-2017
Respuestas: 21
Visitas: 4.885
Escrito Por escafandra
Esta opción requiere menor potencia de...

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

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)...
Mostrando resultados del 1 al 4 de 4

 
Saltar a Foro

La franja horaria es GMT +2. Ahora son las 17:40:13.


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