Duda sobre variable en un Bucle Repeat

[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.

[dec]

Hola,

... la instrucción que mencionas significa: "Asigna a la variable 'suma' el valor de esta misma variable más el valor de la variable 'num'".

[gerupc]

Aupi,

muchísimas gracias Dec, pero cual es el valor de 'suma', si yo antes no le he asignado ninguno?

Una vez más, gracias.

Geru.

[Alcolea]

Empezado por gerupc

Aupi,

muchísimas gracias Dec, pero cual es el valor de 'suma', si yo antes no le he asignado ninguno?

Una vez más, gracias.

Geru.

La variable suma debes inicializarla en algún momento antes del bucle. Si vas a hacer sumador, como en este caso que empleas la variable para "acumular" los valores que entras

 
...........
 
suma := 0;
i := 0;  // A la variable i tambien debes darle un valor antes de usarla
 REPEAT 
    WRITE('Introduzca un numero: '); READLN(num); 
    suma := suma + num; 
     i := i + 1; 
  UNTIL i = 5; 
       WRITE('La media es: ',suma/i:5:2); 
 
...........

... en el caso de la varible i la utilizas como contador, o sea en cada vuelta del bucle esta aumenta en uno, vas contando un cantidad en cada vuelta, esto último es equivalente a la función Inc (i)

[gerupc]

Ok, muchas gracias, ya lo he entendido a la perfección

Un saludo,

Geru.