Ciclos en PASCAL

Hola.



Pasaba a pedir un poco de ayuda ya que estaba realizando mi segundo programa en Pascal y creo que necesito aplicar un ciclo for ó while y ando liado con esto, el asunto es que necesito crear un programa donde el usuario coloque un numero N y despues suministre los numeros a ser analizados y asi obtener el promedio de estos.



Si me pidieran realizar un programa donde me dijeran la cantidad de numeros a ser promediados seria facil, pero cuando es el usuario quien elige la cantidad de numeros a ser promediados ahi es donde me confundo, supongo que es algo de los ciclos pero aun no se usarlos del todo. Gracias por la ayuda que me puedan dar.



Saludos

Es mas facil de lo que parece, y pues cuando dejas que el usuario establezca la cantidad de veces que se va a repetir el ciclo es recomendable usar el ciclo for (aunque con while tmb va y es mas facil), en pseudocodigo con while seria mas o menos asi

Código:

Declarar variables

 * N: entero (almacenar numero)

 * X: entero (contador)

 * num: entero o real(numeros a ser analizados)

 * suma: entero o real (suma de calificaciones)

 * promedio: entero o real

Pedir numero de veces que se va a repetir

Leer numero (almacenamos el numero en una variable N)

X=0

mientras X sea menor que N

 * pedir numero a ser analizado

 * leer el numero (almacenamos en la variable num)

 * suma=suma + num *(se va sumando)

fin de mientras

promedio=suma/N (se saca el promedio)

mostrar promedio. *

Cualquier duda pregunta...

Gracias por responder, lo que pasa es que mi primer programa fue hacer el promedio de 2 numeros, ok ese fue muy facil, pero el segundo es hacer que ahora no sean dos ni tres sino la cantidad N que pida el usuario, tendria que ser el primer programa que hice pero colocandole ciclos, el problema es que he intentado pero no logro aun modificarlo, supongo que nose como usar los famosos ciclos.

Código:

program Promedio_de_dos_numeros;



uses

 *crt;



var

 *a:real;

 *b,c:real;



begin



clrscr();

 writeln('Escriba el primer numero: ' *);

 readln(a);

 write();





 writeln('Escriba el segundo numero: ' *);

 *readln(b);







writeln('Este es el promedio');

c:=(a+b)/2;

 *Write(c);

 *readln();







end.

Asi fue el primero, pero ahora que se supondria que debo modificar?

Sigue el algoritmo que te di, donde te atores vas preguntando, asi iras aprendiendo mas facil