Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-08-2007
Avatar de gerupc
gerupc gerupc is offline
Miembro
 
Registrado: jul 2007
Ubicación: Universidad de Deusto
Posts: 61
Poder: 17
gerupc Va por buen camino
Smile Problema con producto a través de sumas sucesivas.

Hola,

he de hacer un problema, que me calcule el producto de dos variables, mediante una suma sucesiva, por ejemplo:

4 * 3 = 3+3+3+3 = 12

Entonces, lo que tengo claro es que lo tengo que hacer mediante un bucle para que el programa me haga la suma de la variable (y = 3), pues (x = 4) veces por ejemplo, pero no sé exactamente cómo escribirlo... he probado de muchas formas diferentes, pero al final ninguna es correcta.

Si alguien me echase una mano, se lo agradecería mucho

Un saludo,

Geru.
__________________
Mi Blog
---------------------
Universidad de Deusto
ESIDE-Escuela Superior de Ingenieros Deusto
Responder Con Cita
  #2  
Antiguo 07-08-2007
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Poder: 21
defcon1_es Va por buen camino
Cita:
Empezado por gerupc Ver Mensaje
he de hacer un problema, que me calcule el producto de dos variables, mediante una suma sucesiva, por ejemplo:

4 * 3 = 3+3+3+3 = 12

Entonces, lo que tengo claro es que lo tengo que hacer mediante un bucle para que el programa me haga la suma de la variable (y = 3), pues (x = 4) veces por ejemplo, pero no sé exactamente cómo escribirlo...
Mira a ver si esta función puede servirte.
Código Delphi [-]
function Sumas_Sucesivas(x,y: integer): integer;
var i: Integer;
begin
  Result := 0; //No se si esto es reduntante, pero por si acaso...
  for i:=1 to x do
    Result := Result + y;
end;
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita
  #3  
Antiguo 07-08-2007
Avatar de gerupc
gerupc gerupc is offline
Miembro
 
Registrado: jul 2007
Ubicación: Universidad de Deusto
Posts: 61
Poder: 17
gerupc Va por buen camino
Exclamation

Hola,

muchas gracias por tu respuesta, pero no me sirve.

Siento ser tan 'tiquismiquis' y no haberlo mencionado antes, pero no puedo usar una funcion, lo exige el problema propuesto.

A ver si me podeis echar una mano a buscar otra.....que todavia no la he encontrado!! ;-)

Un saludo,

Geru.
__________________
Mi Blog
---------------------
Universidad de Deusto
ESIDE-Escuela Superior de Ingenieros Deusto
Responder Con Cita
  #4  
Antiguo 07-08-2007
Avatar de gerupc
gerupc gerupc is offline
Miembro
 
Registrado: jul 2007
Ubicación: Universidad de Deusto
Posts: 61
Poder: 17
gerupc Va por buen camino
Talking

sHola,

lo conseguí...era una tontería, lo estaba haciendo bien, el error era que el 'write(resultado) lo estaba haciendo dentro de propio bucle y claro, así no...
Aqui dejo el programita, por si a alguien que esté en un caso similar al mio, le viene bien ;-)

Código Delphi [-]
program sumas_sucesivas;

uses SysUtils;

var
        x, y: integer;
        contador: integer;
        resultado: integer;

Begin
        write('Introduce el primer numero: ');
        readln(x);
        write('Introduce el primer numero: ');
        readln(y);

        writeln('');

                resultado := 0;

                for contador := 1 to x do   //De 1 hasta x VECES
                Begin

                  resultado := resultado + y; //para asignar a resultado el valor de y, porque {0+y = y}

                End;

                write(resultado);

        Readln;
End.

Un saludo, y gracias por tu respuesta defcon1_es!! ;-)

Geru.
__________________
Mi Blog
---------------------
Universidad de Deusto
ESIDE-Escuela Superior de Ingenieros Deusto
Responder Con Cita
  #5  
Antiguo 07-08-2007
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
alli esta la solucion al problema fijate bien y veras q es lo q te piden
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #6  
Antiguo 07-08-2007
Avatar de gerupc
gerupc gerupc is offline
Miembro
 
Registrado: jul 2007
Ubicación: Universidad de Deusto
Posts: 61
Poder: 17
gerupc Va por buen camino
Hola,

lo siento, pero no entiendo tu frase... I´m sorry

Un saludo,

Geru.
__________________
Mi Blog
---------------------
Universidad de Deusto
ESIDE-Escuela Superior de Ingenieros Deusto
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
Producto agotado... Osorio Humor 0 09-02-2006 00:44:10
Realizar una consulta con sumas jfragueiro SQL 2 25-05-2005 11:02:50
Sumas de campos en SQL noe SQL 2 03-02-2005 20:43:23
Delphi 8 Es Un Mal Producto ? Markos Debates 8 29-07-2004 11:22:59
Sumas por pagiginas en QReport raugadel Impresión 2 23-04-2004 10:50:20


La franja horaria es GMT +2. Ahora son las 08:02:58.


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