Duda sobre variable en un Bucle Repeat

[gerupc]

Hola,

tengo una duda en un bucle repeat, os escribo el codigo:

Código Delphi [-]
 
Repeat
       write('Introduce Numero: ');
       readln(numero);
       contador := contador + 1;
       suma := suma + 1;
Until
       contador = 5;
Write('La suma de los numeros es: ',suma:2:2);
readln;
Write('La media es: ', suma/contador:2:2);
readln;

Bien, pues mi problema es que no entiendo que función cumple la variable 'suma', si, entiendo que sirve para que en cada iteración 'almacene' el numero, pero porqué de esta manera? Qué sentido tiene?

Un saludo y muchas gracias de antemano,

Geru.

[[cHackAll]]

Código Delphi [-]
       write('Introduce Numero: ');
       readln(numero);
Repeat
       contador := contador + 1;
       suma := suma + numero;
Until
       contador = 5;
Write('La suma de los numeros es: ',suma:2:2);
readln;
Write('La media es: ', suma/contador:2:2);
readln;

[gerupc]

Hola,

El write, quiero que valla dentro de repeat para que me pida 5 veces que introduzca un numero.

Pero claro, lo que no entiendo es porqué he de hacerlo lo de la variable suma := suma + numero; ---> De esta manera, a ver si alguien me lo podría explicar.

Gracias y un saludo,

Geru.

[Neftali [Germán.Estévez]]

¿Qué tal si explicas qué estás intentando hacer? ¿Qué quieres hacer con ese código?

Si no nos explicas qué se pretende, ¿cómo quieres que sepamos para qué sirve una variable?
No sabemos si el código lo has hecho tú, si lo has extraído de algun sitio,...

[Ferrari]

Pues si, creo seria mas facil saber ke deseas hacer con el codigo..salu2

[gerupc]

Hola,

De acuerdo, este programa está sacado de una hoja de ejercicios en Delphi para practicar en 1º de carrera, el codigo completo es:

Código Delphi [-]
PROGRAM EJER54; 
USES CRT; 
VAR i:INTEGER; 
VAR num,suma:REAL; 
BEGIN 
ClrScr; 
i:=0; 

REPEAT 
WRITE('Introduzca un numero: '); READLN(num); 
suma:=suma+num; 
i:=i+1; 
UNTIL i=5; 
WRITE('La media es: '); WRITELN(suma/i:5:2); 
END.

bien, pues lo que quiero es; que el programa me pida numeros 5 veces un numero, y que éste almacene los cinco numeros, para después yo decirle que haga la media.
Lo que no entiendo es la funcion que cumple la siguiente sentencia del bucle:

Código Delphi [-]
 
suma := suma + num;

Muchas gracias y un saludo,

Geru.