Problema con producto a través de sumas sucesivas.

[defcon1_es]

Empezado por gerupc

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;