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 7 de 7
La búsqueda tomó 0,01 segundos.
Buscar: Mensajes Hechos Por: roman
Foro: Lazarus, FreePascal, Kylix, etc. 26-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
¡Anda! ¡Estupendo! LineComment Saludos

¡Anda! ¡Estupendo!

LineComment Saludos
Foro: Lazarus, FreePascal, Kylix, etc. 26-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Coincido. Pequeño reto: Hallar la fórmula ahora...

Coincido. Pequeño reto:

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

LineComment Saludos
Foro: Lazarus, FreePascal, Kylix, etc. 25-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Estupendo, Ya nada más para satisfacer al...

Estupendo,



Ya nada más para satisfacer al maestro:


function SumaPares(n, m: Integer): Integer;
begin
while false do;
Foro: Lazarus, FreePascal, Kylix, etc. 24-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Rizando el rizo :rolleyes: escafandra, creo que...

Rizando el rizo :rolleyes:

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....
Foro: Lazarus, FreePascal, Kylix, etc. 24-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Por cierto, que está muy bonita esta fórmula....

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


(m - n + 2)*(m + n)/4;


y al tratar de hacerla más simétrica fue que obtuve los cuadrados. Pero la...
Foro: Lazarus, FreePascal, Kylix, etc. 24-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Je, je, sí, pero es que el ejercicio pedía el uso...

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:


while Random(2) = 0 do;


:D

LineComment Saludos
Foro: Lazarus, FreePascal, Kylix, etc. 21-04-2017
Respuestas: 21
Visitas: 4.419
Escrito Por roman
Prueba éste: function SumaPares(N, M: Integer):...

Prueba éste:


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

 
Saltar a Foro

La franja horaria es GMT +2. Ahora son las 15:26:15.


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