Ver Mensaje Individual
  #4  
Antiguo 07-08-2007
Avatar de gerupc
gerupc gerupc is offline
Miembro
 
Registrado: jul 2007
Ubicación: Universidad de Deusto
Posts: 61
Reputación: 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