Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
 
Closed TopicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Ciclos en PASCAL

misius
post Apr 19 2008, 03:12 PM
Publicado: #1


Tratando de Olvidarte...
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 1.558
Registrado: 27-December 06
Desde: Tierra de Nadie
Miembro nº: 189.431



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


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
rob1104
post Apr 19 2008, 05:07 PM
Publicado: #2


Xbox Live... The best thing ever happened around videogames
Group Icon

Grupo: Moderadores
Mensajes: 1.665
Registrado: 7-March 05
Desde: Matamoros, Tamaulipas, Mexico
Miembro nº: 93.342



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


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
misius
post Apr 19 2008, 05:50 PM
Publicado: #3


Tratando de Olvidarte...
Group Icon

Grupo: Miembros Vitalicios
Mensajes: 1.558
Registrado: 27-December 06
Desde: Tierra de Nadie
Miembro nº: 189.431



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.

CODE
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?


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
rob1104
post Apr 19 2008, 06:12 PM
Publicado: #4


Xbox Live... The best thing ever happened around videogames
Group Icon

Grupo: Moderadores
Mensajes: 1.665
Registrado: 7-March 05
Desde: Matamoros, Tamaulipas, Mexico
Miembro nº: 93.342



Sigue el algoritmo que te di, donde te atores vas preguntando, asi iras aprendiendo mas facil bye1.gif
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

 
Closed TopicTopic OptionsStart new topic

Collapse

> Topicos similares

triangulo de pascal vaneta 168 2 Jul 4 2008, 05:25 PM
By: vaneta
QUIEN SABE SOBRE LOS COMANDOS DE TURBO PASCAL P ... ELBEBE007 1.634 3 Jan 25 2008, 02:29 AM
By: ELBEBE007
Turbo Pascal 1º Año Lizz 611 0 Dec 16 2007, 03:01 PM
By: Lizz
Turbo Pascal 1º Año Lizz 696 0 Dec 16 2007, 02:07 AM
By: Lizz
Turbo Pascal - Tema: Archivos. [AYUDA]. K3RN3L P4N1C 269 2 Nov 21 2007, 10:48 PM
By: ole1105