Pascal/Turbo Pascal - Ayudita pascal

Como podria hacer para saber cuand oel usuario termino de introdocir datos?

porque necesito un prog que el usuario introduzca los pesos por separado de cada pollo, y contar cuantos pesan entre 1500 y 2000

la idea ya la tengo, pero no se como hacer para saber cuando el usuario termino de ingresar datos, si el numero de pollos fuera fijo sabrai como hacerlo, poniendo cada pollo a a cada variable ( no se mucho todavia de pascal), pero como no es fijo el numero de pollos, no se como hacer,

espero q me puedan a yudar gracias

Hay varias formas de hacerlo. La más sencilla es pedirle al usuario que ingrese un valor imposible como señal de que terminó de ingresar los datos. Por ejemplo en tu caso que ingrese un pollo con peso cero.

writeln('Ingrese el peso de los pollos (cero para terminar)');
readln(peso);
while peso > 0 do
begin
{ procesar pesos aquí }
readln(peso);
end;

ok gracias, ya me quedo claro esa parte, pero ahora no se como hacer para que a cada pollo que entre, se le asigne una variable, no se si me explico ( o por ah ihay otra forma de hacerlo)

si yo de antemano supiera que el hombre solo tiene 5 pollos, haria 5 readln y writeln, pero el problema es que no se cuantos tiene :/


gracias por la respuesta!

Bueno, eso dependerá de si los datos ingresados deben permanecer o no. Por lo que entiendo del enunciado parece que no pues simplemente hay que mostrar cuántos pollos pesan entre dos cantidades dadas. Eso es tan simple como:

var
peso, cant: integer;

begin
writeln('Ingrese el peso del pollo (cero para terminar):');
readln(peso);
while peso > 0 do
begin
if (peso >= 1500) and (peso <= 2000) then
cont:=cont+1;
readln(peso);
end;
writeln('Hay ',cont,' pollos que están dentro del peso requerido');
end.

Ahora, si los datos ingresados por el usuario deben permanecer, la cosa se complica...

muchisimas gracias! me da una bronca no darme cuenta de cosas simples asi

Buenas, vengo a revivir este tema jajaja. Porque ahora SÍ necesito que los datos permanezcan jajaja

necesito que el usuario introduzca las ventas, ej: 500$, 200$, 700$. y después hacer la suma de ellas.

Si supiera cuantas ventas son podría hacerlo con un array no? (aclaro q todavía no investigue sobre arrays, recien empiezo), o hay otra forma de hacerlo?

La macana es que no sé cuantas ventas son :S

muchisimas gracias por la ayuda

La suma la puedes hacer mientras el usuario ingresa los montos, no necesitas guardarlos y luego hacer la suma. Es lo mismo que con los pesos de los pollos solo que...

readln(ventas);
while ventas > -1 do
begin
suma:=suma+ventas;
readln(ventas);
end;

¿Se entiende?

sisi, pero me olvidé de poner que tambien tengo q sacar el promedio, entonces ahí si que tengo q guardar cuada uno :S

No, tampoco, basta con poner un contador:

Cont:=0;
readln(ventas);
while ventas > -1 do
begin
cont:=cont+1;
suma:=suma+ventas;
readln(ventas);
end;

writeln('La suma de ventas es: ',Suma,' y el promedio es: ',Suma/cont);