Donar $20 Donar $50 Donar $100 Donar mensualmente
 


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
[Consulta][Algoritmos] Módulo 1 - Ejercicio 29
Autor Mensaje
Jess Sin conexión
Campeon del cubo Rubik
No sé qué estado poner (?)
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 183
Agradecimientos dados: 41
Agradecimientos: 22 en 22 posts
Registro en: Oct 2011
Facebook Twitter
Mensaje: #1
[Consulta][Algoritmos] Ejercicio Ejercicios Algoritmos y Estructuras de Datos
Hola, tengo un problemita con un ejercicio y supuse que me podrían ayudar =P

El enunciado dice:
Dado un conjunto de valores enteros, calcular e informar
a) Cuántos valores cero hubo
b) Promedio de valores positivos
c) Sumatoria de valores negativos

Por otro lado, una de las subconsignas es:
Se dan N valores, pero el proceso deberá finalizar si se procesan todos los valores o si la cantidad de ceros supera a cuatro.

Ahora, mi problema es que no sé cómo lograr que el programa pare cuando haya más de 4 ceros y me tire los resultados de los números hasta ese momento =/ Probé cosas pero no solo no se detiene el programa sino que cuando sale del for se cierra JAJAJA Les dejo abajo lo que hice de código para el problema de base...

Gracias por su tiempo! =)


Program M29;
var
cantceros,n,prom,sumpos,cantpos,k:word;
sumneg,valor:integer;
begin
cantceros:=0;
sumpos:=0;
sumneg:=0;
cantpos:=0;
writeln('Ingrese cantidad de valores');
readln(n);
for k:=1 to n do
begin
writeln('Ingrese valor');
readln(valor);
if valor = 0
then cantceros := cantceros + 1
else
begin
if valor > 0
then
begin
sumpos:= sumpos + valor;
cantpos := cantpos + 1
end
else sumneg:= sumneg + valor
end;
end;
writeln('Cantidad de ceros: ',cantceros);
prom:= sumpos div cantpos;
writeln('Promedio de números positivos: ',prom);
writeln('Suma de números negativos: ',sumneg);
end.


-Sálvala, sálvala -exclamó caído de rodillas, entrecruzando los dedos de las manos sobre el pecho, alzando suplicante la mirada, corriendo a chorros el llanto de sus ojos-, Dios, Dios mío, Dios eterno... sí, creo en ti, creo en todo, con tal de que me la salves!... Y Dios no se la salvó.
02-05-2012 21:56
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
nanuiit Ausente
♫ I'm Blue ...
... Da ba dee, da ba da ♫
**********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 8.881
Agradecimientos dados: 216
Agradecimientos: 584 en 203 posts
Registro en: Aug 2010
Mensaje: #2
RE: [Consulta][Algoritmos] Ejercicio
Una cosa:
- Pensá que capaz el for no es la manera más feliz de analizar eso. Vos no sabés exactamente en qué momento de tu ciclo for, vas a encontrar 4 ceros. El ciclo for es de repitición EXACTA, pero en realidad quizás eso no sea lo más correcto para plantear la solución

Qué otras estructuras podrías utilizar que no sean exactas para evaluar esa condición entonces?

Si no te sale te ayudo un poco más =)

ALGORITMOS

Apuntes: Mem. Dinámica - Mem. Estática - Proc. y Funciones || Guías: Módulos + 83 Ejercicios || Finales: 2004-2013


[Imagen: digitalizartransparent.png]

[Imagen: firmananiv2.png]
02-05-2012 22:02
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Jess Sin conexión
Campeon del cubo Rubik
No sé qué estado poner (?)
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 183
Agradecimientos dados: 41
Agradecimientos: 22 en 22 posts
Registro en: Oct 2011
Facebook Twitter
Mensaje: #3
RE: [Consulta][Algoritmos] Módulo 1 - Ejercicio 29
Uh tenés razón!! Pasa que como era un ejercicio que después sufría muchas modificaciones como que me quedé enfrascada en cómo lo hice para la primera vez y no pensé en otras cosas xD Metí que k fuera sumando 1 en cada vuelta y en vez del for usé un repeat until hasta que k fuese igual a N o que la cantidad de ceros fuera mayor a 4 y anduvo bárbaro.
Muchas gracias! =D

-Sálvala, sálvala -exclamó caído de rodillas, entrecruzando los dedos de las manos sobre el pecho, alzando suplicante la mirada, corriendo a chorros el llanto de sus ojos-, Dios, Dios mío, Dios eterno... sí, creo en ti, creo en todo, con tal de que me la salves!... Y Dios no se la salvó.
02-05-2012 22:16
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)



    This forum uses Lukasz Tkacz MyBB addons.