Pascal/Turbo Pascal - ayuda!!

   
Vista:

ayuda!!

Publicado por max suarez (1 intervención) el 27/09/2007 21:10:27
hola qonda tengo un problema, voy en secundaria y stoyviendo turbo pascar pero no es como los eh visto n internet, es mucho mas cimple, aca ay un ejemplo .
estoy viendo el ciclo while y tengo q hacer un programa q pida numeros indefinidos y calcule su promedio pero de acuerdo a lo q entiendo tengo q usar un contador pero no se como... ayudenme!!!!
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!!

Publicado por Mariano (57 intervenciones) el 27/09/2007 21:21:26
El programa seria asi, usas un centinela para poder salir del ciclo, porque obviamente que si fuera infinito no terminaria nunca.
El centinela, es un valor elegido por el programador, para que si se inserta ese valor, salga del ciclo. En este caso en particular, elegi el 0.

Program Promedio;

Uses
Crt;

Procedure ObtDat(var x:integer);
begin
Writeln('Ingrese un valor: ');
readln(x)
end; {procedimiento Obtener Datos}

Const
CENTINELA = 0;

var
n,tot,i:integer;
prom:real;

begin {bloque principal}
clrscr;
tot:=0;
prom:=0;
i:=0;
ObtDat(n);
while n <> CENTINELA do begin
inc(i);
tot:=tot + n;
prom:=tot/i;
writeln('El promedio es: ',prom:2:4);
ObtDat(n);
clrscr
end
end.

Espero que te sirva.
Un abrazo!
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