Pascal/Turbo Pascal - Ayuda!! por favor

 
Vista:

Ayuda!! por favor

Publicado por Vicky (2 intervenciones) el 20/04/2004 22:53:25
Hola, les cuento que recien empiezo con pascal, ynecesitaria saber si por favor alguien me puede decir como se puede hacer un programa que ingrese numeros, por ejemplo calificaciones, sin saber la cantidad, y que saque un promedio.
muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda!! por favor

Publicado por Hurricane (73 intervenciones) el 21/04/2004 02:34:51
Vicky, este es sólo un ejemplo:

Program Promedios;

Var
Suma, Cantidad, Nota :Real;

Begin
Cantidad := 0;
Suma := 0;
Repeat
Write('Ingrese una nota (0=salir): ');
ReadLn(Nota);
If (Nota>0) then
Begin
Cantidad := Cantidad+1;
Suma := Suma+Nota;
End;
Until (Nota=0);
If (Cantidad=0) then
WriteLn('¡¡No ingresaste notas!!')
Else
Begin
Promedio := Suma / Cantidad;
WriteLn('Promedio: ', Promedio:1:0);
End;
ReadLn;
End.

No hay validadvión de los dats. Sólo es un ejemplo simple. Espero que te sea lo que necesitabas. Saludos ;-)

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda!! por favor

Publicado por vicky (2 intervenciones) el 22/04/2004 00:18:08
Hurricante Muchas gracias por la ayuda!! me sirvio bastante!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda!! por favor

Publicado por Hurricane (73 intervenciones) el 22/04/2004 13:28:44
No hay de qué, amiga. Cuando se te ofrezca. Saludos ;-)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar